Lines Matching defs:ZCHK6
2129 SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
2143 COMPLEX*16 ZERO, HALF, ONE
2147 DOUBLE PRECISION RZERO
2150 DOUBLE PRECISION EPS, THRESH
2151 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,
2152 $ IORDER
2153 LOGICAL FATAL, REWI, TRACE
2154 CHARACTER*12 SNAME
2156 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2157 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
2158 $ XX( NMAX*INCMAX ), Y( NMAX ),
2159 $ YS( NMAX*INCMAX ), YT( NMAX ),
2160 $ YY( NMAX*INCMAX ), Z( NMAX, 2 )
2161 DOUBLE PRECISION G( NMAX )
2162 INTEGER IDIM( NIDIM ), INC( NINC )
2164 COMPLEX*16 ALPHA, ALS, TRANSL
2165 DOUBLE PRECISION ERR, ERRMAX
2166 INTEGER I, IA, IC, IN, INCX, INCXS, INCY, INCYS, IX,
2167 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N,
2168 $ NARGS, NC, NS
2169 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER
2170 CHARACTER*1 UPLO, UPLOS
2171 CHARACTER*14 CUPLO
2172 CHARACTER*2 ICH
2174 COMPLEX*16 W( 2 )
2175 LOGICAL ISAME( 13 )
2177 LOGICAL LZE, LZERES
2184 INTEGER INFOT, NOUTC
2185 LOGICAL OK
2187 COMMON /INFOC/INFOT, NOUTC, OK
2276 10 CONTINUE
2280 20 CONTINUE
2284 30 CONTINUE
2341 40 CONTINUE
2354 50 CONTINUE
2358 60 CONTINUE
2363 70 CONTINUE
2367 80 CONTINUE
2397 90 CONTINUE
2404 100 CONTINUE
2406 110 CONTINUE
2408 120 CONTINUE
2410 130 CONTINUE
2412 140 CONTINUE
2423 150 CONTINUE
2426 160 CONTINUE
2454 * End of ZCHK6. argument