Lines Matching refs:ISNUM
64 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
267 DO 200 ISNUM = 1, NSUBS
269 IF( .NOT.LTEST( ISNUM ) )THEN
271 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
273 SRNAMT = SNAMES( ISNUM )
276 CALL CCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
284 $ 180, 180 )ISNUM
286 140 CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
292 150 CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
298 160 CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
303 170 CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
309 180 CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
1945 SUBROUTINE CCHKE( ISNUM, SRNAMT, NOUT ) argument
1960 INTEGER ISNUM, NOUT local
1983 $ 90 )ISNUM