77 INTEGER I, INFO, J, N_ERR_BNDS, NPARAMS
78 REAL RCOND, RPVGRW, BERR
81 INTEGER IP( nmax ), IW( nmax )
82 REAL A( nmax, nmax ), AF( nmax, nmax ), B( nmax ),
83 $ c( nmax ), r( nmax ), r1( nmax ), r2( nmax ),
84 $ w( 2*nmax ), x( nmax ), err_bnds_n( nmax, 3 ),
85 $ err_bnds_c( nmax, 3 ), params( 1 )
104 COMMON / infoc / infot, nout, ok, lerr
105 COMMON / srnamc / srnamt
113 WRITE( nout, fmt = * )
120 a( i, j ) = 1. /
REAL( i+j )
121 af( i, j ) = 1. /
REAL( i+j )
135 IF( lsamen( 2, c2,
'GE' ) )
THEN
141 CALL
sgesv( -1, 0, a, 1, ip, b, 1, info )
142 CALL
chkxer(
'SGESV ', infot, nout, lerr, ok )
144 CALL
sgesv( 0, -1, a, 1, ip, b, 1, info )
145 CALL
chkxer(
'SGESV ', infot, nout, lerr, ok )
147 CALL
sgesv( 2, 1, a, 1, ip, b, 2, info )
148 CALL
chkxer(
'SGESV ', infot, nout, lerr, ok )
150 CALL
sgesv( 2, 1, a, 2, ip, b, 1, info )
151 CALL
chkxer(
'SGESV ', infot, nout, lerr, ok )
157 CALL
sgesvx(
'/',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
158 $ x, 1, rcond, r1, r2, w, iw, info )
159 CALL
chkxer(
'SGESVX', infot, nout, lerr, ok )
161 CALL
sgesvx(
'N',
'/', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
162 $ x, 1, rcond, r1, r2, w, iw, info )
163 CALL
chkxer(
'SGESVX', infot, nout, lerr, ok )
165 CALL
sgesvx(
'N',
'N', -1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
166 $ x, 1, rcond, r1, r2, w, iw, info )
167 CALL
chkxer(
'SGESVX', infot, nout, lerr, ok )
169 CALL
sgesvx(
'N',
'N', 0, -1, a, 1, af, 1, ip, eq, r, c, b, 1,
170 $ x, 1, rcond, r1, r2, w, iw, info )
171 CALL
chkxer(
'SGESVX', infot, nout, lerr, ok )
173 CALL
sgesvx(
'N',
'N', 2, 1, a, 1, af, 2, ip, eq, r, c, b, 2,
174 $ x, 2, rcond, r1, r2, w, iw, info )
175 CALL
chkxer(
'SGESVX', infot, nout, lerr, ok )
177 CALL
sgesvx(
'N',
'N', 2, 1, a, 2, af, 1, ip, eq, r, c, b, 2,
178 $ x, 2, rcond, r1, r2, w, iw, info )
179 CALL
chkxer(
'SGESVX', infot, nout, lerr, ok )
182 CALL
sgesvx(
'F',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
183 $ x, 1, rcond, r1, r2, w, iw, info )
184 CALL
chkxer(
'SGESVX', infot, nout, lerr, ok )
187 CALL
sgesvx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
188 $ x, 1, rcond, r1, r2, w, iw, info )
189 CALL
chkxer(
'SGESVX', infot, nout, lerr, ok )
192 CALL
sgesvx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
193 $ x, 1, rcond, r1, r2, w, iw, info )
194 CALL
chkxer(
'SGESVX', infot, nout, lerr, ok )
196 CALL
sgesvx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c, b, 1,
197 $ x, 2, rcond, r1, r2, w, iw, info )
198 CALL
chkxer(
'SGESVX', infot, nout, lerr, ok )
200 CALL
sgesvx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c, b, 2,
201 $ x, 1, rcond, r1, r2, w, iw, info )
202 CALL
chkxer(
'SGESVX', infot, nout, lerr, ok )
210 CALL
sgesvxx(
'/',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
211 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
212 $ err_bnds_c, nparams, params, w, iw, info )
213 CALL
chkxer(
'SGESVXX', infot, nout, lerr, ok )
215 CALL
sgesvxx(
'N',
'/', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
216 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
217 $ err_bnds_c, nparams, params, w, iw, info )
218 CALL
chkxer(
'SGESVXX', infot, nout, lerr, ok )
220 CALL
sgesvxx(
'N',
'N', -1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
221 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
222 $ err_bnds_c, nparams, params, w, iw, info )
223 CALL
chkxer(
'SGESVXX', infot, nout, lerr, ok )
225 CALL
sgesvxx(
'N',
'N', 0, -1, a, 1, af, 1, ip, eq, r, c, b, 1,
226 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
227 $ err_bnds_c, nparams, params, w, iw, info )
228 CALL
chkxer(
'SGESVXX', infot, nout, lerr, ok )
230 CALL
sgesvxx(
'N',
'N', 2, 1, a, 1, af, 2, ip, eq, r, c, b, 2,
231 $ x, 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
232 $ err_bnds_c, nparams, params, w, iw, info )
233 CALL
chkxer(
'SGESVXX', infot, nout, lerr, ok )
235 CALL
sgesvxx(
'N',
'N', 2, 1, a, 2, af, 1, ip, eq, r, c, b, 2,
236 $ x, 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
237 $ err_bnds_c, nparams, params, w, iw, info )
238 CALL
chkxer(
'SGESVXX', infot, nout, lerr, ok )
241 CALL
sgesvxx(
'F',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
242 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
243 $ err_bnds_c, nparams, params, w, iw, info )
244 CALL
chkxer(
'SGESVXX', infot, nout, lerr, ok )
247 CALL
sgesvxx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
248 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
249 $ err_bnds_c, nparams, params, w, iw, info )
250 CALL
chkxer(
'SGESVXX', infot, nout, lerr, ok )
253 CALL
sgesvxx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
254 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
255 $ err_bnds_c, nparams, params, w, iw, info )
256 CALL
chkxer(
'SGESVXX', infot, nout, lerr, ok )
258 CALL
sgesvxx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c, b, 1,
259 $ x, 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
260 $ err_bnds_c, nparams, params, w, iw, info )
261 CALL
chkxer(
'SGESVXX', infot, nout, lerr, ok )
263 CALL
sgesvxx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c, b, 2,
264 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
265 $ err_bnds_c, nparams, params, w, iw, info )
266 CALL
chkxer(
'SGESVXX', infot, nout, lerr, ok )
268 ELSE IF( lsamen( 2, c2,
'GB' ) )
THEN
274 CALL
sgbsv( -1, 0, 0, 0, a, 1, ip, b, 1, info )
275 CALL
chkxer(
'SGBSV ', infot, nout, lerr, ok )
277 CALL
sgbsv( 1, -1, 0, 0, a, 1, ip, b, 1, info )
278 CALL
chkxer(
'SGBSV ', infot, nout, lerr, ok )
280 CALL
sgbsv( 1, 0, -1, 0, a, 1, ip, b, 1, info )
281 CALL
chkxer(
'SGBSV ', infot, nout, lerr, ok )
283 CALL
sgbsv( 0, 0, 0, -1, a, 1, ip, b, 1, info )
284 CALL
chkxer(
'SGBSV ', infot, nout, lerr, ok )
286 CALL
sgbsv( 1, 1, 1, 0, a, 3, ip, b, 1, info )
287 CALL
chkxer(
'SGBSV ', infot, nout, lerr, ok )
289 CALL
sgbsv( 2, 0, 0, 0, a, 1, ip, b, 1, info )
290 CALL
chkxer(
'SGBSV ', infot, nout, lerr, ok )
296 CALL
sgbsvx(
'/',
'N', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
297 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
298 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
300 CALL
sgbsvx(
'N',
'/', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
301 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
302 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
304 CALL
sgbsvx(
'N',
'N', -1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
305 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
306 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
308 CALL
sgbsvx(
'N',
'N', 1, -1, 0, 0, a, 1, af, 1, ip, eq, r, c,
309 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
310 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
312 CALL
sgbsvx(
'N',
'N', 1, 0, -1, 0, a, 1, af, 1, ip, eq, r, c,
313 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
314 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
316 CALL
sgbsvx(
'N',
'N', 0, 0, 0, -1, a, 1, af, 1, ip, eq, r, c,
317 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
318 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
320 CALL
sgbsvx(
'N',
'N', 1, 1, 1, 0, a, 2, af, 4, ip, eq, r, c,
321 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
322 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
324 CALL
sgbsvx(
'N',
'N', 1, 1, 1, 0, a, 3, af, 3, ip, eq, r, c,
325 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
326 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
329 CALL
sgbsvx(
'F',
'N', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
330 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
331 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
334 CALL
sgbsvx(
'F',
'N', 1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
335 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
336 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
339 CALL
sgbsvx(
'F',
'N', 1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
340 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
341 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
343 CALL
sgbsvx(
'N',
'N', 2, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
344 $ b, 1, x, 2, rcond, r1, r2, w, iw, info )
345 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
347 CALL
sgbsvx(
'N',
'N', 2, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
348 $ b, 2, x, 1, rcond, r1, r2, w, iw, info )
349 CALL
chkxer(
'SGBSVX', infot, nout, lerr, ok )
357 CALL
sgbsvxx(
'/',
'N', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
358 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
359 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
361 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
363 CALL
sgbsvxx(
'N',
'/', 0, 1, 1, 0, a, 1, af, 1, ip, eq, r, c,
364 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
365 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
367 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
369 CALL
sgbsvxx(
'N',
'N', -1, 1, 1, 0, a, 1, af, 1, ip, eq, r, c,
370 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
371 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
373 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
375 CALL
sgbsvxx(
'N',
'N', 2, -1, 1, 0, a, 1, af, 1, ip, eq,
376 $ r, c, b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
377 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
379 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
381 CALL
sgbsvxx(
'N',
'N', 2, 1, -1, 0, a, 1, af, 1, ip, eq,
382 $ r, c, b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
383 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
385 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
387 CALL
sgbsvxx(
'N',
'N', 0, 1, 1, -1, a, 1, af, 1, ip, eq, r, c,
388 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
389 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
391 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
393 CALL
sgbsvxx(
'N',
'N', 2, 1, 1, 1, a, 2, af, 2, ip, eq, r, c,
394 $ b, 2, x, 2, rcond, rpvgrw, berr, n_err_bnds,
395 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
397 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
399 CALL
sgbsvxx(
'N',
'N', 2, 1, 1, 1, a, 3, af, 3, ip, eq, r, c,
400 $ b, 2, x, 2, rcond, rpvgrw, berr, n_err_bnds,
401 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
403 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
406 CALL
sgbsvxx(
'F',
'N', 0, 1, 1, 0, a, 3, af, 4, ip, eq, r, c,
407 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
408 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
410 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
413 CALL
sgbsvxx(
'F',
'N', 1, 1, 1, 0, a, 3, af, 4, ip, eq, r, c,
414 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
415 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
417 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
420 CALL
sgbsvxx(
'F',
'N', 1, 1, 1, 0, a, 3, af, 4, ip, eq, r, c,
421 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
422 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
424 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
426 CALL
sgbsvxx(
'N',
'N', 2, 1, 1, 1, a, 3, af, 4, ip, eq, r, c,
427 $ b, 1, x, 2, rcond, rpvgrw, berr, n_err_bnds,
428 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
430 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
432 CALL
sgbsvxx(
'N',
'N', 2, 1, 1, 1, a, 3, af, 4, ip, eq, r, c,
433 $ b, 2, x, 1, rcond, rpvgrw, berr, n_err_bnds,
434 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
436 CALL
chkxer(
'SGBSVXX', infot, nout, lerr, ok )
438 ELSE IF( lsamen( 2, c2,
'GT' ) )
THEN
444 CALL
sgtsv( -1, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1,
446 CALL
chkxer(
'SGTSV ', infot, nout, lerr, ok )
448 CALL
sgtsv( 0, -1, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1,
450 CALL
chkxer(
'SGTSV ', infot, nout, lerr, ok )
452 CALL
sgtsv( 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1, info )
453 CALL
chkxer(
'SGTSV ', infot, nout, lerr, ok )
459 CALL
sgtsvx(
'/',
'N', 0, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
460 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
461 $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
462 CALL
chkxer(
'SGTSVX', infot, nout, lerr, ok )
464 CALL
sgtsvx(
'N',
'/', 0, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
465 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
466 $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
467 CALL
chkxer(
'SGTSVX', infot, nout, lerr, ok )
469 CALL
sgtsvx(
'N',
'N', -1, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
470 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
471 $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
472 CALL
chkxer(
'SGTSVX', infot, nout, lerr, ok )
474 CALL
sgtsvx(
'N',
'N', 0, -1, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
475 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
476 $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
477 CALL
chkxer(
'SGTSVX', infot, nout, lerr, ok )
479 CALL
sgtsvx(
'N',
'N', 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
480 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
481 $ ip, b, 1, x, 2, rcond, r1, r2, w, iw, info )
482 CALL
chkxer(
'SGTSVX', infot, nout, lerr, ok )
484 CALL
sgtsvx(
'N',
'N', 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
485 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
486 $ ip, b, 2, x, 1, rcond, r1, r2, w, iw, info )
487 CALL
chkxer(
'SGTSVX', infot, nout, lerr, ok )
489 ELSE IF( lsamen( 2, c2,
'PO' ) )
THEN
495 CALL
sposv(
'/', 0, 0, a, 1, b, 1, info )
496 CALL
chkxer(
'SPOSV ', infot, nout, lerr, ok )
498 CALL
sposv(
'U', -1, 0, a, 1, b, 1, info )
499 CALL
chkxer(
'SPOSV ', infot, nout, lerr, ok )
501 CALL
sposv(
'U', 0, -1, a, 1, b, 1, info )
502 CALL
chkxer(
'SPOSV ', infot, nout, lerr, ok )
504 CALL
sposv(
'U', 2, 0, a, 1, b, 2, info )
505 CALL
chkxer(
'SPOSV ', infot, nout, lerr, ok )
507 CALL
sposv(
'U', 2, 0, a, 2, b, 1, info )
508 CALL
chkxer(
'SPOSV ', infot, nout, lerr, ok )
514 CALL
sposvx(
'/',
'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
515 $ rcond, r1, r2, w, iw, info )
516 CALL
chkxer(
'SPOSVX', infot, nout, lerr, ok )
518 CALL
sposvx(
'N',
'/', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
519 $ rcond, r1, r2, w, iw, info )
520 CALL
chkxer(
'SPOSVX', infot, nout, lerr, ok )
522 CALL
sposvx(
'N',
'U', -1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
523 $ rcond, r1, r2, w, iw, info )
524 CALL
chkxer(
'SPOSVX', infot, nout, lerr, ok )
526 CALL
sposvx(
'N',
'U', 0, -1, a, 1, af, 1, eq, c, b, 1, x, 1,
527 $ rcond, r1, r2, w, iw, info )
528 CALL
chkxer(
'SPOSVX', infot, nout, lerr, ok )
530 CALL
sposvx(
'N',
'U', 2, 0, a, 1, af, 2, eq, c, b, 2, x, 2,
531 $ rcond, r1, r2, w, iw, info )
532 CALL
chkxer(
'SPOSVX', infot, nout, lerr, ok )
534 CALL
sposvx(
'N',
'U', 2, 0, a, 2, af, 1, eq, c, b, 2, x, 2,
535 $ rcond, r1, r2, w, iw, info )
536 CALL
chkxer(
'SPOSVX', infot, nout, lerr, ok )
539 CALL
sposvx(
'F',
'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
540 $ rcond, r1, r2, w, iw, info )
541 CALL
chkxer(
'SPOSVX', infot, nout, lerr, ok )
544 CALL
sposvx(
'F',
'U', 1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
545 $ rcond, r1, r2, w, iw, info )
546 CALL
chkxer(
'SPOSVX', infot, nout, lerr, ok )
548 CALL
sposvx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c, b, 1, x, 2,
549 $ rcond, r1, r2, w, iw, info )
550 CALL
chkxer(
'SPOSVX', infot, nout, lerr, ok )
552 CALL
sposvx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c, b, 2, x, 1,
553 $ rcond, r1, r2, w, iw, info )
554 CALL
chkxer(
'SPOSVX', infot, nout, lerr, ok )
562 CALL
sposvxx(
'/',
'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
563 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
564 $ err_bnds_c, nparams, params, w, iw, info )
565 CALL
chkxer(
'SPOSVXX', infot, nout, lerr, ok )
567 CALL
sposvxx(
'N',
'/', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
568 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
569 $ err_bnds_c, nparams, params, w, iw, info )
570 CALL
chkxer(
'SPOSVXX', infot, nout, lerr, ok )
572 CALL
sposvxx(
'N',
'U', -1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
573 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
574 $ err_bnds_c, nparams, params, w, iw, info )
575 CALL
chkxer(
'SPOSVXX', infot, nout, lerr, ok )
577 CALL
sposvxx(
'N',
'U', 0, -1, a, 1, af, 1, eq, c, b, 1, x, 1,
578 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
579 $ err_bnds_c, nparams, params, w, iw, info )
580 CALL
chkxer(
'SPOSVXX', infot, nout, lerr, ok )
582 CALL
sposvxx(
'N',
'U', 2, 0, a, 1, af, 2, eq, c, b, 2, x, 2,
583 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
584 $ err_bnds_c, nparams, params, w, iw, info )
585 CALL
chkxer(
'SPOSVXX', infot, nout, lerr, ok )
587 CALL
sposvxx(
'N',
'U', 2, 0, a, 2, af, 1, eq, c, b, 2, x, 2,
588 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
589 $ err_bnds_c, nparams, params, w, iw, info )
590 CALL
chkxer(
'SPOSVXX', infot, nout, lerr, ok )
593 CALL
sposvxx(
'F',
'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
594 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
595 $ err_bnds_c, nparams, params, w, iw, info )
596 CALL
chkxer(
'SPOSVXX', infot, nout, lerr, ok )
599 CALL
sposvxx(
'F',
'U', 1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
600 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
601 $ err_bnds_c, nparams, params, w, iw, info )
602 CALL
chkxer(
'SPOSVXX', infot, nout, lerr, ok )
604 CALL
sposvxx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c, b, 1, x, 2,
605 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
606 $ err_bnds_c, nparams, params, w, iw, info )
607 CALL
chkxer(
'SPOSVXX', infot, nout, lerr, ok )
609 CALL
sposvxx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c, b, 2, x, 1,
610 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
611 $ err_bnds_c, nparams, params, w, iw, info )
612 CALL
chkxer(
'SPOSVXX', infot, nout, lerr, ok )
614 ELSE IF( lsamen( 2, c2,
'PP' ) )
THEN
620 CALL
sppsv(
'/', 0, 0, a, b, 1, info )
621 CALL
chkxer(
'SPPSV ', infot, nout, lerr, ok )
623 CALL
sppsv(
'U', -1, 0, a, b, 1, info )
624 CALL
chkxer(
'SPPSV ', infot, nout, lerr, ok )
626 CALL
sppsv(
'U', 0, -1, a, b, 1, info )
627 CALL
chkxer(
'SPPSV ', infot, nout, lerr, ok )
629 CALL
sppsv(
'U', 2, 0, a, b, 1, info )
630 CALL
chkxer(
'SPPSV ', infot, nout, lerr, ok )
636 CALL
sppsvx(
'/',
'U', 0, 0, a, af, eq, c, b, 1, x, 1, rcond,
637 $ r1, r2, w, iw, info )
638 CALL
chkxer(
'SPPSVX', infot, nout, lerr, ok )
640 CALL
sppsvx(
'N',
'/', 0, 0, a, af, eq, c, b, 1, x, 1, rcond,
641 $ r1, r2, w, iw, info )
642 CALL
chkxer(
'SPPSVX', infot, nout, lerr, ok )
644 CALL
sppsvx(
'N',
'U', -1, 0, a, af, eq, c, b, 1, x, 1, rcond,
645 $ r1, r2, w, iw, info )
646 CALL
chkxer(
'SPPSVX', infot, nout, lerr, ok )
648 CALL
sppsvx(
'N',
'U', 0, -1, a, af, eq, c, b, 1, x, 1, rcond,
649 $ r1, r2, w, iw, info )
650 CALL
chkxer(
'SPPSVX', infot, nout, lerr, ok )
653 CALL
sppsvx(
'F',
'U', 0, 0, a, af, eq, c, b, 1, x, 1, rcond,
654 $ r1, r2, w, iw, info )
655 CALL
chkxer(
'SPPSVX', infot, nout, lerr, ok )
658 CALL
sppsvx(
'F',
'U', 1, 0, a, af, eq, c, b, 1, x, 1, rcond,
659 $ r1, r2, w, iw, info )
660 CALL
chkxer(
'SPPSVX', infot, nout, lerr, ok )
662 CALL
sppsvx(
'N',
'U', 2, 0, a, af, eq, c, b, 1, x, 2, rcond,
663 $ r1, r2, w, iw, info )
664 CALL
chkxer(
'SPPSVX', infot, nout, lerr, ok )
666 CALL
sppsvx(
'N',
'U', 2, 0, a, af, eq, c, b, 2, x, 1, rcond,
667 $ r1, r2, w, iw, info )
668 CALL
chkxer(
'SPPSVX', infot, nout, lerr, ok )
670 ELSE IF( lsamen( 2, c2,
'PB' ) )
THEN
676 CALL
spbsv(
'/', 0, 0, 0, a, 1, b, 1, info )
677 CALL
chkxer(
'SPBSV ', infot, nout, lerr, ok )
679 CALL
spbsv(
'U', -1, 0, 0, a, 1, b, 1, info )
680 CALL
chkxer(
'SPBSV ', infot, nout, lerr, ok )
682 CALL
spbsv(
'U', 1, -1, 0, a, 1, b, 1, info )
683 CALL
chkxer(
'SPBSV ', infot, nout, lerr, ok )
685 CALL
spbsv(
'U', 0, 0, -1, a, 1, b, 1, info )
686 CALL
chkxer(
'SPBSV ', infot, nout, lerr, ok )
688 CALL
spbsv(
'U', 1, 1, 0, a, 1, b, 2, info )
689 CALL
chkxer(
'SPBSV ', infot, nout, lerr, ok )
691 CALL
spbsv(
'U', 2, 0, 0, a, 1, b, 1, info )
692 CALL
chkxer(
'SPBSV ', infot, nout, lerr, ok )
698 CALL
spbsvx(
'/',
'U', 0, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
699 $ rcond, r1, r2, w, iw, info )
700 CALL
chkxer(
'SPBSVX', infot, nout, lerr, ok )
702 CALL
spbsvx(
'N',
'/', 0, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
703 $ rcond, r1, r2, w, iw, info )
704 CALL
chkxer(
'SPBSVX', infot, nout, lerr, ok )
706 CALL
spbsvx(
'N',
'U', -1, 0, 0, a, 1, af, 1, eq, c, b, 1, x,
707 $ 1, rcond, r1, r2, w, iw, info )
708 CALL
chkxer(
'SPBSVX', infot, nout, lerr, ok )
710 CALL
spbsvx(
'N',
'U', 1, -1, 0, a, 1, af, 1, eq, c, b, 1, x,
711 $ 1, rcond, r1, r2, w, iw, info )
712 CALL
chkxer(
'SPBSVX', infot, nout, lerr, ok )
714 CALL
spbsvx(
'N',
'U', 0, 0, -1, a, 1, af, 1, eq, c, b, 1, x,
715 $ 1, rcond, r1, r2, w, iw, info )
716 CALL
chkxer(
'SPBSVX', infot, nout, lerr, ok )
718 CALL
spbsvx(
'N',
'U', 1, 1, 0, a, 1, af, 2, eq, c, b, 2, x, 2,
719 $ rcond, r1, r2, w, iw, info )
720 CALL
chkxer(
'SPBSVX', infot, nout, lerr, ok )
722 CALL
spbsvx(
'N',
'U', 1, 1, 0, a, 2, af, 1, eq, c, b, 2, x, 2,
723 $ rcond, r1, r2, w, iw, info )
724 CALL
chkxer(
'SPBSVX', infot, nout, lerr, ok )
727 CALL
spbsvx(
'F',
'U', 0, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
728 $ rcond, r1, r2, w, iw, info )
729 CALL
chkxer(
'SPBSVX', infot, nout, lerr, ok )
732 CALL
spbsvx(
'F',
'U', 1, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
733 $ rcond, r1, r2, w, iw, info )
734 CALL
chkxer(
'SPBSVX', infot, nout, lerr, ok )
736 CALL
spbsvx(
'N',
'U', 2, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 2,
737 $ rcond, r1, r2, w, iw, info )
738 CALL
chkxer(
'SPBSVX', infot, nout, lerr, ok )
740 CALL
spbsvx(
'N',
'U', 2, 0, 0, a, 1, af, 1, eq, c, b, 2, x, 1,
741 $ rcond, r1, r2, w, iw, info )
742 CALL
chkxer(
'SPBSVX', infot, nout, lerr, ok )
744 ELSE IF( lsamen( 2, c2,
'PT' ) )
THEN
750 CALL
sptsv( -1, 0, a( 1, 1 ), a( 1, 2 ), b, 1, info )
751 CALL
chkxer(
'SPTSV ', infot, nout, lerr, ok )
753 CALL
sptsv( 0, -1, a( 1, 1 ), a( 1, 2 ), b, 1, info )
754 CALL
chkxer(
'SPTSV ', infot, nout, lerr, ok )
756 CALL
sptsv( 2, 0, a( 1, 1 ), a( 1, 2 ), b, 1, info )
757 CALL
chkxer(
'SPTSV ', infot, nout, lerr, ok )
763 CALL
sptsvx(
'/', 0, 0, a( 1, 1 ), a( 1, 2 ), af( 1, 1 ),
764 $ af( 1, 2 ), b, 1, x, 1, rcond, r1, r2, w, info )
765 CALL
chkxer(
'SPTSVX', infot, nout, lerr, ok )
767 CALL
sptsvx(
'N', -1, 0, a( 1, 1 ), a( 1, 2 ), af( 1, 1 ),
768 $ af( 1, 2 ), b, 1, x, 1, rcond, r1, r2, w, info )
769 CALL
chkxer(
'SPTSVX', infot, nout, lerr, ok )
771 CALL
sptsvx(
'N', 0, -1, a( 1, 1 ), a( 1, 2 ), af( 1, 1 ),
772 $ af( 1, 2 ), b, 1, x, 1, rcond, r1, r2, w, info )
773 CALL
chkxer(
'SPTSVX', infot, nout, lerr, ok )
775 CALL
sptsvx(
'N', 2, 0, a( 1, 1 ), a( 1, 2 ), af( 1, 1 ),
776 $ af( 1, 2 ), b, 1, x, 2, rcond, r1, r2, w, info )
777 CALL
chkxer(
'SPTSVX', infot, nout, lerr, ok )
779 CALL
sptsvx(
'N', 2, 0, a( 1, 1 ), a( 1, 2 ), af( 1, 1 ),
780 $ af( 1, 2 ), b, 2, x, 1, rcond, r1, r2, w, info )
781 CALL
chkxer(
'SPTSVX', infot, nout, lerr, ok )
783 ELSE IF( lsamen( 2, c2,
'SY' ) )
THEN
789 CALL
ssysv(
'/', 0, 0, a, 1, ip, b, 1, w, 1, info )
790 CALL
chkxer(
'SSYSV ', infot, nout, lerr, ok )
792 CALL
ssysv(
'U', -1, 0, a, 1, ip, b, 1, w, 1, info )
793 CALL
chkxer(
'SSYSV ', infot, nout, lerr, ok )
795 CALL
ssysv(
'U', 0, -1, a, 1, ip, b, 1, w, 1, info )
796 CALL
chkxer(
'SSYSV ', infot, nout, lerr, ok )
798 CALL
ssysv(
'U', 2, 0, a, 2, ip, b, 1, w, 1, info )
799 CALL
chkxer(
'SSYSV ', infot, nout, lerr, ok )
805 CALL
ssysvx(
'/',
'U', 0, 0, a, 1, af, 1, ip, b, 1, x, 1,
806 $ rcond, r1, r2, w, 1, iw, info )
807 CALL
chkxer(
'SSYSVX', infot, nout, lerr, ok )
809 CALL
ssysvx(
'N',
'/', 0, 0, a, 1, af, 1, ip, b, 1, x, 1,
810 $ rcond, r1, r2, w, 1, iw, info )
811 CALL
chkxer(
'SSYSVX', infot, nout, lerr, ok )
813 CALL
ssysvx(
'N',
'U', -1, 0, a, 1, af, 1, ip, b, 1, x, 1,
814 $ rcond, r1, r2, w, 1, iw, info )
815 CALL
chkxer(
'SSYSVX', infot, nout, lerr, ok )
817 CALL
ssysvx(
'N',
'U', 0, -1, a, 1, af, 1, ip, b, 1, x, 1,
818 $ rcond, r1, r2, w, 1, iw, info )
819 CALL
chkxer(
'SSYSVX', infot, nout, lerr, ok )
821 CALL
ssysvx(
'N',
'U', 2, 0, a, 1, af, 2, ip, b, 2, x, 2,
822 $ rcond, r1, r2, w, 4, iw, info )
823 CALL
chkxer(
'SSYSVX', infot, nout, lerr, ok )
825 CALL
ssysvx(
'N',
'U', 2, 0, a, 2, af, 1, ip, b, 2, x, 2,
826 $ rcond, r1, r2, w, 4, iw, info )
827 CALL
chkxer(
'SSYSVX', infot, nout, lerr, ok )
829 CALL
ssysvx(
'N',
'U', 2, 0, a, 2, af, 2, ip, b, 1, x, 2,
830 $ rcond, r1, r2, w, 4, iw, info )
831 CALL
chkxer(
'SSYSVX', infot, nout, lerr, ok )
833 CALL
ssysvx(
'N',
'U', 2, 0, a, 2, af, 2, ip, b, 2, x, 1,
834 $ rcond, r1, r2, w, 4, iw, info )
835 CALL
chkxer(
'SSYSVX', infot, nout, lerr, ok )
837 CALL
ssysvx(
'N',
'U', 2, 0, a, 2, af, 2, ip, b, 2, x, 2,
838 $ rcond, r1, r2, w, 3, iw, info )
839 CALL
chkxer(
'SSYSVX', infot, nout, lerr, ok )
848 CALL
ssysvxx(
'/',
'U', 0, 0, a, 1, af, 1, ip, eq, r, b, 1, x,
849 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
850 $ err_bnds_c, nparams, params, w, iw, info )
851 CALL
chkxer(
'SSYSVXX', infot, nout, lerr, ok )
853 CALL
ssysvxx(
'N',
'/', 0, 0, a, 1, af, 1, ip, eq, r, b, 1, x,
854 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
855 $ err_bnds_c, nparams, params, w, iw, info )
856 CALL
chkxer(
'SSYSVXX', infot, nout, lerr, ok )
858 CALL
ssysvxx(
'N',
'U', -1, 0, a, 1, af, 1, ip, eq, r, b, 1, x,
859 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
860 $ err_bnds_c, nparams, params, w, iw, info )
861 CALL
chkxer(
'SSYSVXX', infot, nout, lerr, ok )
864 CALL
ssysvxx(
'N',
'U', 0, -1, a, 1, af, 1, ip, eq, r, b, 1, x,
865 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
866 $ err_bnds_c, nparams, params, w, iw, info )
867 CALL
chkxer(
'SSYSVXX', infot, nout, lerr, ok )
870 CALL
ssysvxx(
'N',
'U', 2, 0, a, 1, af, 2, ip, eq, r, b, 2, x,
871 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
872 $ err_bnds_c, nparams, params, w, iw, info )
873 CALL
chkxer(
'SSYSVXX', infot, nout, lerr, ok )
875 CALL
ssysvxx(
'N',
'U', 2, 0, a, 2, af, 1, ip, eq, r, b, 2, x,
876 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
877 $ err_bnds_c, nparams, params, w, iw, info )
878 CALL
chkxer(
'SSYSVXX', infot, nout, lerr, ok )
881 CALL
ssysvxx(
'N',
'U', 2, 0, a, 2, af, 2, ip, eq, r, b, 1, x,
882 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
883 $ err_bnds_c, nparams, params, w, iw, info )
884 CALL
chkxer(
'SSYSVXX', infot, nout, lerr, ok )
886 CALL
ssysvxx(
'N',
'U', 2, 0, a, 2, af, 2, ip, eq, r, b, 2, x,
887 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
888 $ err_bnds_c, nparams, params, w, iw, info )
889 CALL
chkxer(
'SSYSVXX', infot, nout, lerr, ok )
893 srnamt =
'SSYSV_ROOK'
895 CALL
ssysv_rook(
'/', 0, 0, a, 1, ip, b, 1, w, 1, info )
896 CALL
chkxer(
'SSYSV_ROOK', infot, nout, lerr, ok )
898 CALL
ssysv_rook(
'U', -1, 0, a, 1, ip, b, 1, w, 1, info )
899 CALL
chkxer(
'SSYSV_ROOK', infot, nout, lerr, ok )
901 CALL
ssysv_rook(
'U', 0, -1, a, 1, ip, b, 1, w, 1, info )
902 CALL
chkxer(
'SSYSV_ROOK', infot, nout, lerr, ok )
904 CALL
ssysv_rook(
'U', 2, 0, a, 2, ip, b, 1, w, 1, info )
905 CALL
chkxer(
'SSYSV_ROOK', infot, nout, lerr, ok )
907 ELSE IF( lsamen( 2, c2,
'SP' ) )
THEN
913 CALL
sspsv(
'/', 0, 0, a, ip, b, 1, info )
914 CALL
chkxer(
'SSPSV ', infot, nout, lerr, ok )
916 CALL
sspsv(
'U', -1, 0, a, ip, b, 1, info )
917 CALL
chkxer(
'SSPSV ', infot, nout, lerr, ok )
919 CALL
sspsv(
'U', 0, -1, a, ip, b, 1, info )
920 CALL
chkxer(
'SSPSV ', infot, nout, lerr, ok )
922 CALL
sspsv(
'U', 2, 0, a, ip, b, 1, info )
923 CALL
chkxer(
'SSPSV ', infot, nout, lerr, ok )
929 CALL
sspsvx(
'/',
'U', 0, 0, a, af, ip, b, 1, x, 1, rcond, r1,
931 CALL
chkxer(
'SSPSVX', infot, nout, lerr, ok )
933 CALL
sspsvx(
'N',
'/', 0, 0, a, af, ip, b, 1, x, 1, rcond, r1,
935 CALL
chkxer(
'SSPSVX', infot, nout, lerr, ok )
937 CALL
sspsvx(
'N',
'U', -1, 0, a, af, ip, b, 1, x, 1, rcond, r1,
939 CALL
chkxer(
'SSPSVX', infot, nout, lerr, ok )
941 CALL
sspsvx(
'N',
'U', 0, -1, a, af, ip, b, 1, x, 1, rcond, r1,
943 CALL
chkxer(
'SSPSVX', infot, nout, lerr, ok )
945 CALL
sspsvx(
'N',
'U', 2, 0, a, af, ip, b, 1, x, 2, rcond, r1,
947 CALL
chkxer(
'SSPSVX', infot, nout, lerr, ok )
949 CALL
sspsvx(
'N',
'U', 2, 0, a, af, ip, b, 2, x, 1, rcond, r1,
951 CALL
chkxer(
'SSPSVX', infot, nout, lerr, ok )
957 WRITE( nout, fmt = 9999 )path
959 WRITE( nout, fmt = 9998 )path
962 9999
FORMAT( 1x, a3,
' drivers passed the tests of the error exits' )
963 9998
FORMAT(
' *** ', a3,
' drivers failed the tests of the error ',
subroutine sptsv(N, NRHS, D, E, B, LDB, INFO)
SPTSV computes the solution to system of linear equations A * X = B for PT matrices ...
subroutine ssysv(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
SSYSV computes the solution to system of linear equations A * X = B for SY matrices ...
subroutine sppsvx(FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SPPSVX computes the solution to system of linear equations A * X = B for OTHER matrices ...
subroutine sposvxx(FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, INFO)
SPOSVXX computes the solution to system of linear equations A * X = B for PO matrices ...
subroutine sgtsv(N, NRHS, DL, D, DU, B, LDB, INFO)
SGTSV computes the solution to system of linear equations A * X = B for GT matrices ...
subroutine sposv(UPLO, N, NRHS, A, LDA, B, LDB, INFO)
SPOSV computes the solution to system of linear equations A * X = B for PO matrices ...
subroutine sspsvx(FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SSPSVX computes the solution to system of linear equations A * X = B for OTHER matrices ...
subroutine sgesv(N, NRHS, A, LDA, IPIV, B, LDB, INFO)
SGESV computes the solution to system of linear equations A * X = B for GE matrices (simple driver) ...
subroutine sgesvx(FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SGESVX computes the solution to system of linear equations A * X = B for GE matrices ...
subroutine sppsv(UPLO, N, NRHS, AP, B, LDB, INFO)
SPPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...
subroutine spbsv(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
SPBSV computes the solution to system of linear equations A * X = B for OTHER matrices ...
subroutine sgbsvx(FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SGBSVX computes the solution to system of linear equations A * X = B for GB matrices ...
subroutine ssysvx(FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, IWORK, INFO)
SSYSVX computes the solution to system of linear equations A * X = B for SY matrices ...
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
subroutine sgbsv(N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO)
SGBSV computes the solution to system of linear equations A * X = B for GB matrices (simple driver) ...
subroutine ssysvxx(FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, EQUED, S, B, LDB, X, LDX, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, INFO)
SSYSVXX
subroutine sposvx(FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SPOSVX computes the solution to system of linear equations A * X = B for PO matrices ...
subroutine sspsv(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
SSPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...
subroutine sgbsvxx(FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, INFO)
SGBSVXX computes the solution to system of linear equations A * X = B for GB matrices ...
subroutine sgtsvx(FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SGTSVX computes the solution to system of linear equations A * X = B for GT matrices ...
subroutine sptsvx(FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, INFO)
SPTSVX computes the solution to system of linear equations A * X = B for PT matrices ...
subroutine sgesvxx(FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, EQUED, R, C, B, LDB, X, LDX, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, INFO)
SGESVXX computes the solution to system of linear equations A * X = B for GE matrices ...
subroutine spbsvx(FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SPBSVX computes the solution to system of linear equations A * X = B for OTHER matrices ...
subroutine serrvx(PATH, NUNIT)
SERRVX
subroutine ssysv_rook(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
SSYSV_ROOK computes the solution to system of linear equations A * X = B for SY matrices ...