Lines Matching defs:ZCHK3
1175 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1188 COMPLEX*16 ZERO, HALF, ONE
1192 DOUBLE PRECISION RZERO
1195 DOUBLE PRECISION EPS, THRESH
1196 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA,
1197 $ IORDER
1198 LOGICAL FATAL, REWI, TRACE
1199 CHARACTER*12 SNAME
1201 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
1202 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1203 $ XT( NMAX ), XX( NMAX*INCMAX ), Z( NMAX )
1204 DOUBLE PRECISION G( NMAX )
1205 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
1207 COMPLEX*16 TRANSL
1208 DOUBLE PRECISION ERR, ERRMAX
1209 INTEGER I, ICD, ICT, ICU, IK, IN, INCX, INCXS, IX, K,
1210 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS
1211 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME
1212 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1213 CHARACTER*14 CUPLO,CTRANS,CDIAG
1214 CHARACTER*2 ICHD, ICHU
1215 CHARACTER*3 ICHT
1217 LOGICAL ISAME( 13 )
1219 LOGICAL LZE, LZERES
1227 INTEGER INFOT, NOUTC
1228 LOGICAL OK
1230 COMMON /INFOC/INFOT, NOUTC, OK
1252 10 CONTINUE
1344 20 CONTINUE
1348 30 CONTINUE
1461 40 CONTINUE
1485 50 CONTINUE
1500 60 CONTINUE
1502 70 CONTINUE
1504 80 CONTINUE
1506 90 CONTINUE
1508 100 CONTINUE
1510 110 CONTINUE
1521 120 CONTINUE
1554 * End of ZCHK3. argument