Lines Matching full:isnum
65 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA
268 DO 200 ISNUM = 1, NSUBS
270 IF( .NOT.LTEST( ISNUM ) )THEN
272 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
274 SRNAMT = SNAMES( ISNUM )
277 CALL ZCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
285 $ 180, 180 )ISNUM
287 140 CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
293 150 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
299 160 CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
304 170 CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
310 180 CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
1948 SUBROUTINE ZCHKE( ISNUM, SRNAMT, NOUT )
1963 INTEGER ISNUM, NOUT
1986 $ 90 )ISNUM
