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 serrqrt(PATH, NUNIT)
SERRQRT
subroutine schkqrt(THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
SCHKQRT
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM