Lines Matching defs:ZCHK3
931 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
946 COMPLEX*16 ZERO, ONE
949 DOUBLE PRECISION RZERO
952 DOUBLE PRECISION EPS, THRESH
953 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA
954 LOGICAL FATAL, REWI, TRACE
955 CHARACTER*6 SNAME
957 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
958 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
959 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
960 $ C( NMAX, NMAX ), CT( NMAX )
961 DOUBLE PRECISION G( NMAX )
962 INTEGER IDIM( NIDIM )
964 COMPLEX*16 ALPHA, ALS
965 DOUBLE PRECISION ERR, ERRMAX
966 INTEGER I, IA, ICD, ICS, ICT, ICU, IM, IN, J, LAA, LBB,
967 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,
968 $ NS
969 LOGICAL LEFT, NULL, RESET, SAME
970 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
971 $ UPLOS
972 CHARACTER*2 ICHD, ICHS, ICHU
973 CHARACTER*3 ICHT
975 LOGICAL ISAME( 13 )
977 LOGICAL LZE, LZERES
984 INTEGER INFOT, NOUTC
985 LOGICAL LERR, OK
987 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1000 10 CONTINUE
1001 20 CONTINUE
1071 30 CONTINUE
1075 40 CONTINUE
1135 50 CONTINUE
1170 60 CONTINUE
1171 70 CONTINUE
1194 80 CONTINUE
1196 90 CONTINUE
1198 100 CONTINUE
1200 110 CONTINUE
1202 120 CONTINUE
1204 130 CONTINUE
1206 140 CONTINUE
1239 * End of ZCHK3. argument