102 SUBROUTINE zchktsqr( 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 zerrtsqr( path, nout )
174 IF (min(m,n).NE.0)
THEN
184 CALL ztsqr01(
'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 ztsqr01(
'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 zerrtsqr(PATH, NUNIT)
ZERRTSQR
subroutine ztsqr01(TSSW, M, N, MB, NB, RESULT)
ZTSQR01
subroutine zchktsqr(THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, NBVAL, NOUT)
DCHKQRT
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM