101 SUBROUTINE zchkqrt( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
112 INTEGER NM, NN, NNB, NOUT
113 DOUBLE PRECISION THRESH
116 INTEGER MVAL( * ), NBVAL( * ), NVAL( * )
123 parameter ( ntests = 6 )
127 INTEGER I, J, K, T, M, N, NB, NFAIL, NERRS, NRUN,
131 DOUBLE PRECISION RESULT( ntests )
142 COMMON / infoc / infot, nunit, ok, lerr
143 COMMON / srnamc / srnamt
157 IF( tsterr )
CALL zerrqrt( path, nout )
178 IF( (nb.LE.minmn).AND.(nb.GT.0) )
THEN
179 CALL zqrt04( m, n, nb, result )
185 IF( result( t ).GE.thresh )
THEN
186 IF( nfail.EQ.0 .AND. nerrs.EQ.0 )
187 $
CALL alahd( nout, path )
188 WRITE( nout, fmt = 9999 )m, n, nb,
201 CALL alasum( path, nout, nfail, nrun, nerrs )
203 9999
FORMAT(
' M=', i5,
', N=', i5,
', NB=', i4,
204 $
' test(', i2,
')=', g12.5 )
subroutine alahd(IOUNIT, PATH)
ALAHD
subroutine zqrt04(M, N, NB, RESULT)
ZQRT04
subroutine alaerh(PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, N5, IMAT, NFAIL, NERRS, NOUT)
ALAERH
subroutine zchkqrt(THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
ZCHKQRT
subroutine zerrqrt(PATH, NUNIT)
ZERRQRT
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM