102 SUBROUTINE cchkqrt( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
113 INTEGER NM, NN, NNB, NOUT
117 INTEGER MVAL( * ), NBVAL( * ), NVAL( * )
124 parameter( ntests = 6 )
128 INTEGER I, J, K, T, M, N, NB, NFAIL, NERRS, NRUN,
132 REAL RESULT( ntests )
143 COMMON / infoc / infot, nunit, ok, lerr
144 COMMON / srnamc / srnamt
158 IF( tsterr ) CALL
cerrqrt( path, nout )
179 IF( (nb.LE.minmn).AND.(nb.GT.0) )
THEN
180 CALL
cqrt04( m, n, nb, result )
186 IF( result( t ).GE.thresh )
THEN
187 IF( nfail.EQ.0 .AND. nerrs.EQ.0 )
188 $ CALL
alahd( nout, path )
189 WRITE( nout, fmt = 9999 )m, n, nb,
202 CALL
alasum( path, nout, nfail, nrun, nerrs )
204 9999
FORMAT(
' M=', i5,
', N=', i5,
', NB=', i4,
205 $
' test(', i2,
')=', g12.5 )
subroutine alahd(IOUNIT, PATH)
ALAHD
subroutine cerrqrt(PATH, NUNIT)
CERRQRT
subroutine alaerh(PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, N5, IMAT, NFAIL, NERRS, NOUT)
ALAERH
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM
subroutine cqrt04(M, N, NB, RESULT)
CQRT04
subroutine cchkqrt(THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
CCHKQRT