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 zqrt04(M, N, NB, RESULT)
ZQRT04
subroutine alahd(IOUNIT, PATH)
ALAHD
subroutine zchkqrt(THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
ZCHKQRT
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 zerrqrt(PATH, NUNIT)
ZERRQRT