Lines Matching defs:ZCHK5
1734 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1748 COMPLEX*16 ZERO, HALF, ONE
1752 DOUBLE PRECISION RZERO
1755 DOUBLE PRECISION EPS, THRESH
1756 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1757 LOGICAL FATAL, REWI, TRACE
1758 CHARACTER*6 SNAME
1760 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1761 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1762 $ XX( NMAX*INCMAX ), Y( NMAX ),
1763 $ YS( NMAX*INCMAX ), YT( NMAX ),
1764 $ YY( NMAX*INCMAX ), Z( NMAX )
1765 DOUBLE PRECISION G( NMAX )
1766 INTEGER IDIM( NIDIM ), INC( NINC )
1768 COMPLEX*16 ALPHA, TRANSL
1769 DOUBLE PRECISION ERR, ERRMAX, RALPHA, RALS
1770 INTEGER I, IA, IC, IN, INCX, INCXS, IX, J, JA, JJ, LAA,
1771 $ LDA, LDAS, LJ, LX, N, NARGS, NC, NS
1772 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER
1773 CHARACTER*1 UPLO, UPLOS
1774 CHARACTER*2 ICH
1776 COMPLEX*16 W( 1 )
1777 LOGICAL ISAME( 13 )
1779 LOGICAL LZE, LZERES
1786 INTEGER INFOT, NOUTC
1787 LOGICAL LERR, OK
1789 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1859 10 CONTINUE
1863 20 CONTINUE
1916 30 CONTINUE
1929 40 CONTINUE
1933 50 CONTINUE
1962 60 CONTINUE
1969 70 CONTINUE
1971 80 CONTINUE
1973 90 CONTINUE
1975 100 CONTINUE
1986 110 CONTINUE
1989 120 CONTINUE
2016 * End of ZCHK5. argument