102 SUBROUTINE cchktsqr( 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 cerrtsqr( path, nout )
174 IF (min(m,n).NE.0)
THEN
184 CALL ctsqr01(
'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 ctsqr01(
'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 alaerh(PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, N5, IMAT, NFAIL, NERRS, NOUT)
ALAERH
subroutine cchktsqr(THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
CCHKQRT
subroutine xlaenv(ISPEC, NVALUE)
XLAENV
subroutine ctsqr01(TSSW, M, N, MB, NB, RESULT)
CTSQR01
subroutine cerrtsqr(PATH, NUNIT)
CERRTSQR
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM