Lines Matching defs:ZCHK1
367 SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
382 COMPLEX*16 ZERO
384 DOUBLE PRECISION RZERO
387 DOUBLE PRECISION EPS, THRESH
388 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
389 LOGICAL FATAL, REWI, TRACE
390 CHARACTER*6 SNAME
392 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
393 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
394 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
395 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
396 $ CS( NMAX*NMAX ), CT( NMAX )
397 DOUBLE PRECISION G( NMAX )
398 INTEGER IDIM( NIDIM )
400 COMPLEX*16 ALPHA, ALS, BETA, BLS
401 DOUBLE PRECISION ERR, ERRMAX
402 INTEGER I, IA, IB, ICA, ICB, IK, IM, IN, K, KS, LAA,
403 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
404 $ MA, MB, MS, N, NA, NARGS, NB, NC, NS
405 LOGICAL NULL, RESET, SAME, TRANA, TRANB
406 CHARACTER*1 TRANAS, TRANBS, TRANSA, TRANSB
407 CHARACTER*3 ICH
409 LOGICAL ISAME( 13 )
411 LOGICAL LZE, LZERES
418 INTEGER INFOT, NOUTC
419 LOGICAL LERR, OK
421 COMMON /INFOC/INFOT, NOUTC, OK, LERR
523 10 CONTINUE
527 20 CONTINUE
532 30 CONTINUE
583 40 CONTINUE
604 50 CONTINUE
606 60 CONTINUE
608 70 CONTINUE
610 80 CONTINUE
612 90 CONTINUE
614 100 CONTINUE
616 110 CONTINUE
649 * End of ZCHK1. argument