Lines Matching defs:CCHK4
1240 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1255 COMPLEX ZERO
1257 REAL RONE, RZERO
1260 REAL EPS, THRESH
1261 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1262 LOGICAL FATAL, REWI, TRACE
1263 CHARACTER*6 SNAME
1265 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1266 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1267 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1268 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1269 $ CS( NMAX*NMAX ), CT( NMAX )
1270 REAL G( NMAX )
1271 INTEGER IDIM( NIDIM )
1273 COMPLEX ALPHA, ALS, BETA, BETS
1274 REAL ERR, ERRMAX, RALPHA, RALS, RBETA, RBETS
1275 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, K, KS,
1276 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA,
1277 $ NARGS, NC, NS
1278 LOGICAL CONJ, NULL, RESET, SAME, TRAN, UPPER
1279 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1280 CHARACTER*2 ICHT, ICHU
1282 LOGICAL ISAME( 13 )
1284 LOGICAL LCE, LCERES
1291 INTEGER INFOT, NOUTC
1292 LOGICAL LERR, OK
1294 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1387 10 CONTINUE
1396 20 CONTINUE
1461 30 CONTINUE
1510 40 CONTINUE
1513 50 CONTINUE
1515 60 CONTINUE
1517 70 CONTINUE
1519 80 CONTINUE
1521 90 CONTINUE
1523 100 CONTINUE
1534 110 CONTINUE
1538 120 CONTINUE
1569 * End of CCHK4. argument