mirror of
https://github.com/arcan1s/moldyn.git
synced 2025-07-13 22:05:50 +00:00
45 lines
1.1 KiB
C
45 lines
1.1 KiB
C
/*
|
|
* ----------------------------------------------------------------------------
|
|
* "THE BEER-WARE LICENSE" (Revision 42):
|
|
* Evgeniy Alekseev wrote this file. As long as you retain this notice you
|
|
* can do whatever you want with this stuff. If we meet some day, and you think
|
|
* this stuff is worth it, you can buy me a beer in return
|
|
* ----------------------------------------------------------------------------
|
|
*/
|
|
/**
|
|
* @file
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <mathmech/read_agl.h>
|
|
|
|
|
|
/**
|
|
* @fn reading_agl
|
|
*/
|
|
int reading_agl (const char *aglinp, int *num_needed_mol, char *agl_class, int *needed_mol)
|
|
|
|
{
|
|
char connect[256], tmp_str[256];
|
|
int i;
|
|
FILE *f_agl;
|
|
|
|
/* connect - connectivity matrix for molecule
|
|
* f_agl - agglomerate file
|
|
*/
|
|
|
|
f_agl = fopen (aglinp, "r");
|
|
|
|
fgets (tmp_str, 256, f_agl);
|
|
sscanf (tmp_str, "AGL=%i=%s", num_needed_mol, agl_class);
|
|
for (i=0; i<*num_needed_mol; i++)
|
|
{
|
|
fgets (tmp_str, 256, f_agl);
|
|
sscanf (tmp_str, "%i=%s", &needed_mol[i], connect);
|
|
}
|
|
fclose (f_agl);
|
|
|
|
return 0;
|
|
}
|