Lines Matching defs:ZCHK5
1574 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1589 COMPLEX*16 ZERO, ONE
1592 DOUBLE PRECISION RONE, RZERO
1595 DOUBLE PRECISION EPS, THRESH
1596 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1597 LOGICAL FATAL, REWI, TRACE
1598 CHARACTER*6 SNAME
1600 COMPLEX*16 AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1601 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1602 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1603 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1604 $ W( 2*NMAX )
1605 DOUBLE PRECISION G( NMAX )
1606 INTEGER IDIM( NIDIM )
1608 COMPLEX*16 ALPHA, ALS, BETA, BETS
1609 DOUBLE PRECISION ERR, ERRMAX, RBETA, RBETS
1610 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, JJAB,
1611 $ K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS,
1612 $ LDC, LDCS, LJ, MA, N, NA, NARGS, NC, NS
1613 LOGICAL CONJ, NULL, RESET, SAME, TRAN, UPPER
1614 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1615 CHARACTER*2 ICHT, ICHU
1617 LOGICAL ISAME( 13 )
1619 LOGICAL LZE, LZERES
1626 INTEGER INFOT, NOUTC
1627 LOGICAL LERR, OK
1629 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1731 10 CONTINUE
1735 20 CONTINUE
1744 30 CONTINUE
1807 40 CONTINUE
1845 50 CONTINUE
1867 60 CONTINUE
1886 70 CONTINUE
1889 80 CONTINUE
1891 90 CONTINUE
1893 100 CONTINUE
1895 110 CONTINUE
1897 120 CONTINUE
1899 130 CONTINUE
1910 140 CONTINUE
1914 150 CONTINUE
1945 * End of ZCHK5. argument