Lines Matching full:isnum
80 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,
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 )
2299 INTEGER ISNUM, NOUT
2323 $ 160 )ISNUM
