Lines Matching defs:CCHK4
1440 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1456 COMPLEX ZERO
1458 REAL RONE, RZERO
1461 REAL EPS, THRESH
1462 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
1463 LOGICAL FATAL, REWI, TRACE
1464 CHARACTER*12 SNAME
1466 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1467 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1468 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1469 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1470 $ CS( NMAX*NMAX ), CT( NMAX )
1471 REAL G( NMAX )
1472 INTEGER IDIM( NIDIM )
1474 COMPLEX ALPHA, ALS, BETA, BETS
1475 REAL ERR, ERRMAX, RALPHA, RALS, RBETA, RBETS
1476 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, K, KS,
1477 $ LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA,
1478 $ NARGS, NC, NS
1479 LOGICAL CONJ, NULL, RESET, SAME, TRAN, UPPER
1480 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1481 CHARACTER*2 ICHT, ICHU
1483 LOGICAL ISAME( 13 )
1485 LOGICAL LCE, LCERES
1492 INTEGER INFOT, NOUTC
1493 LOGICAL LERR, OK
1495 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1588 10 CONTINUE
1597 20 CONTINUE
1664 30 CONTINUE
1713 40 CONTINUE
1716 50 CONTINUE
1718 60 CONTINUE
1720 70 CONTINUE
1722 80 CONTINUE
1724 90 CONTINUE
1726 100 CONTINUE
1739 110 CONTINUE
1743 120 CONTINUE
1753 130 CONTINUE
1779 * End of CCHK4. argument