double maximum, am, ti, j, k, amplitude;
double ep[ 20 ];
char ar[ 20 ];
char m;
char sac[ 20 ];
int main(void)
{
sel = fopen( "selected.txt" , "rt" );
epi = fopen( "epi_dis.txt" , "rt" );
fscanf( epi , "%lf" , &ep[ i ] );
fscanf( sel , "%s" , &ar[ i ] );
sprintf( sac , " \\%s " , ar[ i ]);
FILE *SACFILE=fopen( sac , "wt" );