197 SUBROUTINE sckgsv( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH,
198 $ nmax, a, af,
b, bf, u, v, q, alpha, beta, r,
199 $ iwork, work, rwork, nin, nout, info )
207 INTEGER info, nin, nm, nmats, nmax, nout
211 INTEGER iseed( 4 ), iwork( * ), mval( * ), nval( * ),
213 REAL a( * ), af( * ), alpha( * ),
b( * ), beta( * ),
214 $ bf( * ), q( * ), r( * ), rwork( * ), u( * ),
222 parameter( ntests = 7 )
224 parameter( ntypes = 8 )
228 CHARACTER dista, distb, type
230 INTEGER i, iinfo, im, imat, kla, klb, kua, kub, lda,
231 $ ldb, ldq, ldr, ldu, ldv, lwork, m, modea,
232 $ modeb, n, nfail, nrun, nt, p
233 REAL anorm, bnorm, cndnma, cndnmb
236 LOGICAL dotype( ntypes )
237 REAL result( ntests )
254 CALL
alareq( path, nmats, dotype, ntypes, nin, nout )
270 DO 20 imat = 1, ntypes
274 IF( .NOT.dotype( imat ) )
280 CALL
slatb9( path, imat, m, p, n, type, kla, kua, klb, kub,
281 $ anorm, bnorm, modea, modeb, cndnma, cndnmb,
286 CALL
slatms( m, n, dista, iseed, type, rwork, modea, cndnma,
287 $ anorm, kla, kua,
'No packing', a, lda, work,
289 IF( iinfo.NE.0 )
THEN
290 WRITE( nout, fmt = 9999 )iinfo
295 CALL
slatms( p, n, distb, iseed, type, rwork, modeb, cndnmb,
296 $ bnorm, klb, kub,
'No packing',
b, ldb, work,
298 IF( iinfo.NE.0 )
THEN
299 WRITE( nout, fmt = 9999 )iinfo
306 CALL
sgsvts( m, p, n, a, af, lda,
b, bf, ldb, u, ldu, v,
307 $ ldv, q, ldq, alpha, beta, r, ldr, iwork, work,
308 $ lwork, rwork, result )
314 IF( result( i ).GE.thresh )
THEN
315 IF( nfail.EQ.0 .AND. firstt )
THEN
319 WRITE( nout, fmt = 9998 )m, p, n, imat, i,
330 CALL
alasum( path, nout, nfail, nrun, 0 )
332 9999
FORMAT(
' SLATMS in SCKGSV INFO = ', i5 )
333 9998
FORMAT(
' M=', i4,
' P=', i4,
', N=', i4,
', type ', i2,
334 $
', test ', i2,
', ratio=', g13.6 )
subroutine alahdg(IOUNIT, PATH)
ALAHDG
subroutine slatms(M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, KL, KU, PACK, A, LDA, WORK, INFO)
SLATMS
subroutine sgsvts(M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, LWORK, RWORK, RESULT)
SGSVTS
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM
subroutine slatb9(PATH, IMAT, M, P, N, TYPE, KLA, KUA, KLB, KUB, ANORM, BNORM, MODEA, MODEB, CNDNMA, CNDNMB, DISTA, DISTB)
SLATB9
subroutine alareq(PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT)
ALAREQ
subroutine sckgsv(NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, IWORK, WORK, RWORK, NIN, NOUT, INFO)
SCKGSV