Lines Matching defs:CCHK4
1279 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1294 COMPLEX ZERO
1296 REAL RONE, RZERO
1299 REAL EPS, THRESH
1300 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1301 LOGICAL FATAL, REWI, TRACE
1302 CHARACTER*6 SNAME
1304 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1305 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1306 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1307 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1308 $ CS( NMAX*NMAX ), CT( NMAX )
1309 REAL G( NMAX )
1310 INTEGER IDIM( NIDIM )
1312 COMPLEX ALPHA, ALS, BETA, BETS
1313 REAL ERR, ERRMAX, RALPHA, RALS, RBETA, RBETS
1314 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, K, KS,
1315 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA,
1316 $ NARGS, NC, NS
1317 LOGICAL CONJ, NULL, RESET, SAME, TRAN, UPPER
1318 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1319 CHARACTER*2 ICHT, ICHU
1321 LOGICAL ISAME( 13 )
1323 LOGICAL LCE, LCERES
1330 INTEGER INFOT, NOUTC
1331 LOGICAL LERR, OK
1333 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1426 10 CONTINUE
1435 20 CONTINUE
1500 30 CONTINUE
1549 40 CONTINUE
1552 50 CONTINUE
1554 60 CONTINUE
1556 70 CONTINUE
1558 80 CONTINUE
1560 90 CONTINUE
1562 100 CONTINUE
1573 110 CONTINUE
1577 120 CONTINUE
1608 * End of CCHK4. argument