Lines Matching full:isnum
64 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA
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 )
1960 INTEGER ISNUM, NOUT
1983 $ 90 )ISNUM