Lines Matching defs:CCHK3
1077 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1092 COMPLEX ZERO, ONE
1094 REAL RZERO
1097 REAL EPS, THRESH
1098 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER
1099 LOGICAL FATAL, REWI, TRACE
1100 CHARACTER*12 SNAME
1102 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1103 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1104 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
1105 $ C( NMAX, NMAX ), CT( NMAX )
1106 REAL G( NMAX )
1107 INTEGER IDIM( NIDIM )
1109 COMPLEX ALPHA, ALS
1110 REAL ERR, ERRMAX
1111 INTEGER I, IA, ICD, ICS, ICT, ICU, IM, IN, J, LAA, LBB,
1112 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,
1113 $ NS
1114 LOGICAL LEFT, NULL, RESET, SAME
1115 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
1116 $ UPLOS
1117 CHARACTER*2 ICHD, ICHS, ICHU
1118 CHARACTER*3 ICHT
1120 LOGICAL ISAME( 13 )
1122 LOGICAL LCE, LCERES
1129 INTEGER INFOT, NOUTC
1130 LOGICAL LERR, OK
1132 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1145 10 CONTINUE
1146 20 CONTINUE
1216 30 CONTINUE
1220 40 CONTINUE
1282 50 CONTINUE
1317 60 CONTINUE
1318 70 CONTINUE
1341 80 CONTINUE
1343 90 CONTINUE
1345 100 CONTINUE
1347 110 CONTINUE
1349 120 CONTINUE
1351 130 CONTINUE
1353 140 CONTINUE
1366 150 CONTINUE
1393 * End of CCHK3. argument