Lines Matching defs:ZCHK5
1614 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1629 COMPLEX*16 ZERO, ONE
1632 DOUBLE PRECISION RONE, RZERO
1635 DOUBLE PRECISION EPS, THRESH
1636 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1637 LOGICAL FATAL, REWI, TRACE
1638 CHARACTER*6 SNAME
1640 COMPLEX*16 AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1641 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1642 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1643 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1644 $ W( 2*NMAX )
1645 DOUBLE PRECISION G( NMAX )
1646 INTEGER IDIM( NIDIM )
1648 COMPLEX*16 ALPHA, ALS, BETA, BETS
1649 DOUBLE PRECISION ERR, ERRMAX, RBETA, RBETS
1650 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, JJAB,
1651 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS,
1652 $ LDC, LDCS, LJ, MA, N, NA, NARGS, NC, NS
1653 LOGICAL CONJ, NULL, RESET, SAME, TRAN, UPPER
1654 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1655 CHARACTER*2 ICHT, ICHU
1657 LOGICAL ISAME( 13 )
1659 LOGICAL LZE, LZERES
1666 INTEGER INFOT, NOUTC
1667 LOGICAL LERR, OK
1669 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1771 10 CONTINUE
1775 20 CONTINUE
1784 30 CONTINUE
1847 40 CONTINUE
1885 50 CONTINUE
1907 60 CONTINUE
1926 70 CONTINUE
1929 80 CONTINUE
1931 90 CONTINUE
1933 100 CONTINUE
1935 110 CONTINUE
1937 120 CONTINUE
1939 130 CONTINUE
1950 140 CONTINUE
1954 150 CONTINUE
1985 * End of ZCHK5. argument