Lines Matching refs:ISNUM
105 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
299 DO 200 ISNUM = 1, NSUBS
301 IF( .NOT.LTEST( ISNUM ) )THEN
303 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
305 SRNAMT = SNAMES( ISNUM )
308 CALL DCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
315 GO TO ( 140, 150, 160, 160, 170, 180 )ISNUM
317 140 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
323 150 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
329 160 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
334 170 CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
340 180 CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
1840 SUBROUTINE DCHKE( ISNUM, SRNAMT, NOUT ) argument
1858 INTEGER ISNUM, NOUT local
1888 GO TO ( 10, 20, 30, 40, 50, 60 )ISNUM