77 INTEGER IP( NMAX ), IW( NMAX )
78 REAL B( NMAX ), C( NMAX ), CF( NMAX ), D( NMAX ),
79 $ DF( NMAX ), E( NMAX ), EF( NMAX ), F( NMAX ),
80 $ R1( NMAX ), R2( NMAX ), W( NMAX ), X( NMAX )
96 COMMON / infoc / infot, nout, ok, lerr
97 COMMON / srnamc / srnamt
102 WRITE( nout, fmt = * )
115 IF( lsamen( 2, c2,
'GT' ) )
THEN
123 CALL sgttrf( -1, c, d, e, f, ip, info )
124 CALL chkxer(
'SGTTRF', infot, nout, lerr, ok )
130 CALL sgttrs(
'/', 0, 0, c, d, e, f, ip, x, 1, info )
131 CALL chkxer(
'SGTTRS', infot, nout, lerr, ok )
133 CALL sgttrs(
'N', -1, 0, c, d, e, f, ip, x, 1, info )
134 CALL chkxer(
'SGTTRS', infot, nout, lerr, ok )
136 CALL sgttrs(
'N', 0, -1, c, d, e, f, ip, x, 1, info )
137 CALL chkxer(
'SGTTRS', infot, nout, lerr, ok )
139 CALL sgttrs(
'N', 2, 1, c, d, e, f, ip, x, 1, info )
140 CALL chkxer(
'SGTTRS', infot, nout, lerr, ok )
146 CALL sgtrfs(
'/', 0, 0, c, d, e, cf, df, ef, f, ip, b, 1, x, 1,
147 $ r1, r2, w, iw, info )
148 CALL chkxer(
'SGTRFS', infot, nout, lerr, ok )
150 CALL sgtrfs(
'N', -1, 0, c, d, e, cf, df, ef, f, ip, b, 1, x,
151 $ 1, r1, r2, w, iw, info )
152 CALL chkxer(
'SGTRFS', infot, nout, lerr, ok )
154 CALL sgtrfs(
'N', 0, -1, c, d, e, cf, df, ef, f, ip, b, 1, x,
155 $ 1, r1, r2, w, iw, info )
156 CALL chkxer(
'SGTRFS', infot, nout, lerr, ok )
158 CALL sgtrfs(
'N', 2, 1, c, d, e, cf, df, ef, f, ip, b, 1, x, 2,
159 $ r1, r2, w, iw, info )
160 CALL chkxer(
'SGTRFS', infot, nout, lerr, ok )
162 CALL sgtrfs(
'N', 2, 1, c, d, e, cf, df, ef, f, ip, b, 2, x, 1,
163 $ r1, r2, w, iw, info )
164 CALL chkxer(
'SGTRFS', infot, nout, lerr, ok )
170 CALL sgtcon(
'/', 0, c, d, e, f, ip, anorm, rcond, w, iw,
172 CALL chkxer(
'SGTCON', infot, nout, lerr, ok )
174 CALL sgtcon(
'I', -1, c, d, e, f, ip, anorm, rcond, w, iw,
176 CALL chkxer(
'SGTCON', infot, nout, lerr, ok )
178 CALL sgtcon(
'I', 0, c, d, e, f, ip, -anorm, rcond, w, iw,
180 CALL chkxer(
'SGTCON', infot, nout, lerr, ok )
182 ELSE IF( lsamen( 2, c2,
'PT' ) )
THEN
191 CALL spttrf( -1, d, e, info )
192 CALL chkxer(
'SPTTRF', infot, nout, lerr, ok )
198 CALL spttrs( -1, 0, d, e, x, 1, info )
199 CALL chkxer(
'SPTTRS', infot, nout, lerr, ok )
201 CALL spttrs( 0, -1, d, e, x, 1, info )
202 CALL chkxer(
'SPTTRS', infot, nout, lerr, ok )
204 CALL spttrs( 2, 1, d, e, x, 1, info )
205 CALL chkxer(
'SPTTRS', infot, nout, lerr, ok )
211 CALL sptrfs( -1, 0, d, e, df, ef, b, 1, x, 1, r1, r2, w, info )
212 CALL chkxer(
'SPTRFS', infot, nout, lerr, ok )
214 CALL sptrfs( 0, -1, d, e, df, ef, b, 1, x, 1, r1, r2, w, info )
215 CALL chkxer(
'SPTRFS', infot, nout, lerr, ok )
217 CALL sptrfs( 2, 1, d, e, df, ef, b, 1, x, 2, r1, r2, w, info )
218 CALL chkxer(
'SPTRFS', infot, nout, lerr, ok )
220 CALL sptrfs( 2, 1, d, e, df, ef, b, 2, x, 1, r1, r2, w, info )
221 CALL chkxer(
'SPTRFS', infot, nout, lerr, ok )
227 CALL sptcon( -1, d, e, anorm, rcond, w, info )
228 CALL chkxer(
'SPTCON', infot, nout, lerr, ok )
230 CALL sptcon( 0, d, e, -anorm, rcond, w, info )
231 CALL chkxer(
'SPTCON', infot, nout, lerr, ok )
236 CALL alaesm( path, ok, nout )