C 프로그래밍 급한 도움 부탁드립니다.

개괄적인 코딩 목적 : SAC.A라는 파일을 읽어들어 double형의 2열로 구성된 데이터 파일을 읽어들어

로직에 맞게 분석하고 출력하는 것, ti, am은 각각 1번째 열, 2번째 열의 수천 줄의 데이터를 읽어들입니다.

다른 부분은 다 괜찮은 것 같은데, exit(-1)삽입시 이탤릭과 볼드로 표시한 부분 바로 위 까지는 잘 되는데

그 줄이 에러가 나네요. 컴파일 시도 문제가 없는데, Debug Assertion Failed! 창이 출력되면서

C:\data\debug\phasepick.exe

File : fscanf.c

Line : 54

Expression : stream !=Null

이라고 출력이 됩니다. fscanf.c는 제가 만든 적이 없는 파일이구요.. VC 자체에 있는 것인지요?

아무래도 표시한 부분이 문제인 듯 한데 전혀 모르겠습니다...

도움 좀 부탁드립니다. 이 부분만 해결되면 일사천리인데...

#include
#include
#include
#include

double PNarrival[ 20 ], PGarrival[ 20 ], SNarrival[ 20 ], LGarrival[ 20 ], RGarrival[ 20 ];
int i, n;
FILE *PNarriv;
FILE *PGarriv;
FILE *SNarriv;
FILE *LGarriv;
FILE *RGarriv;
FILE *sel;
FILE *epi;
double maximum, am, ti, j, k, amplitude;
double ep[ 20 ];
char ar[ 20 ][ 20 ];
char m;
char sac[ 20 ];

int main( void )
{

sel = fopen( "selected.txt" , "rt" );
epi = fopen( "epi_dis.txt" , "rt" );


fscanf( epi , "%lf" , ep );
fscanf( sel , "%c" , ar );
sprintf( sac , " c:\\Data\\%c " , ar );

FILE *SACFILE = fopen( sac , "wt" );

fscanf( SACFILE , "%lf %lf" , &ti , &am );

for( i = 0; i < 5000; i++ )
{
printf( " Cowabunga! " );

if ( ep[ i ] / ti > 7.0 )
{
if ( ep[ i ] / ti < 8.5 )
{
PNarriv = fopen( "PNarriv.txt", "wt" );

if ( ep[ i ] / ti > 8.45 )
{
if ( ep[ i ] / ti < 8.5 )
{

maximum = am;
ti = PNarrival[ i ];

}
}

else
{

if( maximum < am )
{

maximum = am;

ti = PNarrival[ i ];

}

}


fprintf( PNarriv, "%lf", PNarrival[ i ] );
}

}

if ( ep[ i ] / ti > 5.7 )
{
if( ep[ i ] / ti < 7.0 )
{

PGarriv = fopen( "PGarriv.txt", "wt" );

if( ep[ i ] / ti > 6.95 )
{
if( ep[ i ] / ti < 7.0 )

{

maximum = am;

ti = PGarrival[ i ];

}

}

else
{
if( maximum < am )
{
maximum = am;
ti = PGarrival[ i ];
}

}


fprintf( PGarriv, "%lf", PGarrival[ i ] );
}
}

if ( ep[ i ] / ti > 4.0 )
{
if( ep[ i ] / ti < 5.0 )
{
SNarriv = fopen( "SNarriv.txt", "wt" );

if( ep[ i ] / ti > 4.99 )
{
if( ep[ i ] / ti < 5.0 )
{
maximum = am;
ti = SNarrival[ i ];
}

}
else

{

if( maximum < am )

{

maximum = am;

ti = SNarrival[ i ];

}

}

fprintf( SNarriv, "%lf", SNarrival[ i ] );
}
}

if ( ep[ i ] / ti > 3.2 )
{
if ( ep[ i ] / ti < 3.7 )
{
LGarriv = fopen( "LGarriv.txt", "wt" );

if( ep[ i ] / ti > 3.69 )
{
if( ep[ i ] / ti < 3.7 )
{
maximum = am;
ti = LGarrival[ i ];
}
}
else
{
if( maximum < am )
{
maximum = am;
ti = LGarrival[ i ];
}

}
fprintf( LGarriv, "%lf", LGarrival[ i ] );
}
}

if( ep[ i ] / ti > 2.8 )
{
if( ep[ i ] / ti <3.1 )
{
RGarriv = fopen( "RGarriv.txt", "wt" );

if( ep[ i ] / ti > 3.09 )
{
if( ep[ i ] / ti <3.1 )
{
maximum = amplitude;
ti = RGarrival[ i ];

}
}
else
{
if( maximum < am )
{
maximum = am;
ti = RGarrival[ i ];
}
}
fprintf( RGarriv, "%lf", RGarrival[ i ] );
}

}

fclose( PNarriv );
fclose( PGarriv );
fclose( SNarriv );
fclose( RGarriv );
fclose( LGarriv );
fclose( SACFILE );

return 0;
}
}