102 SUBROUTINE dchktsqr( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB,
113 INTEGER NM, NN, NNB, NOUT
114 DOUBLE PRECISION THRESH
117 INTEGER MVAL( * ), NBVAL( * ), NVAL( * )
124 parameter ( ntests = 6 )
128 INTEGER I, J, K, T, M, N, NB, NFAIL, NERRS, NRUN, INB,
132 DOUBLE PRECISION RESULT( ntests )
147 COMMON / infoc / infot, nunit, ok, lerr
148 COMMON / srnamc / srnamt
162 IF( tsterr )
CALL derrtsqr( path, nout )
174 IF (min(m,n).NE.0)
THEN
184 CALL dtsqr01(
'TS', m, n, mb, 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, mb, nb,
214 IF (min(m,n).NE.0)
THEN
224 CALL dtsqr01(
'SW', m, n, mb, nb, result )
230 IF( result( t ).GE.thresh )
THEN
231 IF( nfail.EQ.0 .AND. nerrs.EQ.0 )
232 $
CALL alahd( nout, path )
233 WRITE( nout, fmt = 9998 )m, n, mb, nb,
247 CALL alasum( path, nout, nfail, nrun, nerrs )
249 9999
FORMAT(
'TS: M=', i5,
', N=', i5,
', MB=', i5,
250 $
', NB=', i5,
' test(', i2,
')=', g12.5 )
251 9998
FORMAT(
'SW: M=', i5,
', N=', i5,
', MB=', i5,
252 $
', NB=', i5,
' test(', i2,
')=', g12.5 )
subroutine derrtsqr(PATH, NUNIT)
DERRTSQR
subroutine alahd(IOUNIT, PATH)
ALAHD
subroutine alaerh(PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, N5, IMAT, NFAIL, NERRS, NOUT)
ALAERH
subroutine dtsqr01(TSSW, M, N, MB, NB, RESULT)
DTSQR01
subroutine xlaenv(ISPEC, NVALUE)
XLAENV
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM
subroutine dchktsqr(THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
DCHKQRT