Lines Matching defs:SCHK3
907 SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, subroutine
922 REAL ZERO, ONE
925 REAL EPS, THRESH
926 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA
927 LOGICAL FATAL, REWI, TRACE
928 CHARACTER*6 SNAME
930 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
931 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
932 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
933 $ C( NMAX, NMAX ), CT( NMAX ), G( NMAX )
934 INTEGER IDIM( NIDIM )
936 REAL ALPHA, ALS, ERR, ERRMAX
937 INTEGER I, IA, ICD, ICS, ICT, ICU, IM, IN, J, LAA, LBB,
938 $ LDA, LDAS, LDB, LDBS, M, MS, N, NA, NARGS, NC,
939 $ NS
940 LOGICAL LEFT, NULL, RESET, SAME
941 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
942 $ UPLOS
943 CHARACTER*2 ICHD, ICHS, ICHU
944 CHARACTER*3 ICHT
946 LOGICAL ISAME( 13 )
948 LOGICAL LSE, LSERES
955 INTEGER INFOT, NOUTC
956 LOGICAL LERR, OK
958 COMMON /INFOC/INFOT, NOUTC, OK, LERR
971 10 CONTINUE
972 20 CONTINUE
1042 30 CONTINUE
1046 40 CONTINUE
1106 50 CONTINUE
1141 60 CONTINUE
1142 70 CONTINUE
1165 80 CONTINUE
1167 90 CONTINUE
1169 100 CONTINUE
1171 110 CONTINUE
1173 120 CONTINUE
1175 130 CONTINUE
1177 140 CONTINUE
1209 * End of SCHK3. argument