Lines Matching defs:ISNUM
130 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB,
327 DO 210 ISNUM = 1, NSUBS
329 IF( .NOT.LTEST( ISNUM ) )THEN
331 WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
333 SRNAMT = SNAMES( ISNUM )
336 CALL ZCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
345 $ 180, 190, 190 )ISNUM
347 140 CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
353 150 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
360 160 CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365 170 CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
371 180 CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
377 190 CALL ZCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
2381 SUBROUTINE ZCHKE( ISNUM, SRNAMT, NOUT )
2394 INTEGER ISNUM, NOUT
2419 $ 170 )ISNUM