Lines Matching full:isnum
59 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA
260 DO 200 ISNUM = 1, NSUBS
262 IF( .NOT.LTEST( ISNUM ) )THEN
264 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
266 SRNAMT = SNAMES( ISNUM )
269 CALL SCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
276 GO TO ( 140, 150, 160, 160, 170, 180 )ISNUM
278 140 CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
284 150 CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
290 160 CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
295 170 CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
301 180 CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
1801 ISNUM, SRNAMT, NOUT )
1816 INTEGER ISNUM, NOUT
1837 GO TO ( 10, 20, 30, 40, 50, 60 )ISNUM
