arcanis/moldyn
1
0
Fork 0
mirror of https://github.com/arcan1s/moldyn.git synced 2025-07-17 07:40:00 +00:00
Code Issues Projects Releases Wiki Activity

Translate to english

Browse Source 
Adapted to Linux
This commit is contained in:
arcan1s
2012-11-23 15:56:41 +04:00
parent 85e27fdc30
commit 3c1eb2d6c8
4 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
agl/AGL for v.3.c
View File

@ -3,6 +3,7 @@
#include <conio.h>
#include <ctype.h>
#include <math.h>
#include <string.h>
double cell[3], a[10000][3], c[250][30][3];
@ -382,21 +383,22 @@ void main(void)
f=fopen ("input_agl.dat", "r");
for (i=0; i<24; i++)
for (i=0; i<10; i++)
fscanf (f, "%c", &q[i]);
fscanf (f, "%s", &name);
for (i=0; i<19; i++)
for (i=0; i<24; i++)
fscanf (f, "%c", &q[i]);
fscanf (f, "%i", &agl);
for (i=0; i<10; i++)
for (i=0; i<15; i++)
fscanf (f, "%c", &q[i]);
for (i=0; i<3; i++)
fscanf (f, "%lf", &cell[i]);
fgets (q, 128, f);
for (i=0; i<25; i++)
for (i=0; i<7; i++)
fscanf (f, "%c", &q[i]);
fscanf (f, "%s", &out_name);
fclose (f);
k = strlen (out_name);
out_name[k] = out_name[k-4];