56 SUBROUTINE serrvx( PATH, NUNIT )
72 parameter ( nmax = 4 )
74 parameter ( one = 1.0e+0 )
79 INTEGER i, info, j, n_err_bnds, nparams
80 REAL rcond, rpvgrw, berr
83 INTEGER ip( nmax ), iw( nmax )
84 REAL a( nmax, nmax ), af( nmax, nmax ), b( nmax ),
85 $ c( nmax ), e( nmax ), r( nmax ), r1( nmax ),
86 $ r2( nmax ), w( 2*nmax ), x( nmax ),
87 $ err_bnds_n( nmax, 3 ), err_bnds_c( nmax, 3 ),
107 COMMON / infoc / infot, nout, ok, lerr
108 COMMON / srnamc / srnamt
116 WRITE( nout, fmt = * )
123 a( i, j ) = 1. /
REAL( i+j )
124 af( i, j ) = 1. /
REAL( i+j )
139 IF(
lsamen( 2, c2,
'GE' ) )
THEN
145 CALL sgesv( -1, 0, a, 1, ip, b, 1, info )
146 CALL chkxer(
'SGESV ', infot, nout, lerr, ok )
148 CALL sgesv( 0, -1, a, 1, ip, b, 1, info )
149 CALL chkxer(
'SGESV ', infot, nout, lerr, ok )
151 CALL sgesv( 2, 1, a, 1, ip, b, 2, info )
152 CALL chkxer(
'SGESV ', infot, nout, lerr, ok )
154 CALL sgesv( 2, 1, a, 2, ip, b, 1, info )
155 CALL chkxer(
'SGESV ', 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',
'/', 0, 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', -1, 0, 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', 0, -1, a, 1, af, 1, ip, eq, r, c, b, 1,
174 $ x, 1, rcond, r1, r2, w, iw, info )
175 CALL chkxer(
'SGESVX', infot, nout, lerr, ok )
177 CALL sgesvx(
'N',
'N', 2, 1, a, 1, af, 2, ip, eq, r, c, b, 2,
178 $ x, 2, rcond, r1, r2, w, iw, info )
179 CALL chkxer(
'SGESVX', infot, nout, lerr, ok )
181 CALL sgesvx(
'N',
'N', 2, 1, a, 2, af, 1, ip, eq, r, c, b, 2,
182 $ x, 2, rcond, r1, r2, w, iw, info )
183 CALL chkxer(
'SGESVX', infot, nout, lerr, ok )
186 CALL sgesvx(
'F',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
187 $ x, 1, rcond, r1, r2, w, iw, info )
188 CALL chkxer(
'SGESVX', infot, nout, lerr, ok )
191 CALL sgesvx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
192 $ x, 1, rcond, r1, r2, w, iw, info )
193 CALL chkxer(
'SGESVX', infot, nout, lerr, ok )
196 CALL sgesvx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
197 $ x, 1, 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, 1,
201 $ x, 2, rcond, r1, r2, w, iw, info )
202 CALL chkxer(
'SGESVX', infot, nout, lerr, ok )
204 CALL sgesvx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c, b, 2,
205 $ x, 1, rcond, r1, r2, w, iw, info )
206 CALL chkxer(
'SGESVX', infot, nout, lerr, ok )
214 CALL sgesvxx(
'/',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
215 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
216 $ err_bnds_c, nparams, params, w, iw, info )
217 CALL chkxer(
'SGESVXX', infot, nout, lerr, ok )
219 CALL sgesvxx(
'N',
'/', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
220 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
221 $ err_bnds_c, nparams, params, w, iw, info )
222 CALL chkxer(
'SGESVXX', infot, nout, lerr, ok )
224 CALL sgesvxx(
'N',
'N', -1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
225 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
226 $ err_bnds_c, nparams, params, w, iw, info )
227 CALL chkxer(
'SGESVXX', infot, nout, lerr, ok )
229 CALL sgesvxx(
'N',
'N', 0, -1, a, 1, af, 1, ip, eq, r, c, b, 1,
230 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
231 $ err_bnds_c, nparams, params, w, iw, info )
232 CALL chkxer(
'SGESVXX', infot, nout, lerr, ok )
234 CALL sgesvxx(
'N',
'N', 2, 1, a, 1, af, 2, ip, eq, r, c, b, 2,
235 $ x, 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
236 $ err_bnds_c, nparams, params, w, iw, info )
237 CALL chkxer(
'SGESVXX', infot, nout, lerr, ok )
239 CALL sgesvxx(
'N',
'N', 2, 1, a, 2, af, 1, ip, eq, r, c, b, 2,
240 $ x, 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
241 $ err_bnds_c, nparams, params, w, iw, info )
242 CALL chkxer(
'SGESVXX', infot, nout, lerr, ok )
245 CALL sgesvxx(
'F',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
246 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
247 $ err_bnds_c, nparams, params, w, iw, info )
248 CALL chkxer(
'SGESVXX', infot, nout, lerr, ok )
251 CALL sgesvxx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
252 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
253 $ err_bnds_c, nparams, params, w, iw, info )
254 CALL chkxer(
'SGESVXX', infot, nout, lerr, ok )
257 CALL sgesvxx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
258 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
259 $ err_bnds_c, nparams, params, w, iw, info )
260 CALL chkxer(
'SGESVXX', infot, nout, lerr, ok )
262 CALL sgesvxx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c, b, 1,
263 $ x, 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
264 $ err_bnds_c, nparams, params, w, iw, info )
265 CALL chkxer(
'SGESVXX', infot, nout, lerr, ok )
267 CALL sgesvxx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c, b, 2,
268 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
269 $ err_bnds_c, nparams, params, w, iw, info )
270 CALL chkxer(
'SGESVXX', infot, nout, lerr, ok )
272 ELSE IF(
lsamen( 2, c2,
'GB' ) )
THEN
278 CALL sgbsv( -1, 0, 0, 0, a, 1, ip, b, 1, info )
279 CALL chkxer(
'SGBSV ', infot, nout, lerr, ok )
281 CALL sgbsv( 1, -1, 0, 0, a, 1, ip, b, 1, info )
282 CALL chkxer(
'SGBSV ', infot, nout, lerr, ok )
284 CALL sgbsv( 1, 0, -1, 0, a, 1, ip, b, 1, info )
285 CALL chkxer(
'SGBSV ', infot, nout, lerr, ok )
287 CALL sgbsv( 0, 0, 0, -1, a, 1, ip, b, 1, info )
288 CALL chkxer(
'SGBSV ', infot, nout, lerr, ok )
290 CALL sgbsv( 1, 1, 1, 0, a, 3, ip, b, 1, info )
291 CALL chkxer(
'SGBSV ', infot, nout, lerr, ok )
293 CALL sgbsv( 2, 0, 0, 0, a, 1, ip, b, 1, info )
294 CALL chkxer(
'SGBSV ', 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',
'/', 0, 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, 0, 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, -1, 0, 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', 1, 0, -1, 0, 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', 0, 0, 0, -1, a, 1, af, 1, 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, 2, af, 4, ip, eq, r, c,
325 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
326 CALL chkxer(
'SGBSVX', infot, nout, lerr, ok )
328 CALL sgbsvx(
'N',
'N', 1, 1, 1, 0, a, 3, af, 3, ip, eq, r, c,
329 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
330 CALL chkxer(
'SGBSVX', infot, nout, lerr, ok )
333 CALL sgbsvx(
'F',
'N', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
334 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
335 CALL chkxer(
'SGBSVX', infot, nout, lerr, ok )
338 CALL sgbsvx(
'F',
'N', 1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
339 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
340 CALL chkxer(
'SGBSVX', infot, nout, lerr, ok )
343 CALL sgbsvx(
'F',
'N', 1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
344 $ b, 1, x, 1, 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, 1, x, 2, rcond, r1, r2, w, iw, info )
349 CALL chkxer(
'SGBSVX', infot, nout, lerr, ok )
351 CALL sgbsvx(
'N',
'N', 2, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
352 $ b, 2, x, 1, rcond, r1, r2, w, iw, info )
353 CALL chkxer(
'SGBSVX', infot, nout, lerr, ok )
361 CALL sgbsvxx(
'/',
'N', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
362 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
363 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
365 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
367 CALL sgbsvxx(
'N',
'/', 0, 1, 1, 0, a, 1, af, 1, ip, eq, r, c,
368 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
369 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
371 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
373 CALL sgbsvxx(
'N',
'N', -1, 1, 1, 0, a, 1, af, 1, ip, eq, r, c,
374 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
375 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
377 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
379 CALL sgbsvxx(
'N',
'N', 2, -1, 1, 0, a, 1, af, 1, ip, eq,
380 $ r, c, b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
381 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
383 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
385 CALL sgbsvxx(
'N',
'N', 2, 1, -1, 0, a, 1, af, 1, ip, eq,
386 $ r, c, b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
387 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
389 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
391 CALL sgbsvxx(
'N',
'N', 0, 1, 1, -1, a, 1, af, 1, ip, eq, r, c,
392 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
393 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
395 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
397 CALL sgbsvxx(
'N',
'N', 2, 1, 1, 1, a, 2, af, 2, ip, eq, r, c,
398 $ b, 2, x, 2, rcond, rpvgrw, berr, n_err_bnds,
399 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
401 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
403 CALL sgbsvxx(
'N',
'N', 2, 1, 1, 1, a, 3, af, 3, ip, eq, r, c,
404 $ b, 2, x, 2, rcond, rpvgrw, berr, n_err_bnds,
405 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
407 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
410 CALL sgbsvxx(
'F',
'N', 0, 1, 1, 0, a, 3, af, 4, ip, eq, r, c,
411 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
412 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
414 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
417 CALL sgbsvxx(
'F',
'N', 1, 1, 1, 0, a, 3, af, 4, ip, eq, r, c,
418 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
419 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
421 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
424 CALL sgbsvxx(
'F',
'N', 1, 1, 1, 0, a, 3, af, 4, ip, eq, r, c,
425 $ b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
426 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
428 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
430 CALL sgbsvxx(
'N',
'N', 2, 1, 1, 1, a, 3, af, 4, ip, eq, r, c,
431 $ b, 1, x, 2, rcond, rpvgrw, berr, n_err_bnds,
432 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
434 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
436 CALL sgbsvxx(
'N',
'N', 2, 1, 1, 1, a, 3, af, 4, ip, eq, r, c,
437 $ b, 2, x, 1, rcond, rpvgrw, berr, n_err_bnds,
438 $ err_bnds_n, err_bnds_c, nparams, params, w, iw,
440 CALL chkxer(
'SGBSVXX', infot, nout, lerr, ok )
442 ELSE IF(
lsamen( 2, c2,
'GT' ) )
THEN
448 CALL sgtsv( -1, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1,
450 CALL chkxer(
'SGTSV ', infot, nout, lerr, ok )
452 CALL sgtsv( 0, -1, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1,
454 CALL chkxer(
'SGTSV ', infot, nout, lerr, ok )
456 CALL sgtsv( 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1, info )
457 CALL chkxer(
'SGTSV ', infot, nout, lerr, ok )
463 CALL sgtsvx(
'/',
'N', 0, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
464 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
465 $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
466 CALL chkxer(
'SGTSVX', infot, nout, lerr, ok )
468 CALL sgtsvx(
'N',
'/', 0, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
469 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
470 $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
471 CALL chkxer(
'SGTSVX', infot, nout, lerr, ok )
473 CALL sgtsvx(
'N',
'N', -1, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
474 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
475 $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
476 CALL chkxer(
'SGTSVX', infot, nout, lerr, ok )
478 CALL sgtsvx(
'N',
'N', 0, -1, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
479 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
480 $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
481 CALL chkxer(
'SGTSVX', infot, nout, lerr, ok )
483 CALL sgtsvx(
'N',
'N', 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
484 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
485 $ ip, b, 1, x, 2, rcond, r1, r2, w, iw, info )
486 CALL chkxer(
'SGTSVX', infot, nout, lerr, ok )
488 CALL sgtsvx(
'N',
'N', 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
489 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
490 $ ip, b, 2, x, 1, rcond, r1, r2, w, iw, info )
491 CALL chkxer(
'SGTSVX', infot, nout, lerr, ok )
493 ELSE IF(
lsamen( 2, c2,
'PO' ) )
THEN
499 CALL sposv(
'/', 0, 0, a, 1, b, 1, info )
500 CALL chkxer(
'SPOSV ', infot, nout, lerr, ok )
502 CALL sposv(
'U', -1, 0, a, 1, b, 1, info )
503 CALL chkxer(
'SPOSV ', infot, nout, lerr, ok )
505 CALL sposv(
'U', 0, -1, a, 1, b, 1, info )
506 CALL chkxer(
'SPOSV ', infot, nout, lerr, ok )
508 CALL sposv(
'U', 2, 0, a, 1, b, 2, info )
509 CALL chkxer(
'SPOSV ', infot, nout, lerr, ok )
511 CALL sposv(
'U', 2, 0, a, 2, b, 1, info )
512 CALL chkxer(
'SPOSV ', infot, nout, lerr, ok )
518 CALL sposvx(
'/',
'U', 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',
'/', 0, 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', -1, 0, 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', 0, -1, a, 1, af, 1, eq, c, b, 1, x, 1,
531 $ rcond, r1, r2, w, iw, info )
532 CALL chkxer(
'SPOSVX', infot, nout, lerr, ok )
534 CALL sposvx(
'N',
'U', 2, 0, a, 1, af, 2, eq, c, b, 2, x, 2,
535 $ rcond, r1, r2, w, iw, info )
536 CALL chkxer(
'SPOSVX', infot, nout, lerr, ok )
538 CALL sposvx(
'N',
'U', 2, 0, a, 2, af, 1, eq, c, b, 2, x, 2,
539 $ rcond, r1, r2, w, iw, info )
540 CALL chkxer(
'SPOSVX', infot, nout, lerr, ok )
543 CALL sposvx(
'F',
'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
544 $ rcond, r1, r2, w, iw, info )
545 CALL chkxer(
'SPOSVX', infot, nout, lerr, ok )
548 CALL sposvx(
'F',
'U', 1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
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, 1, x, 2,
553 $ rcond, r1, r2, w, iw, info )
554 CALL chkxer(
'SPOSVX', infot, nout, lerr, ok )
556 CALL sposvx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c, b, 2, x, 1,
557 $ rcond, r1, r2, w, iw, info )
558 CALL chkxer(
'SPOSVX', infot, nout, lerr, ok )
566 CALL sposvxx(
'/',
'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
567 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
568 $ err_bnds_c, nparams, params, w, iw, info )
569 CALL chkxer(
'SPOSVXX', infot, nout, lerr, ok )
571 CALL sposvxx(
'N',
'/', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
572 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
573 $ err_bnds_c, nparams, params, w, iw, info )
574 CALL chkxer(
'SPOSVXX', infot, nout, lerr, ok )
576 CALL sposvxx(
'N',
'U', -1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
577 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
578 $ err_bnds_c, nparams, params, w, iw, info )
579 CALL chkxer(
'SPOSVXX', infot, nout, lerr, ok )
581 CALL sposvxx(
'N',
'U', 0, -1, a, 1, af, 1, eq, c, b, 1, x, 1,
582 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
583 $ err_bnds_c, nparams, params, w, iw, info )
584 CALL chkxer(
'SPOSVXX', infot, nout, lerr, ok )
586 CALL sposvxx(
'N',
'U', 2, 0, a, 1, af, 2, eq, c, b, 2, x, 2,
587 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
588 $ err_bnds_c, nparams, params, w, iw, info )
589 CALL chkxer(
'SPOSVXX', infot, nout, lerr, ok )
591 CALL sposvxx(
'N',
'U', 2, 0, a, 2, af, 1, eq, c, b, 2, x, 2,
592 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
593 $ err_bnds_c, nparams, params, w, iw, info )
594 CALL chkxer(
'SPOSVXX', infot, nout, lerr, ok )
597 CALL sposvxx(
'F',
'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
598 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
599 $ err_bnds_c, nparams, params, w, iw, info )
600 CALL chkxer(
'SPOSVXX', infot, nout, lerr, ok )
603 CALL sposvxx(
'F',
'U', 1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
604 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
605 $ err_bnds_c, nparams, params, w, iw, info )
606 CALL chkxer(
'SPOSVXX', infot, nout, lerr, ok )
608 CALL sposvxx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c, b, 1, x, 2,
609 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
610 $ err_bnds_c, nparams, params, w, iw, info )
611 CALL chkxer(
'SPOSVXX', infot, nout, lerr, ok )
613 CALL sposvxx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c, b, 2, x, 1,
614 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
615 $ err_bnds_c, nparams, params, w, iw, info )
616 CALL chkxer(
'SPOSVXX', infot, nout, lerr, ok )
618 ELSE IF(
lsamen( 2, c2,
'PP' ) )
THEN
624 CALL sppsv(
'/', 0, 0, a, b, 1, info )
625 CALL chkxer(
'SPPSV ', infot, nout, lerr, ok )
627 CALL sppsv(
'U', -1, 0, a, b, 1, info )
628 CALL chkxer(
'SPPSV ', infot, nout, lerr, ok )
630 CALL sppsv(
'U', 0, -1, a, b, 1, info )
631 CALL chkxer(
'SPPSV ', infot, nout, lerr, ok )
633 CALL sppsv(
'U', 2, 0, a, b, 1, info )
634 CALL chkxer(
'SPPSV ', infot, nout, lerr, ok )
640 CALL sppsvx(
'/',
'U', 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',
'/', 0, 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', -1, 0, a, af, eq, c, b, 1, x, 1, rcond,
649 $ r1, r2, w, iw, info )
650 CALL chkxer(
'SPPSVX', infot, nout, lerr, ok )
652 CALL sppsvx(
'N',
'U', 0, -1, a, af, eq, c, b, 1, x, 1, rcond,
653 $ r1, r2, w, iw, info )
654 CALL chkxer(
'SPPSVX', infot, nout, lerr, ok )
657 CALL sppsvx(
'F',
'U', 0, 0, a, af, eq, c, b, 1, x, 1, rcond,
658 $ r1, r2, w, iw, info )
659 CALL chkxer(
'SPPSVX', infot, nout, lerr, ok )
662 CALL sppsvx(
'F',
'U', 1, 0, a, af, eq, c, b, 1, x, 1, 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, 1, x, 2, rcond,
667 $ r1, r2, w, iw, info )
668 CALL chkxer(
'SPPSVX', infot, nout, lerr, ok )
670 CALL sppsvx(
'N',
'U', 2, 0, a, af, eq, c, b, 2, x, 1, rcond,
671 $ r1, r2, w, iw, info )
672 CALL chkxer(
'SPPSVX', infot, nout, lerr, ok )
674 ELSE IF(
lsamen( 2, c2,
'PB' ) )
THEN
680 CALL spbsv(
'/', 0, 0, 0, a, 1, b, 1, info )
681 CALL chkxer(
'SPBSV ', infot, nout, lerr, ok )
683 CALL spbsv(
'U', -1, 0, 0, a, 1, b, 1, info )
684 CALL chkxer(
'SPBSV ', infot, nout, lerr, ok )
686 CALL spbsv(
'U', 1, -1, 0, a, 1, b, 1, info )
687 CALL chkxer(
'SPBSV ', infot, nout, lerr, ok )
689 CALL spbsv(
'U', 0, 0, -1, a, 1, b, 1, info )
690 CALL chkxer(
'SPBSV ', infot, nout, lerr, ok )
692 CALL spbsv(
'U', 1, 1, 0, a, 1, b, 2, info )
693 CALL chkxer(
'SPBSV ', infot, nout, lerr, ok )
695 CALL spbsv(
'U', 2, 0, 0, a, 1, b, 1, info )
696 CALL chkxer(
'SPBSV ', infot, nout, lerr, ok )
702 CALL spbsvx(
'/',
'U', 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',
'/', 0, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
707 $ rcond, r1, r2, w, iw, info )
708 CALL chkxer(
'SPBSVX', infot, nout, lerr, ok )
710 CALL spbsvx(
'N',
'U', -1, 0, 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', 1, -1, 0, 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', 0, 0, -1, a, 1, af, 1, eq, c, b, 1, x,
719 $ 1, rcond, r1, r2, w, iw, info )
720 CALL chkxer(
'SPBSVX', infot, nout, lerr, ok )
722 CALL spbsvx(
'N',
'U', 1, 1, 0, a, 1, af, 2, eq, c, b, 2, x, 2,
723 $ rcond, r1, r2, w, iw, info )
724 CALL chkxer(
'SPBSVX', infot, nout, lerr, ok )
726 CALL spbsvx(
'N',
'U', 1, 1, 0, a, 2, af, 1, eq, c, b, 2, x, 2,
727 $ rcond, r1, r2, w, iw, info )
728 CALL chkxer(
'SPBSVX', infot, nout, lerr, ok )
731 CALL spbsvx(
'F',
'U', 0, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
732 $ rcond, r1, r2, w, iw, info )
733 CALL chkxer(
'SPBSVX', infot, nout, lerr, ok )
736 CALL spbsvx(
'F',
'U', 1, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
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, 1, x, 2,
741 $ rcond, r1, r2, w, iw, info )
742 CALL chkxer(
'SPBSVX', infot, nout, lerr, ok )
744 CALL spbsvx(
'N',
'U', 2, 0, 0, a, 1, af, 1, eq, c, b, 2, x, 1,
745 $ rcond, r1, r2, w, iw, info )
746 CALL chkxer(
'SPBSVX', infot, nout, lerr, ok )
748 ELSE IF(
lsamen( 2, c2,
'PT' ) )
THEN
754 CALL sptsv( -1, 0, a( 1, 1 ), a( 1, 2 ), b, 1, info )
755 CALL chkxer(
'SPTSV ', infot, nout, lerr, ok )
757 CALL sptsv( 0, -1, a( 1, 1 ), a( 1, 2 ), b, 1, info )
758 CALL chkxer(
'SPTSV ', infot, nout, lerr, ok )
760 CALL sptsv( 2, 0, a( 1, 1 ), a( 1, 2 ), b, 1, info )
761 CALL chkxer(
'SPTSV ', infot, nout, lerr, ok )
767 CALL sptsvx(
'/', 0, 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', -1, 0, 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', 0, -1, a( 1, 1 ), a( 1, 2 ), af( 1, 1 ),
776 $ af( 1, 2 ), b, 1, x, 1, 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, 1, x, 2, rcond, r1, r2, w, info )
781 CALL chkxer(
'SPTSVX', infot, nout, lerr, ok )
783 CALL sptsvx(
'N', 2, 0, a( 1, 1 ), a( 1, 2 ), af( 1, 1 ),
784 $ af( 1, 2 ), b, 2, x, 1, rcond, r1, r2, w, info )
785 CALL chkxer(
'SPTSVX', infot, nout, lerr, ok )
787 ELSE IF(
lsamen( 2, c2,
'SY' ) )
THEN
793 CALL ssysv(
'/', 0, 0, a, 1, ip, b, 1, w, 1, info )
794 CALL chkxer(
'SSYSV ', infot, nout, lerr, ok )
796 CALL ssysv(
'U', -1, 0, a, 1, ip, b, 1, w, 1, info )
797 CALL chkxer(
'SSYSV ', infot, nout, lerr, ok )
799 CALL ssysv(
'U', 0, -1, a, 1, ip, b, 1, w, 1, info )
800 CALL chkxer(
'SSYSV ', infot, nout, lerr, ok )
802 CALL ssysv(
'U', 2, 0, a, 2, ip, b, 1, w, 1, info )
803 CALL chkxer(
'SSYSV ', infot, nout, lerr, ok )
805 CALL ssysv(
'U', 0, 0, a, 1, ip, b, 1, w, 0, info )
806 CALL chkxer(
'SSYSV ', infot, nout, lerr, ok )
808 CALL ssysv(
'U', 0, 0, a, 1, ip, b, 1, w, -2, info )
809 CALL chkxer(
'SSYSV ', infot, nout, lerr, ok )
815 CALL ssysvx(
'/',
'U', 0, 0, a, 1, af, 1, ip, b, 1, x, 1,
816 $ rcond, r1, r2, w, 1, iw, info )
817 CALL chkxer(
'SSYSVX', infot, nout, lerr, ok )
819 CALL ssysvx(
'N',
'/', 0, 0, a, 1, af, 1, ip, b, 1, x, 1,
820 $ rcond, r1, r2, w, 1, iw, info )
821 CALL chkxer(
'SSYSVX', infot, nout, lerr, ok )
823 CALL ssysvx(
'N',
'U', -1, 0, a, 1, af, 1, ip, b, 1, x, 1,
824 $ rcond, r1, r2, w, 1, iw, info )
825 CALL chkxer(
'SSYSVX', infot, nout, lerr, ok )
827 CALL ssysvx(
'N',
'U', 0, -1, a, 1, af, 1, ip, b, 1, x, 1,
828 $ rcond, r1, r2, w, 1, iw, info )
829 CALL chkxer(
'SSYSVX', infot, nout, lerr, ok )
831 CALL ssysvx(
'N',
'U', 2, 0, a, 1, af, 2, ip, b, 2, x, 2,
832 $ rcond, r1, r2, w, 4, iw, info )
833 CALL chkxer(
'SSYSVX', infot, nout, lerr, ok )
835 CALL ssysvx(
'N',
'U', 2, 0, a, 2, af, 1, ip, b, 2, x, 2,
836 $ rcond, r1, r2, w, 4, iw, info )
837 CALL chkxer(
'SSYSVX', infot, nout, lerr, ok )
839 CALL ssysvx(
'N',
'U', 2, 0, a, 2, af, 2, ip, b, 1, x, 2,
840 $ rcond, r1, r2, w, 4, iw, info )
841 CALL chkxer(
'SSYSVX', infot, nout, lerr, ok )
843 CALL ssysvx(
'N',
'U', 2, 0, a, 2, af, 2, ip, b, 2, x, 1,
844 $ rcond, r1, r2, w, 4, iw, info )
845 CALL chkxer(
'SSYSVX', infot, nout, lerr, ok )
847 CALL ssysvx(
'N',
'U', 2, 0, a, 2, af, 2, ip, b, 2, x, 2,
848 $ rcond, r1, r2, w, 3, iw, info )
849 CALL chkxer(
'SSYSVX', infot, nout, lerr, ok )
858 CALL ssysvxx(
'/',
'U', 0, 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 )
863 CALL ssysvxx(
'N',
'/', 0, 0, a, 1, af, 1, ip, eq, r, b, 1, x,
864 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
865 $ err_bnds_c, nparams, params, w, iw, info )
866 CALL chkxer(
'SSYSVXX', infot, nout, lerr, ok )
868 CALL ssysvxx(
'N',
'U', -1, 0, a, 1, af, 1, ip, eq, r, b, 1, x,
869 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
870 $ err_bnds_c, nparams, params, w, iw, info )
871 CALL chkxer(
'SSYSVXX', infot, nout, lerr, ok )
874 CALL ssysvxx(
'N',
'U', 0, -1, a, 1, af, 1, ip, eq, r, b, 1, x,
875 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
876 $ err_bnds_c, nparams, params, w, iw, info )
877 CALL chkxer(
'SSYSVXX', infot, nout, lerr, ok )
880 CALL ssysvxx(
'N',
'U', 2, 0, a, 1, af, 2, ip, eq, r, b, 2, x,
881 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
882 $ err_bnds_c, nparams, params, w, iw, info )
883 CALL chkxer(
'SSYSVXX', infot, nout, lerr, ok )
885 CALL ssysvxx(
'N',
'U', 2, 0, a, 2, af, 1, ip, eq, r, b, 2, x,
886 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
887 $ err_bnds_c, nparams, params, w, iw, info )
888 CALL chkxer(
'SSYSVXX', infot, nout, lerr, ok )
890 CALL ssysvxx(
'F',
'U', 2, 0, a, 2, af, 2, ip,
'A', r, b, 2, x,
891 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
892 $ err_bnds_c, nparams, params, w, iw, info )
893 CALL chkxer(
'SSYSVXX', infot, nout, lerr, ok )
896 CALL ssysvxx(
'F',
'U', 2, 0, a, 2, af, 2, ip, eq, r, b, 2, x,
897 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
898 $ err_bnds_c, nparams, params, w, iw, info )
899 CALL chkxer(
'SSYSVXX', infot, nout, lerr, ok )
903 CALL ssysvxx(
'F',
'U', 2, 0, a, 2, af, 2, ip, eq, r, b, 2, x,
904 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
905 $ err_bnds_c, nparams, params, w, iw, info )
906 CALL chkxer(
'SSYSVXX', infot, nout, lerr, ok )
909 CALL ssysvxx(
'N',
'U', 2, 0, a, 2, af, 2, ip, eq, r, b, 1, x,
910 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
911 $ err_bnds_c, nparams, params, w, iw, info )
912 CALL chkxer(
'SSYSVXX', infot, nout, lerr, ok )
914 CALL ssysvxx(
'N',
'U', 2, 0, a, 2, af, 2, ip, eq, r, b, 2, x,
915 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
916 $ err_bnds_c, nparams, params, w, iw, info )
917 CALL chkxer(
'SSYSVXX', infot, nout, lerr, ok )
919 ELSE IF(
lsamen( 2, c2,
'SR' ) )
THEN
923 srnamt =
'SSYSV_ROOK'
925 CALL ssysv_rook(
'/', 0, 0, a, 1, ip, b, 1, w, 1, info )
926 CALL chkxer(
'SSYSV_ROOK', infot, nout, lerr, ok )
928 CALL ssysv_rook(
'U', -1, 0, a, 1, ip, b, 1, w, 1, info )
929 CALL chkxer(
'SSYSV_ROOK', infot, nout, lerr, ok )
931 CALL ssysv_rook(
'U', 0, -1, a, 1, ip, b, 1, w, 1, info )
932 CALL chkxer(
'SSYSV_ROOK', infot, nout, lerr, ok )
934 CALL ssysv_rook(
'U', 2, 0, a, 2, ip, b, 1, w, 1, info )
935 CALL chkxer(
'SSYSV_ROOK', infot, nout, lerr, ok )
937 CALL ssysv_rook(
'U', 0, 0, a, 1, ip, b, 1, w, 0, info )
938 CALL chkxer(
'SSYSV_ROOK', infot, nout, lerr, ok )
940 CALL ssysv_rook(
'U', 0, 0, a, 1, ip, b, 1, w, -2, info )
941 CALL chkxer(
'SSYSV_ROOK', infot, nout, lerr, ok )
943 ELSE IF(
lsamen( 2, c2,
'SK' ) )
THEN
957 CALL ssysv_rk(
'/', 0, 0, a, 1, e, ip, b, 1, w, 1, info )
958 CALL chkxer(
'SSYSV_RK', infot, nout, lerr, ok )
960 CALL ssysv_rk(
'U', -1, 0, a, 1, e, ip, b, 1, w, 1, info )
961 CALL chkxer(
'SSYSV_RK', infot, nout, lerr, ok )
963 CALL ssysv_rk(
'U', 0, -1, a, 1, e, ip, b, 1, w, 1, info )
964 CALL chkxer(
'SSYSV_RK', infot, nout, lerr, ok )
966 CALL ssysv_rk(
'U', 2, 0, a, 1, e, ip, b, 2, w, 1, info )
967 CALL chkxer(
'SSYSV_RK', infot, nout, lerr, ok )
969 CALL ssysv_rk(
'U', 2, 0, a, 2, e, ip, b, 1, w, 1, info )
970 CALL chkxer(
'SSYSV_RK', infot, nout, lerr, ok )
972 CALL ssysv_rk(
'U', 0, 0, a, 1, e, ip, b, 1, w, 0, info )
973 CALL chkxer(
'SSYSV_RK', infot, nout, lerr, ok )
975 CALL ssysv_rk(
'U', 0, 0, a, 1, e, ip, b, 1, w, -2, info )
976 CALL chkxer(
'SSYSV_RK', infot, nout, lerr, ok )
978 ELSE IF(
lsamen( 2, c2,
'SP' ) )
THEN
984 CALL sspsv(
'/', 0, 0, a, ip, b, 1, info )
985 CALL chkxer(
'SSPSV ', infot, nout, lerr, ok )
987 CALL sspsv(
'U', -1, 0, a, ip, b, 1, info )
988 CALL chkxer(
'SSPSV ', infot, nout, lerr, ok )
990 CALL sspsv(
'U', 0, -1, a, ip, b, 1, info )
991 CALL chkxer(
'SSPSV ', infot, nout, lerr, ok )
993 CALL sspsv(
'U', 2, 0, a, ip, b, 1, info )
994 CALL chkxer(
'SSPSV ', infot, nout, lerr, ok )
1000 CALL sspsvx(
'/',
'U', 0, 0, a, af, ip, b, 1, x, 1, rcond, r1,
1002 CALL chkxer(
'SSPSVX', infot, nout, lerr, ok )
1004 CALL sspsvx(
'N',
'/', 0, 0, a, af, ip, b, 1, x, 1, rcond, r1,
1006 CALL chkxer(
'SSPSVX', infot, nout, lerr, ok )
1008 CALL sspsvx(
'N',
'U', -1, 0, a, af, ip, b, 1, x, 1, rcond, r1,
1010 CALL chkxer(
'SSPSVX', infot, nout, lerr, ok )
1012 CALL sspsvx(
'N',
'U', 0, -1, a, af, ip, b, 1, x, 1, rcond, r1,
1014 CALL chkxer(
'SSPSVX', infot, nout, lerr, ok )
1016 CALL sspsvx(
'N',
'U', 2, 0, a, af, ip, b, 1, x, 2, rcond, r1,
1018 CALL chkxer(
'SSPSVX', infot, nout, lerr, ok )
1020 CALL sspsvx(
'N',
'U', 2, 0, a, af, ip, b, 2, x, 1, rcond, r1,
1022 CALL chkxer(
'SSPSVX', infot, nout, lerr, ok )
1028 WRITE( nout, fmt = 9999 )path
1030 WRITE( nout, fmt = 9998 )path
1033 9999
FORMAT( 1x, a3,
' drivers passed the tests of the error exits' )
1034 9998
FORMAT(
' *** ', a3,
' drivers failed the tests of the error ',
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 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 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 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 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 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 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 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 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 sptsv(N, NRHS, D, E, B, LDB, INFO)
SPTSV computes the solution to system of linear equations A * X = B for PT matrices ...
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
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 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 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 sppsv(UPLO, N, NRHS, AP, B, LDB, INFO)
SPPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...
logical function lsamen(N, CA, CB)
LSAMEN
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 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 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 ssysv_rk(UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, LWORK, INFO)
SSYSV_RK computes the solution to system of linear equations A * X = B for SY 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 ...
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 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 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 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 sgtsv(N, NRHS, DL, D, DU, B, LDB, INFO)
SGTSV computes the solution to system of linear equations A * X = B for GT matrices ...