Lines Matching defs:ZCHK5
1773 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1787 COMPLEX*16 ZERO, HALF, ONE
1791 DOUBLE PRECISION RZERO
1794 DOUBLE PRECISION EPS, THRESH
1795 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1796 LOGICAL FATAL, REWI, TRACE
1797 CHARACTER*6 SNAME
1799 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1800 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1801 $ XX( NMAX*INCMAX ), Y( NMAX ),
1802 $ YS( NMAX*INCMAX ), YT( NMAX ),
1803 $ YY( NMAX*INCMAX ), Z( NMAX )
1804 DOUBLE PRECISION G( NMAX )
1805 INTEGER IDIM( NIDIM ), INC( NINC )
1807 COMPLEX*16 ALPHA, TRANSL
1808 DOUBLE PRECISION ERR, ERRMAX, RALPHA, RALS
1809 INTEGER I, IA, IC, IN, INCX, INCXS, IX, J, JA, JJ, LAA,
1810 $ LDA, LDAS, LJ, LX, N, NARGS, NC, NS
1811 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER
1812 CHARACTER*1 UPLO, UPLOS
1813 CHARACTER*2 ICH
1815 COMPLEX*16 W( 1 )
1816 LOGICAL ISAME( 13 )
1818 LOGICAL LZE, LZERES
1825 INTEGER INFOT, NOUTC
1826 LOGICAL LERR, OK
1828 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1898 10 CONTINUE
1902 20 CONTINUE
1955 30 CONTINUE
1968 40 CONTINUE
1972 50 CONTINUE
2001 60 CONTINUE
2008 70 CONTINUE
2010 80 CONTINUE
2012 90 CONTINUE
2014 100 CONTINUE
2025 110 CONTINUE
2028 120 CONTINUE
2055 * End of ZCHK5. argument