102 SUBROUTINE schktsqr( 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, M, N, NB, NFAIL, NERRS, NRUN, INB,
132 REAL RESULT( ntests )
147 COMMON / infoc / infot, nunit, ok, lerr
148 COMMON / srnamc / srnamt
162 IF( tsterr )
CALL serrtsqr( path, nout )
174 IF (min(m,n).NE.0)
THEN
184 CALL stsqr01(
'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 stsqr01(
'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 alahd(IOUNIT, PATH)
ALAHD
subroutine schktsqr(THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
SCHKQRT
subroutine alaerh(PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, N5, IMAT, NFAIL, NERRS, NOUT)
ALAERH
subroutine serrtsqr(PATH, NUNIT)
DERRTSQR
subroutine xlaenv(ISPEC, NVALUE)
XLAENV
subroutine stsqr01(TSSW, M, N, MB, NB, RESULT)
STSQR01
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM