Lines Matching defs:SCHK6
2131 SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
2145 REAL ZERO, HALF, ONE
2148 REAL EPS, THRESH
2149 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,
2150 $ IORDER
2151 LOGICAL FATAL, REWI, TRACE
2152 CHARACTER*12 SNAME
2154 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2155 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
2156 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
2157 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
2158 $ YY( NMAX*INCMAX ), Z( NMAX, 2 )
2159 INTEGER IDIM( NIDIM ), INC( NINC )
2161 REAL ALPHA, ALS, ERR, ERRMAX, TRANSL
2162 INTEGER I, IA, IC, IN, INCX, INCXS, INCY, INCYS, IX,
2163 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N,
2164 $ NARGS, NC, NS
2165 LOGICAL FULL, NULL, PACKED, RESET, SAME, UPPER
2166 CHARACTER*1 UPLO, UPLOS
2167 CHARACTER*14 CUPLO
2168 CHARACTER*2 ICH
2170 REAL W( 2 )
2171 LOGICAL ISAME( 13 )
2173 LOGICAL LSE, LSERES
2180 INTEGER INFOT, NOUTC
2181 LOGICAL OK
2183 COMMON /INFOC/INFOT, NOUTC, OK
2272 10 CONTINUE
2276 20 CONTINUE
2280 30 CONTINUE
2337 40 CONTINUE
2350 50 CONTINUE
2354 60 CONTINUE
2359 70 CONTINUE
2363 80 CONTINUE
2393 90 CONTINUE
2400 100 CONTINUE
2402 110 CONTINUE
2404 120 CONTINUE
2406 130 CONTINUE
2408 140 CONTINUE
2421 150 CONTINUE
2424 160 CONTINUE
2433 170 CONTINUE
2436 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2460 * End of SCHK6. argument