Lines Matching defs:ZCHK3
1078 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1093 COMPLEX*16 ZERO, ONE
1095 DOUBLE PRECISION RZERO
1098 DOUBLE PRECISION EPS, THRESH
1099 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER
1100 LOGICAL FATAL, REWI, TRACE
1101 CHARACTER*12 SNAME
1103 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1104 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1105 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
1106 $ C( NMAX, NMAX ), CT( NMAX )
1107 DOUBLE PRECISION G( NMAX )
1108 INTEGER IDIM( NIDIM )
1110 COMPLEX*16 ALPHA, ALS
1111 DOUBLE PRECISION ERR, ERRMAX
1112 INTEGER I, IA, ICD, ICS, ICT, ICU, IM, IN, J, LAA, LBB,
1113 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,
1114 $ NS
1115 LOGICAL LEFT, NULL, RESET, SAME
1116 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
1117 $ UPLOS
1118 CHARACTER*2 ICHD, ICHS, ICHU
1119 CHARACTER*3 ICHT
1121 LOGICAL ISAME( 13 )
1123 LOGICAL LZE, LZERES
1130 INTEGER INFOT, NOUTC
1131 LOGICAL LERR, OK
1133 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1146 10 CONTINUE
1147 20 CONTINUE
1217 30 CONTINUE
1221 40 CONTINUE
1283 50 CONTINUE
1318 60 CONTINUE
1319 70 CONTINUE
1342 80 CONTINUE
1344 90 CONTINUE
1346 100 CONTINUE
1348 110 CONTINUE
1350 120 CONTINUE
1352 130 CONTINUE
1354 140 CONTINUE
1367 150 CONTINUE
1394 * End of ZCHK3. argument