Lines Matching defs:SCHK3
1075 SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1088 REAL ZERO, HALF, ONE
1091 REAL EPS, THRESH
1092 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA
1093 LOGICAL FATAL, REWI, TRACE
1094 CHARACTER*6 SNAME
1096 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ),
1097 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1098 $ XS( NMAX*INCMAX ), XT( NMAX ),
1099 $ XX( NMAX*INCMAX ), Z( NMAX )
1100 INTEGER IDIM( NIDIM ), INC( NINC ), KB( NKB )
1102 REAL ERR, ERRMAX, TRANSL
1103 INTEGER I, ICD, ICT, ICU, IK, IN, INCX, INCXS, IX, K,
1104 $ KS, LAA, LDA, LDAS, LX, N, NARGS, NC, NK, NS
1105 LOGICAL BANDED, FULL, NULL, PACKED, RESET, SAME
1106 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1107 CHARACTER*2 ICHD, ICHU
1108 CHARACTER*3 ICHT
1110 LOGICAL ISAME( 13 )
1112 LOGICAL LSE, LSERES
1120 INTEGER INFOT, NOUTC
1121 LOGICAL LERR, OK
1123 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1145 10 CONTINUE
1220 20 CONTINUE
1224 30 CONTINUE
1337 40 CONTINUE
1361 50 CONTINUE
1376 60 CONTINUE
1378 70 CONTINUE
1380 80 CONTINUE
1382 90 CONTINUE
1384 100 CONTINUE
1386 110 CONTINUE
1397 120 CONTINUE
1429 * End of SCHK3. argument