Lines Matching defs:ZCHK6
2019 SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
2033 COMPLEX*16 ZERO, HALF, ONE
2037 DOUBLE PRECISION RZERO
2040 DOUBLE PRECISION EPS, THRESH
2041 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
2042 LOGICAL FATAL, REWI, TRACE
2043 CHARACTER*6 SNAME
2045 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2046 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
2047 $ XX( NMAX*INCMAX ), Y( NMAX ),
2048 $ YS( NMAX*INCMAX ), YT( NMAX ),
2049 $ YY( NMAX*INCMAX ), Z( NMAX, 2 )
2050 DOUBLE PRECISION G( NMAX )
2051 INTEGER IDIM( NIDIM ), INC( NINC )
2053 COMPLEX*16 ALPHA, ALS, TRANSL
2054 DOUBLE PRECISION ERR, ERRMAX
2055 INTEGER I, IA, IC, IN, INCX, INCXS, INCY, INCYS, IX,
2056 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N,
2057 $ NARGS, NC, NS
2058 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER
2059 CHARACTER*1 UPLO, UPLOS
2060 CHARACTER*2 ICH
2062 COMPLEX*16 W( 2 )
2063 LOGICAL ISAME( 13 )
2065 LOGICAL LZE, LZERES
2072 INTEGER INFOT, NOUTC
2073 LOGICAL LERR, OK
2075 COMMON /INFOC/INFOT, NOUTC, OK, LERR
2159 10 CONTINUE
2163 20 CONTINUE
2167 30 CONTINUE
2224 40 CONTINUE
2237 50 CONTINUE
2241 60 CONTINUE
2246 70 CONTINUE
2250 80 CONTINUE
2280 90 CONTINUE
2287 100 CONTINUE
2289 110 CONTINUE
2291 120 CONTINUE
2293 130 CONTINUE
2295 140 CONTINUE
2306 150 CONTINUE
2309 160 CONTINUE
2339 * End of ZCHK6. argument