Lines Matching defs:ZCHK3
1094 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1107 COMPLEX*16 ZERO, HALF, ONE
1111 DOUBLE PRECISION RZERO
1114 DOUBLE PRECISION EPS, THRESH
1115 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA
1116 LOGICAL FATAL, REWI, TRACE
1117 CHARACTER*6 SNAME
1119 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
1120 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1121 $ XT( NMAX ), XX( NMAX*INCMAX ), Z( NMAX )
1122 DOUBLE PRECISION G( NMAX )
1123 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
1125 COMPLEX*16 TRANSL
1126 DOUBLE PRECISION ERR, ERRMAX
1127 INTEGER I, ICD, ICT, ICU, IK, IN, INCX, INCXS, IX, K,
1128 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS
1129 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME
1130 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1131 CHARACTER*2 ICHD, ICHU
1132 CHARACTER*3 ICHT
1134 LOGICAL ISAME( 13 )
1136 LOGICAL LZE, LZERES
1144 INTEGER INFOT, NOUTC
1145 LOGICAL LERR, OK
1147 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1169 10 CONTINUE
1244 20 CONTINUE
1248 30 CONTINUE
1361 40 CONTINUE
1385 50 CONTINUE
1400 60 CONTINUE
1402 70 CONTINUE
1404 80 CONTINUE
1406 90 CONTINUE
1408 100 CONTINUE
1410 110 CONTINUE
1421 120 CONTINUE
1453 * End of ZCHK3. argument