102 SUBROUTINE dchklqt( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
113 INTEGER NM, NN, NNB, NOUT
114 DOUBLE PRECISION THRESH
117 INTEGER MVAL( * ), NBVAL( * ), NVAL( * )
124 parameter ( ntests = 6 )
128 INTEGER I, J, K, T, M, N, NB, NFAIL, NERRS, NRUN,
132 DOUBLE PRECISION RESULT( ntests )
143 COMMON / infoc / infot, nunit, ok, lerr
144 COMMON / srnamc / srnamt
158 IF( tsterr )
CALL derrlqt( path, nout )
179 IF( (nb.LE.minmn).AND.(nb.GT.0) )
THEN
180 CALL dlqt04( 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 alaerh(PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, N5, IMAT, NFAIL, NERRS, NOUT)
ALAERH
subroutine derrlqt(PATH, NUNIT)
DERLQT
subroutine dlqt04(M, N, NB, RESULT)
DLQT04
subroutine dchklqt(THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
DCHKLQT
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM