Lines Matching refs:ISNUM
59 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
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 DCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
276 GO TO ( 140, 150, 160, 160, 170, 180 )ISNUM
278 140 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
284 150 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
290 160 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
295 170 CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
301 180 CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
1801 SUBROUTINE DCHKE( ISNUM, SRNAMT, NOUT ) argument
1816 INTEGER ISNUM, NOUT local
1837 GO TO ( 10, 20, 30, 40, 50, 60 )ISNUM