102 SUBROUTINE schkqrtp( 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, t, l, 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
serrqrtp( path, nout )
174 DO l = 0, minmn, max( minmn, 1 )
183 IF( (nb.LE.n).AND.(nb.GT.0) )
THEN
184 CALL
sqrt05( 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 sqrt05(M, N, L, NB, RESULT)
SQRT05
subroutine alahd(IOUNIT, PATH)
ALAHD
subroutine serrqrtp(PATH, NUNIT)
SERRQRTP
subroutine alaerh(PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, N5, IMAT, NFAIL, NERRS, NOUT)
ALAERH
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
subroutine schkqrtp(THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
SCHKQRTP