Lines Matching defs:CCHK3
1173 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1186 COMPLEX ZERO, HALF, ONE
1189 REAL RZERO
1192 REAL EPS, THRESH
1193 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA,
1194 $ IORDER
1195 LOGICAL FATAL, REWI, TRACE
1196 CHARACTER*12 SNAME
1198 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ),
1199 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1200 $ XT( NMAX ), XX( NMAX*INCMAX ), Z( NMAX )
1201 REAL G( NMAX )
1202 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
1204 COMPLEX TRANSL
1205 REAL ERR, ERRMAX
1206 INTEGER I, ICD, ICT, ICU, IK, IN, INCX, INCXS, IX, K,
1207 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS
1208 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME
1209 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1210 CHARACTER*14 CUPLO,CTRANS,CDIAG
1211 CHARACTER*2 ICHD, ICHU
1212 CHARACTER*3 ICHT
1214 LOGICAL ISAME( 13 )
1216 LOGICAL LCE, LCERES
1224 INTEGER INFOT, NOUTC
1225 LOGICAL OK
1227 COMMON /INFOC/INFOT, NOUTC, OK
1249 10 CONTINUE
1341 20 CONTINUE
1345 30 CONTINUE
1458 40 CONTINUE
1482 50 CONTINUE
1497 60 CONTINUE
1499 70 CONTINUE
1501 80 CONTINUE
1503 90 CONTINUE
1505 100 CONTINUE
1507 110 CONTINUE
1518 120 CONTINUE
1551 * End of CCHK3. argument