Lines Matching refs:ISNUM
80 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
282 DO 210 ISNUM = 1, NSUBS
284 IF( .NOT.LTEST( ISNUM ) )THEN
286 WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
288 SRNAMT = SNAMES( ISNUM )
291 CALL SCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
300 $ 190, 190 )ISNUM
302 140 CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308 150 CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315 160 CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
320 170 CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326 180 CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
332 190 CALL SCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
2286 SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT ) argument
2299 INTEGER ISNUM, NOUT local
2323 $ 160 )ISNUM