102 SUBROUTINE schklqtp( 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, L, 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 serrlqtp( path, nout )
174 DO l = 0, minmn, max( minmn, 1 )
183 IF( (nb.LE.m).AND.(nb.GT.0) )
THEN
184 CALL slqt05( m, n, l, nb, result )
190 IF( result( t ).GE.thresh )
THEN
191 IF( nfail.EQ.0 .AND. nerrs.EQ.0 )
192 $
CALL alahd( nout, path )
193 WRITE( nout, fmt = 9999 )m, n, nb, l,
207 CALL alasum( path, nout, nfail, nrun, nerrs )
209 9999
FORMAT(
' M=', i5,
', N=', i5,
', NB=', i4,
' L=', i4,
210 $
' 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 dlqt04(M, N, NB, RESULT)
DLQT04
subroutine schklqtp(THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
SCHKLQTP
subroutine derrlqtp(PATH, NUNIT)
DERRLQTP
subroutine slqt05(M, N, L, NB, RESULT)
subroutine serrlqtp(PATH, NUNIT)
DERRLQTP
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM