Lines Matching defs:DCHK3
1176 SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1189 DOUBLE PRECISION ZERO, HALF, ONE
1192 DOUBLE PRECISION EPS, THRESH
1193 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA,
1194 $ IORDER
1195 LOGICAL FATAL, REWI, TRACE
1196 CHARACTER*12 SNAME
1198 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ),
1199 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1200 $ XS( NMAX*INCMAX ), XT( NMAX ),
1201 $ XX( NMAX*INCMAX ), Z( NMAX )
1202 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
1204 DOUBLE PRECISION ERR, ERRMAX, TRANSL
1205 INTEGER I, ICD, ICT, ICU, IK, IN, INCX, INCXS, IX, K,
1206 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS
1207 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME
1208 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1209 CHARACTER*14 CUPLO,CTRANS,CDIAG
1210 CHARACTER*2 ICHD, ICHU
1211 CHARACTER*3 ICHT
1213 LOGICAL ISAME( 13 )
1215 LOGICAL LDE, LDERES
1223 INTEGER INFOT, NOUTC
1224 LOGICAL OK
1226 COMMON /INFOC/INFOT, NOUTC, OK
1248 10 CONTINUE
1340 20 CONTINUE
1344 30 CONTINUE
1457 40 CONTINUE
1481 50 CONTINUE
1496 60 CONTINUE
1498 70 CONTINUE
1500 80 CONTINUE
1502 90 CONTINUE
1504 100 CONTINUE
1506 110 CONTINUE
1519 120 CONTINUE
1532 130 CONTINUE
1535 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1560 * End of DCHK3. argument