Lines Matching defs:SCHK5
1526 SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1541 REAL ZERO
1544 REAL EPS, THRESH
1545 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1546 LOGICAL FATAL, REWI, TRACE
1547 CHARACTER*6 SNAME
1549 REAL AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1550 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1551 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1552 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1553 $ G( NMAX ), W( 2*NMAX )
1554 INTEGER IDIM( NIDIM )
1556 REAL ALPHA, ALS, BETA, BETS, ERR, ERRMAX
1557 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, JJAB,
1558 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS,
1559 $ LDC, LDCS, LJ, MA, N, NA, NARGS, NC, NS
1560 LOGICAL NULL, RESET, SAME, TRAN, UPPER
1561 CHARACTER*1 TRANS, TRANSS, UPLO, UPLOS
1562 CHARACTER*2 ICHU
1563 CHARACTER*3 ICHT
1565 LOGICAL ISAME( 13 )
1567 LOGICAL LSE, LSERES
1574 INTEGER INFOT, NOUTC
1575 LOGICAL LERR, OK
1577 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1669 10 CONTINUE
1673 20 CONTINUE
1678 30 CONTINUE
1727 40 CONTINUE
1753 50 CONTINUE
1766 60 CONTINUE
1786 70 CONTINUE
1789 80 CONTINUE
1791 90 CONTINUE
1793 100 CONTINUE
1795 110 CONTINUE
1797 120 CONTINUE
1799 130 CONTINUE
1810 140 CONTINUE
1837 * End of SCHK5. argument