Lines Matching defs:DCHK5
1725 SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1741 DOUBLE PRECISION ZERO
1744 DOUBLE PRECISION EPS, THRESH
1745 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
1746 LOGICAL FATAL, REWI, TRACE
1747 CHARACTER*12 SNAME
1749 DOUBLE PRECISION AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1750 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1751 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1752 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1753 $ G( NMAX ), W( 2*NMAX )
1754 INTEGER IDIM( NIDIM )
1756 DOUBLE PRECISION ALPHA, ALS, BETA, BETS, ERR, ERRMAX
1757 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, JJAB,
1758 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS,
1759 $ LDC, LDCS, LJ, MA, N, NA, NARGS, NC, NS
1760 LOGICAL NULL, RESET, SAME, TRAN, UPPER
1761 CHARACTER*1 TRANS, TRANSS, UPLO, UPLOS
1762 CHARACTER*2 ICHU
1763 CHARACTER*3 ICHT
1765 LOGICAL ISAME( 13 )
1767 LOGICAL LDE, LDERES
1774 INTEGER INFOT, NOUTC
1775 LOGICAL OK
1777 COMMON /INFOC/INFOT, NOUTC, OK
1869 10 CONTINUE
1873 20 CONTINUE
1878 30 CONTINUE
1928 40 CONTINUE
1954 50 CONTINUE
1967 60 CONTINUE
1987 70 CONTINUE
1990 80 CONTINUE
1992 90 CONTINUE
1994 100 CONTINUE
1996 110 CONTINUE
1998 120 CONTINUE
2000 130 CONTINUE
2013 140 CONTINUE
2017 150 CONTINUE
2045 * End of DCHK5. argument