Lines Matching defs:SCHK5
1487 SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1502 REAL ZERO
1505 REAL EPS, THRESH
1506 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1507 LOGICAL FATAL, REWI, TRACE
1508 CHARACTER*6 SNAME
1510 REAL AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1511 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1512 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1513 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1514 $ G( NMAX ), W( 2*NMAX )
1515 INTEGER IDIM( NIDIM )
1517 REAL ALPHA, ALS, BETA, BETS, ERR, ERRMAX
1518 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, JJAB,
1519 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS,
1520 $ LDC, LDCS, LJ, MA, N, NA, NARGS, NC, NS
1521 LOGICAL NULL, RESET, SAME, TRAN, UPPER
1522 CHARACTER*1 TRANS, TRANSS, UPLO, UPLOS
1523 CHARACTER*2 ICHU
1524 CHARACTER*3 ICHT
1526 LOGICAL ISAME( 13 )
1528 LOGICAL LSE, LSERES
1535 INTEGER INFOT, NOUTC
1536 LOGICAL LERR, OK
1538 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1630 10 CONTINUE
1634 20 CONTINUE
1639 30 CONTINUE
1688 40 CONTINUE
1714 50 CONTINUE
1727 60 CONTINUE
1747 70 CONTINUE
1750 80 CONTINUE
1752 90 CONTINUE
1754 100 CONTINUE
1756 110 CONTINUE
1758 120 CONTINUE
1760 130 CONTINUE
1771 140 CONTINUE
1798 * End of SCHK5. argument