Lines Matching defs:ZCHK1
426 SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
442 COMPLEX*16 ZERO
444 DOUBLE PRECISION RZERO
447 DOUBLE PRECISION EPS, THRESH
448 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
449 LOGICAL FATAL, REWI, TRACE
450 CHARACTER*12 SNAME
452 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
453 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
454 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
455 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
456 $ CS( NMAX*NMAX ), CT( NMAX )
457 DOUBLE PRECISION G( NMAX )
458 INTEGER IDIM( NIDIM )
460 COMPLEX*16 ALPHA, ALS, BETA, BLS
461 DOUBLE PRECISION ERR, ERRMAX
462 INTEGER I, IA, IB, ICA, ICB, IK, IM, IN, K, KS, LAA,
463 $ LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,
464 $ MA, MB, MS, N, NA, NARGS, NB, NC, NS
465 LOGICAL NULL, RESET, SAME, TRANA, TRANB
466 CHARACTER*1 TRANAS, TRANBS, TRANSA, TRANSB
467 CHARACTER*3 ICH
469 LOGICAL ISAME( 13 )
471 LOGICAL LZE, LZERES
478 INTEGER INFOT, NOUTC
479 LOGICAL LERR, OK
481 COMMON /INFOC/INFOT, NOUTC, OK, LERR
583 10 CONTINUE
587 20 CONTINUE
592 30 CONTINUE
644 40 CONTINUE
665 50 CONTINUE
667 60 CONTINUE
669 70 CONTINUE
671 80 CONTINUE
673 90 CONTINUE
675 100 CONTINUE
677 110 CONTINUE
690 120 CONTINUE
717 * End of ZCHK1. argument