Lines Matching defs:ZCHK2
756 SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
772 COMPLEX*16 ZERO
774 DOUBLE PRECISION RZERO
777 DOUBLE PRECISION EPS, THRESH
778 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
779 LOGICAL FATAL, REWI, TRACE
780 CHARACTER*12 SNAME
782 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
783 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
784 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
785 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
786 $ CS( NMAX*NMAX ), CT( NMAX )
787 DOUBLE PRECISION G( NMAX )
788 INTEGER IDIM( NIDIM )
790 COMPLEX*16 ALPHA, ALS, BETA, BLS
791 DOUBLE PRECISION ERR, ERRMAX
792 INTEGER I, IA, IB, ICS, ICU, IM, IN, LAA, LBB, LCC,
793 $ LDA, LDAS, LDB, LDBS, LDC, LDCS, M, MS, N, NA,
794 $ NARGS, NC, NS
795 LOGICAL CONJ, LEFT, NULL, RESET, SAME
796 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS
797 CHARACTER*2 ICHS, ICHU
799 LOGICAL ISAME( 13 )
801 LOGICAL LZE, LZERES
808 INTEGER INFOT, NOUTC
809 LOGICAL LERR, OK
811 COMMON /INFOC/INFOT, NOUTC, OK, LERR
899 10 CONTINUE
903 20 CONTINUE
908 30 CONTINUE
965 40 CONTINUE
993 50 CONTINUE
995 60 CONTINUE
997 70 CONTINUE
999 80 CONTINUE
1001 90 CONTINUE
1003 100 CONTINUE
1016 110 CONTINUE
1043 * End of ZCHK2. argument