100 SUBROUTINE schkqrt( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
111 INTEGER NM, NN, NNB, NOUT
115 INTEGER MVAL( * ), NBVAL( * ), NVAL( * )
121 parameter( ntests = 6 )
125 INTEGER I, J, K, T, M, N, NB, NFAIL, NERRS, NRUN,
129 REAL RESULT( ntests )
140 COMMON / infoc / infot, nunit, ok, lerr
141 COMMON / srnamc / srnamt
155 IF( tsterr ) CALL
serrqrt( path, nout )
173 IF( (nb.LE.minmn).AND.(nb.GT.0) )
THEN
177 CALL
sqrt04( m, n, nb, result )
183 IF( result( t ).GE.thresh )
THEN
184 IF( nfail.EQ.0 .AND. nerrs.EQ.0 )
185 $ CALL
alahd( nout, path )
186 WRITE( nout, fmt = 9999 )m, n, nb,
199 CALL
alasum( path, nout, nfail, nrun, nerrs )
201 9999
FORMAT(
' M=', i5,
', N=', i5,
', NB=', i4,
202 $
' 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 sqrt04(M, N, NB, RESULT)
SQRT04
subroutine schkqrt(THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
SCHKQRT
subroutine serrqrt(PATH, NUNIT)
SERRQRT
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM