Lines Matching defs:DCHK3
1051 SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
1066 DOUBLE PRECISION ZERO, ONE
1069 DOUBLE PRECISION EPS, THRESH
1070 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER
1071 LOGICAL FATAL, REWI, TRACE
1072 CHARACTER*12 SNAME
1074 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1075 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1076 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
1077 $ C( NMAX, NMAX ), CT( NMAX ), G( NMAX )
1078 INTEGER IDIM( NIDIM )
1080 DOUBLE PRECISION ALPHA, ALS, ERR, ERRMAX
1081 INTEGER I, IA, ICD, ICS, ICT, ICU, IM, IN, J, LAA, LBB,
1082 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,
1083 $ NS
1084 LOGICAL LEFT, NULL, RESET, SAME
1085 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
1086 $ UPLOS
1087 CHARACTER*2 ICHD, ICHS, ICHU
1088 CHARACTER*3 ICHT
1090 LOGICAL ISAME( 13 )
1092 LOGICAL LDE, LDERES
1099 INTEGER INFOT, NOUTC
1100 LOGICAL OK
1102 COMMON /INFOC/INFOT, NOUTC, OK
1115 10 CONTINUE
1116 20 CONTINUE
1186 30 CONTINUE
1190 40 CONTINUE
1252 50 CONTINUE
1287 60 CONTINUE
1288 70 CONTINUE
1311 80 CONTINUE
1313 90 CONTINUE
1315 100 CONTINUE
1317 110 CONTINUE
1319 120 CONTINUE
1321 130 CONTINUE
1323 140 CONTINUE
1336 150 CONTINUE
1362 * End of DCHK3. argument