Lines Matching defs:ZCHK2
692 SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
707 COMPLEX*16 ZERO
709 DOUBLE PRECISION RZERO
712 DOUBLE PRECISION EPS, THRESH
713 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
714 LOGICAL FATAL, REWI, TRACE
715 CHARACTER*6 SNAME
717 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
718 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
719 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
720 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
721 $ CS( NMAX*NMAX ), CT( NMAX )
722 DOUBLE PRECISION G( NMAX )
723 INTEGER IDIM( NIDIM )
725 COMPLEX*16 ALPHA, ALS, BETA, BLS
726 DOUBLE PRECISION ERR, ERRMAX
727 INTEGER I, IA, IB, ICS, ICU, IM, IN, LAA, LBB, LCC,
728 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA,
729 $ NARGS, NC, NS
730 LOGICAL CONJ, LEFT, NULL, RESET, SAME
731 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS
732 CHARACTER*2 ICHS, ICHU
734 LOGICAL ISAME( 13 )
736 LOGICAL LZE, LZERES
743 INTEGER INFOT, NOUTC
744 LOGICAL LERR, OK
746 COMMON /INFOC/INFOT, NOUTC, OK, LERR
834 10 CONTINUE
838 20 CONTINUE
843 30 CONTINUE
897 40 CONTINUE
925 50 CONTINUE
927 60 CONTINUE
929 70 CONTINUE
931 80 CONTINUE
933 90 CONTINUE
935 100 CONTINUE
968 * End of ZCHK2. argument