77 INTEGER i, info,
j, n_err_bnds, nparams
78 REAL rcond, rpvgrw, berr
82 REAL c( nmax ), r( nmax ), r1( nmax ), r2( nmax ),
83 $ rf( nmax ), rw( nmax ), err_bnds_n( nmax, 3 ),
84 $ err_bnds_c( nmax, 3 ), params( 1 )
85 COMPLEX a( nmax, nmax ), af( nmax, nmax ),
b( nmax ),
86 $ w( 2*nmax ), x( nmax )
106 COMMON / infoc / infot, nout, ok, lerr
107 COMMON / srnamc / srnamt
110 INTRINSIC cmplx, real
115 WRITE( nout, fmt = * )
122 a( i,
j ) = cmplx( 1. /
REAL( I+J ), -1. /
REAL( I+J ) )
123 af( i,
j ) = cmplx( 1. /
REAL( I+J ), -1. /
REAL( I+J ) )
137 IF(
lsamen( 2, c2,
'GE' ) )
THEN
143 CALL
cgesv( -1, 0, a, 1, ip,
b, 1, info )
144 CALL
chkxer(
'CGESV ', infot, nout, lerr, ok )
146 CALL
cgesv( 0, -1, a, 1, ip,
b, 1, info )
147 CALL
chkxer(
'CGESV ', infot, nout, lerr, ok )
149 CALL
cgesv( 2, 1, a, 1, ip,
b, 2, info )
150 CALL
chkxer(
'CGESV ', infot, nout, lerr, ok )
152 CALL
cgesv( 2, 1, a, 2, ip,
b, 1, info )
153 CALL
chkxer(
'CGESV ', infot, nout, lerr, ok )
159 CALL
cgesvx(
'/',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c,
b, 1,
160 $ x, 1, rcond, r1, r2, w, rw, info )
161 CALL
chkxer(
'CGESVX', infot, nout, lerr, ok )
163 CALL
cgesvx(
'N',
'/', 0, 0, a, 1, af, 1, ip, eq, r, c,
b, 1,
164 $ x, 1, rcond, r1, r2, w, rw, info )
165 CALL
chkxer(
'CGESVX', infot, nout, lerr, ok )
167 CALL
cgesvx(
'N',
'N', -1, 0, a, 1, af, 1, ip, eq, r, c,
b, 1,
168 $ x, 1, rcond, r1, r2, w, rw, info )
169 CALL
chkxer(
'CGESVX', infot, nout, lerr, ok )
171 CALL
cgesvx(
'N',
'N', 0, -1, a, 1, af, 1, ip, eq, r, c,
b, 1,
172 $ x, 1, rcond, r1, r2, w, rw, info )
173 CALL
chkxer(
'CGESVX', infot, nout, lerr, ok )
175 CALL
cgesvx(
'N',
'N', 2, 1, a, 1, af, 2, ip, eq, r, c,
b, 2,
176 $ x, 2, rcond, r1, r2, w, rw, info )
177 CALL
chkxer(
'CGESVX', infot, nout, lerr, ok )
179 CALL
cgesvx(
'N',
'N', 2, 1, a, 2, af, 1, ip, eq, r, c,
b, 2,
180 $ x, 2, rcond, r1, r2, w, rw, info )
181 CALL
chkxer(
'CGESVX', infot, nout, lerr, ok )
184 CALL
cgesvx(
'F',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c,
b, 1,
185 $ x, 1, rcond, r1, r2, w, rw, info )
186 CALL
chkxer(
'CGESVX', infot, nout, lerr, ok )
189 CALL
cgesvx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c,
b, 1,
190 $ x, 1, rcond, r1, r2, w, rw, info )
191 CALL
chkxer(
'CGESVX', infot, nout, lerr, ok )
194 CALL
cgesvx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c,
b, 1,
195 $ x, 1, rcond, r1, r2, w, rw, info )
196 CALL
chkxer(
'CGESVX', infot, nout, lerr, ok )
198 CALL
cgesvx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c,
b, 1,
199 $ x, 2, rcond, r1, r2, w, rw, info )
200 CALL
chkxer(
'CGESVX', infot, nout, lerr, ok )
202 CALL
cgesvx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c,
b, 2,
203 $ x, 1, rcond, r1, r2, w, rw, info )
204 CALL
chkxer(
'CGESVX', infot, nout, lerr, ok )
212 CALL
cgesvxx(
'/',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c,
b, 1,
213 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
214 $ err_bnds_c, nparams, params, w, rw, info )
215 CALL
chkxer(
'CGESVXX', infot, nout, lerr, ok )
217 CALL
cgesvxx(
'N',
'/', 0, 0, a, 1, af, 1, ip, eq, r, c,
b, 1,
218 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
219 $ err_bnds_c, nparams, params, w, rw, info )
220 CALL
chkxer(
'CGESVXX', infot, nout, lerr, ok )
222 CALL
cgesvxx(
'N',
'N', -1, 0, a, 1, af, 1, ip, eq, r, c,
b, 1,
223 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
224 $ err_bnds_c, nparams, params, w, rw, info )
225 CALL
chkxer(
'CGESVXX', infot, nout, lerr, ok )
227 CALL
cgesvxx(
'N',
'N', 0, -1, a, 1, af, 1, ip, eq, r, c,
b, 1,
228 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
229 $ err_bnds_c, nparams, params, w, rw, info )
230 CALL
chkxer(
'CGESVXX', infot, nout, lerr, ok )
232 CALL
cgesvxx(
'N',
'N', 2, 1, a, 1, af, 2, ip, eq, r, c,
b, 2,
233 $ x, 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
234 $ err_bnds_c, nparams, params, w, rw, info )
235 CALL
chkxer(
'CGESVXX', infot, nout, lerr, ok )
237 CALL
cgesvxx(
'N',
'N', 2, 1, a, 2, af, 1, ip, eq, r, c,
b, 2,
238 $ x, 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
239 $ err_bnds_c, nparams, params, w, rw, info )
240 CALL
chkxer(
'CGESVXX', infot, nout, lerr, ok )
243 CALL
cgesvxx(
'F',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c,
b, 1,
244 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
245 $ err_bnds_c, nparams, params, w, rw, info )
246 CALL
chkxer(
'CGESVXX', infot, nout, lerr, ok )
249 CALL
cgesvxx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c,
b, 1,
250 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
251 $ err_bnds_c, nparams, params, w, rw, info )
252 CALL
chkxer(
'CGESVXX', infot, nout, lerr, ok )
255 CALL
cgesvxx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c,
b, 1,
256 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
257 $ err_bnds_c, nparams, params, w, rw, info )
258 CALL
chkxer(
'CGESVXX', infot, nout, lerr, ok )
260 CALL
cgesvxx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c,
b, 1,
261 $ x, 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
262 $ err_bnds_c, nparams, params, w, rw, info )
263 CALL
chkxer(
'CGESVXX', infot, nout, lerr, ok )
265 CALL
cgesvxx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c,
b, 2,
266 $ x, 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
267 $ err_bnds_c, nparams, params, w, rw, info )
268 CALL
chkxer(
'CGESVXX', infot, nout, lerr, ok )
270 ELSE IF(
lsamen( 2, c2,
'GB' ) )
THEN
276 CALL
cgbsv( -1, 0, 0, 0, a, 1, ip,
b, 1, info )
277 CALL
chkxer(
'CGBSV ', infot, nout, lerr, ok )
279 CALL
cgbsv( 1, -1, 0, 0, a, 1, ip,
b, 1, info )
280 CALL
chkxer(
'CGBSV ', infot, nout, lerr, ok )
282 CALL
cgbsv( 1, 0, -1, 0, a, 1, ip,
b, 1, info )
283 CALL
chkxer(
'CGBSV ', infot, nout, lerr, ok )
285 CALL
cgbsv( 0, 0, 0, -1, a, 1, ip,
b, 1, info )
286 CALL
chkxer(
'CGBSV ', infot, nout, lerr, ok )
288 CALL
cgbsv( 1, 1, 1, 0, a, 3, ip,
b, 1, info )
289 CALL
chkxer(
'CGBSV ', infot, nout, lerr, ok )
291 CALL
cgbsv( 2, 0, 0, 0, a, 1, ip,
b, 1, info )
292 CALL
chkxer(
'CGBSV ', infot, nout, lerr, ok )
298 CALL
cgbsvx(
'/',
'N', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
299 $
b, 1, x, 1, rcond, r1, r2, w, rw, info )
300 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
302 CALL
cgbsvx(
'N',
'/', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
303 $
b, 1, x, 1, rcond, r1, r2, w, rw, info )
304 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
306 CALL
cgbsvx(
'N',
'N', -1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
307 $
b, 1, x, 1, rcond, r1, r2, w, rw, info )
308 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
310 CALL
cgbsvx(
'N',
'N', 1, -1, 0, 0, a, 1, af, 1, ip, eq, r, c,
311 $
b, 1, x, 1, rcond, r1, r2, w, rw, info )
312 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
314 CALL
cgbsvx(
'N',
'N', 1, 0, -1, 0, a, 1, af, 1, ip, eq, r, c,
315 $
b, 1, x, 1, rcond, r1, r2, w, rw, info )
316 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
318 CALL
cgbsvx(
'N',
'N', 0, 0, 0, -1, a, 1, af, 1, ip, eq, r, c,
319 $
b, 1, x, 1, rcond, r1, r2, w, rw, info )
320 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
322 CALL
cgbsvx(
'N',
'N', 1, 1, 1, 0, a, 2, af, 4, ip, eq, r, c,
323 $
b, 1, x, 1, rcond, r1, r2, w, rw, info )
324 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
326 CALL
cgbsvx(
'N',
'N', 1, 1, 1, 0, a, 3, af, 3, ip, eq, r, c,
327 $
b, 1, x, 1, rcond, r1, r2, w, rw, info )
328 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
331 CALL
cgbsvx(
'F',
'N', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
332 $
b, 1, x, 1, rcond, r1, r2, w, rw, info )
333 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
336 CALL
cgbsvx(
'F',
'N', 1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
337 $
b, 1, x, 1, rcond, r1, r2, w, rw, info )
338 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
341 CALL
cgbsvx(
'F',
'N', 1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
342 $
b, 1, x, 1, rcond, r1, r2, w, rw, info )
343 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
345 CALL
cgbsvx(
'N',
'N', 2, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
346 $
b, 1, x, 2, rcond, r1, r2, w, rw, info )
347 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
349 CALL
cgbsvx(
'N',
'N', 2, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
350 $
b, 2, x, 1, rcond, r1, r2, w, rw, info )
351 CALL
chkxer(
'CGBSVX', infot, nout, lerr, ok )
359 CALL
cgbsvxx(
'/',
'N', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
360 $
b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
361 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
363 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
365 CALL
cgbsvxx(
'N',
'/', 0, 1, 1, 0, a, 1, af, 1, ip, eq, r, c,
366 $
b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
367 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
369 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
371 CALL
cgbsvxx(
'N',
'N', -1, 1, 1, 0, a, 1, af, 1, ip, eq, r, c,
372 $
b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
373 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
375 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
377 CALL
cgbsvxx(
'N',
'N', 2, -1, 1, 0, a, 1, af, 1, ip, eq,
378 $ r, c,
b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
379 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
381 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
383 CALL
cgbsvxx(
'N',
'N', 2, 1, -1, 0, a, 1, af, 1, ip, eq,
384 $ r, c,
b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
385 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
387 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
389 CALL
cgbsvxx(
'N',
'N', 0, 1, 1, -1, a, 1, af, 1, ip, eq, r, c,
390 $
b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
391 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
393 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
395 CALL
cgbsvxx(
'N',
'N', 2, 1, 1, 1, a, 2, af, 2, ip, eq, r, c,
396 $
b, 2, x, 2, rcond, rpvgrw, berr, n_err_bnds,
397 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
399 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
401 CALL
cgbsvxx(
'N',
'N', 2, 1, 1, 1, a, 3, af, 3, ip, eq, r, c,
402 $
b, 2, x, 2, rcond, rpvgrw, berr, n_err_bnds,
403 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
405 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
408 CALL
cgbsvxx(
'F',
'N', 0, 1, 1, 0, a, 3, af, 4, ip, eq, r, c,
409 $
b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
410 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
412 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
415 CALL
cgbsvxx(
'F',
'N', 1, 1, 1, 0, a, 3, af, 4, ip, eq, r, c,
416 $
b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
417 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
419 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
422 CALL
cgbsvxx(
'F',
'N', 1, 1, 1, 0, a, 3, af, 4, ip, eq, r, c,
423 $
b, 1, x, 1, rcond, rpvgrw, berr, n_err_bnds,
424 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
426 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
428 CALL
cgbsvxx(
'N',
'N', 2, 1, 1, 1, a, 3, af, 4, ip, eq, r, c,
429 $
b, 1, x, 2, rcond, rpvgrw, berr, n_err_bnds,
430 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
432 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
434 CALL
cgbsvxx(
'N',
'N', 2, 1, 1, 1, a, 3, af, 4, ip, eq, r, c,
435 $
b, 2, x, 1, rcond, rpvgrw, berr, n_err_bnds,
436 $ err_bnds_n, err_bnds_c, nparams, params, w, rw,
438 CALL
chkxer(
'CGBSVXX', infot, nout, lerr, ok )
440 ELSE IF(
lsamen( 2, c2,
'GT' ) )
THEN
446 CALL
cgtsv( -1, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
b, 1,
448 CALL
chkxer(
'CGTSV ', infot, nout, lerr, ok )
450 CALL
cgtsv( 0, -1, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
b, 1,
452 CALL
chkxer(
'CGTSV ', infot, nout, lerr, ok )
454 CALL
cgtsv( 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
b, 1, info )
455 CALL
chkxer(
'CGTSV ', infot, nout, lerr, ok )
461 CALL
cgtsvx(
'/',
'N', 0, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
462 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
463 $ ip,
b, 1, x, 1, rcond, r1, r2, w, rw, info )
464 CALL
chkxer(
'CGTSVX', infot, nout, lerr, ok )
466 CALL
cgtsvx(
'N',
'/', 0, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
467 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
468 $ ip,
b, 1, x, 1, rcond, r1, r2, w, rw, info )
469 CALL
chkxer(
'CGTSVX', infot, nout, lerr, ok )
471 CALL
cgtsvx(
'N',
'N', -1, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
472 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
473 $ ip,
b, 1, x, 1, rcond, r1, r2, w, rw, info )
474 CALL
chkxer(
'CGTSVX', infot, nout, lerr, ok )
476 CALL
cgtsvx(
'N',
'N', 0, -1, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
477 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
478 $ ip,
b, 1, x, 1, rcond, r1, r2, w, rw, info )
479 CALL
chkxer(
'CGTSVX', infot, nout, lerr, ok )
481 CALL
cgtsvx(
'N',
'N', 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
482 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
483 $ ip,
b, 1, x, 2, rcond, r1, r2, w, rw, info )
484 CALL
chkxer(
'CGTSVX', infot, nout, lerr, ok )
486 CALL
cgtsvx(
'N',
'N', 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
487 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
488 $ ip,
b, 2, x, 1, rcond, r1, r2, w, rw, info )
489 CALL
chkxer(
'CGTSVX', infot, nout, lerr, ok )
491 ELSE IF(
lsamen( 2, c2,
'PO' ) )
THEN
497 CALL
cposv(
'/', 0, 0, a, 1,
b, 1, info )
498 CALL
chkxer(
'CPOSV ', infot, nout, lerr, ok )
500 CALL
cposv(
'U', -1, 0, a, 1,
b, 1, info )
501 CALL
chkxer(
'CPOSV ', infot, nout, lerr, ok )
503 CALL
cposv(
'U', 0, -1, a, 1,
b, 1, info )
504 CALL
chkxer(
'CPOSV ', infot, nout, lerr, ok )
506 CALL
cposv(
'U', 2, 0, a, 1,
b, 2, info )
507 CALL
chkxer(
'CPOSV ', infot, nout, lerr, ok )
509 CALL
cposv(
'U', 2, 0, a, 2,
b, 1, info )
510 CALL
chkxer(
'CPOSV ', infot, nout, lerr, ok )
516 CALL
cposvx(
'/',
'U', 0, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
517 $ rcond, r1, r2, w, rw, info )
518 CALL
chkxer(
'CPOSVX', infot, nout, lerr, ok )
520 CALL
cposvx(
'N',
'/', 0, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
521 $ rcond, r1, r2, w, rw, info )
522 CALL
chkxer(
'CPOSVX', infot, nout, lerr, ok )
524 CALL
cposvx(
'N',
'U', -1, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
525 $ rcond, r1, r2, w, rw, info )
526 CALL
chkxer(
'CPOSVX', infot, nout, lerr, ok )
528 CALL
cposvx(
'N',
'U', 0, -1, a, 1, af, 1, eq, c,
b, 1, x, 1,
529 $ rcond, r1, r2, w, rw, info )
530 CALL
chkxer(
'CPOSVX', infot, nout, lerr, ok )
532 CALL
cposvx(
'N',
'U', 2, 0, a, 1, af, 2, eq, c,
b, 2, x, 2,
533 $ rcond, r1, r2, w, rw, info )
534 CALL
chkxer(
'CPOSVX', infot, nout, lerr, ok )
536 CALL
cposvx(
'N',
'U', 2, 0, a, 2, af, 1, eq, c,
b, 2, x, 2,
537 $ rcond, r1, r2, w, rw, info )
538 CALL
chkxer(
'CPOSVX', infot, nout, lerr, ok )
541 CALL
cposvx(
'F',
'U', 0, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
542 $ rcond, r1, r2, w, rw, info )
543 CALL
chkxer(
'CPOSVX', infot, nout, lerr, ok )
546 CALL
cposvx(
'F',
'U', 1, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
547 $ rcond, r1, r2, w, rw, info )
548 CALL
chkxer(
'CPOSVX', infot, nout, lerr, ok )
550 CALL
cposvx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c,
b, 1, x, 2,
551 $ rcond, r1, r2, w, rw, info )
552 CALL
chkxer(
'CPOSVX', infot, nout, lerr, ok )
554 CALL
cposvx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c,
b, 2, x, 1,
555 $ rcond, r1, r2, w, rw, info )
556 CALL
chkxer(
'CPOSVX', infot, nout, lerr, ok )
564 CALL
cposvxx(
'/',
'U', 0, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
565 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
566 $ err_bnds_c, nparams, params, w, rw, info )
567 CALL
chkxer(
'CPOSVXX', infot, nout, lerr, ok )
569 CALL
cposvxx(
'N',
'/', 0, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
570 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
571 $ err_bnds_c, nparams, params, w, rw, info )
572 CALL
chkxer(
'CPOSVXX', infot, nout, lerr, ok )
574 CALL
cposvxx(
'N',
'U', -1, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
575 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
576 $ err_bnds_c, nparams, params, w, rw, info )
577 CALL
chkxer(
'CPOSVXX', infot, nout, lerr, ok )
579 CALL
cposvxx(
'N',
'U', 0, -1, a, 1, af, 1, eq, c,
b, 1, x, 1,
580 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
581 $ err_bnds_c, nparams, params, w, rw, info )
582 CALL
chkxer(
'CPOSVXX', infot, nout, lerr, ok )
584 CALL
cposvxx(
'N',
'U', 2, 0, a, 1, af, 2, eq, c,
b, 2, x, 2,
585 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
586 $ err_bnds_c, nparams, params, w, rw, info )
587 CALL
chkxer(
'CPOSVXX', infot, nout, lerr, ok )
589 CALL
cposvxx(
'N',
'U', 2, 0, a, 2, af, 1, eq, c,
b, 2, x, 2,
590 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
591 $ err_bnds_c, nparams, params, w, rw, info )
592 CALL
chkxer(
'CPOSVXX', infot, nout, lerr, ok )
595 CALL
cposvxx(
'F',
'U', 0, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
596 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
597 $ err_bnds_c, nparams, params, w, rw, info )
598 CALL
chkxer(
'CPOSVXX', infot, nout, lerr, ok )
601 CALL
cposvxx(
'F',
'U', 1, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
602 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
603 $ err_bnds_c, nparams, params, w, rw, info )
604 CALL
chkxer(
'CPOSVXX', infot, nout, lerr, ok )
606 CALL
cposvxx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c,
b, 1, x, 2,
607 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
608 $ err_bnds_c, nparams, params, w, rw, info )
609 CALL
chkxer(
'CPOSVXX', infot, nout, lerr, ok )
611 CALL
cposvxx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c,
b, 2, x, 1,
612 $ rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
613 $ err_bnds_c, nparams, params, w, rw, info )
614 CALL
chkxer(
'CPOSVXX', infot, nout, lerr, ok )
616 ELSE IF(
lsamen( 2, c2,
'PP' ) )
THEN
622 CALL
cppsv(
'/', 0, 0, a,
b, 1, info )
623 CALL
chkxer(
'CPPSV ', infot, nout, lerr, ok )
625 CALL
cppsv(
'U', -1, 0, a,
b, 1, info )
626 CALL
chkxer(
'CPPSV ', infot, nout, lerr, ok )
628 CALL
cppsv(
'U', 0, -1, a,
b, 1, info )
629 CALL
chkxer(
'CPPSV ', infot, nout, lerr, ok )
631 CALL
cppsv(
'U', 2, 0, a,
b, 1, info )
632 CALL
chkxer(
'CPPSV ', infot, nout, lerr, ok )
638 CALL
cppsvx(
'/',
'U', 0, 0, a, af, eq, c,
b, 1, x, 1, rcond,
639 $ r1, r2, w, rw, info )
640 CALL
chkxer(
'CPPSVX', infot, nout, lerr, ok )
642 CALL
cppsvx(
'N',
'/', 0, 0, a, af, eq, c,
b, 1, x, 1, rcond,
643 $ r1, r2, w, rw, info )
644 CALL
chkxer(
'CPPSVX', infot, nout, lerr, ok )
646 CALL
cppsvx(
'N',
'U', -1, 0, a, af, eq, c,
b, 1, x, 1, rcond,
647 $ r1, r2, w, rw, info )
648 CALL
chkxer(
'CPPSVX', infot, nout, lerr, ok )
650 CALL
cppsvx(
'N',
'U', 0, -1, a, af, eq, c,
b, 1, x, 1, rcond,
651 $ r1, r2, w, rw, info )
652 CALL
chkxer(
'CPPSVX', infot, nout, lerr, ok )
655 CALL
cppsvx(
'F',
'U', 0, 0, a, af, eq, c,
b, 1, x, 1, rcond,
656 $ r1, r2, w, rw, info )
657 CALL
chkxer(
'CPPSVX', infot, nout, lerr, ok )
660 CALL
cppsvx(
'F',
'U', 1, 0, a, af, eq, c,
b, 1, x, 1, rcond,
661 $ r1, r2, w, rw, info )
662 CALL
chkxer(
'CPPSVX', infot, nout, lerr, ok )
664 CALL
cppsvx(
'N',
'U', 2, 0, a, af, eq, c,
b, 1, x, 2, rcond,
665 $ r1, r2, w, rw, info )
666 CALL
chkxer(
'CPPSVX', infot, nout, lerr, ok )
668 CALL
cppsvx(
'N',
'U', 2, 0, a, af, eq, c,
b, 2, x, 1, rcond,
669 $ r1, r2, w, rw, info )
670 CALL
chkxer(
'CPPSVX', infot, nout, lerr, ok )
672 ELSE IF(
lsamen( 2, c2,
'PB' ) )
THEN
678 CALL
cpbsv(
'/', 0, 0, 0, a, 1,
b, 1, info )
679 CALL
chkxer(
'CPBSV ', infot, nout, lerr, ok )
681 CALL
cpbsv(
'U', -1, 0, 0, a, 1,
b, 1, info )
682 CALL
chkxer(
'CPBSV ', infot, nout, lerr, ok )
684 CALL
cpbsv(
'U', 1, -1, 0, a, 1,
b, 1, info )
685 CALL
chkxer(
'CPBSV ', infot, nout, lerr, ok )
687 CALL
cpbsv(
'U', 0, 0, -1, a, 1,
b, 1, info )
688 CALL
chkxer(
'CPBSV ', infot, nout, lerr, ok )
690 CALL
cpbsv(
'U', 1, 1, 0, a, 1,
b, 2, info )
691 CALL
chkxer(
'CPBSV ', infot, nout, lerr, ok )
693 CALL
cpbsv(
'U', 2, 0, 0, a, 1,
b, 1, info )
694 CALL
chkxer(
'CPBSV ', infot, nout, lerr, ok )
700 CALL
cpbsvx(
'/',
'U', 0, 0, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
701 $ rcond, r1, r2, w, rw, info )
702 CALL
chkxer(
'CPBSVX', infot, nout, lerr, ok )
704 CALL
cpbsvx(
'N',
'/', 0, 0, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
705 $ rcond, r1, r2, w, rw, info )
706 CALL
chkxer(
'CPBSVX', infot, nout, lerr, ok )
708 CALL
cpbsvx(
'N',
'U', -1, 0, 0, a, 1, af, 1, eq, c,
b, 1, x,
709 $ 1, rcond, r1, r2, w, rw, info )
710 CALL
chkxer(
'CPBSVX', infot, nout, lerr, ok )
712 CALL
cpbsvx(
'N',
'U', 1, -1, 0, a, 1, af, 1, eq, c,
b, 1, x,
713 $ 1, rcond, r1, r2, w, rw, info )
714 CALL
chkxer(
'CPBSVX', infot, nout, lerr, ok )
716 CALL
cpbsvx(
'N',
'U', 0, 0, -1, a, 1, af, 1, eq, c,
b, 1, x,
717 $ 1, rcond, r1, r2, w, rw, info )
718 CALL
chkxer(
'CPBSVX', infot, nout, lerr, ok )
720 CALL
cpbsvx(
'N',
'U', 1, 1, 0, a, 1, af, 2, eq, c,
b, 2, x, 2,
721 $ rcond, r1, r2, w, rw, info )
722 CALL
chkxer(
'CPBSVX', infot, nout, lerr, ok )
724 CALL
cpbsvx(
'N',
'U', 1, 1, 0, a, 2, af, 1, eq, c,
b, 2, x, 2,
725 $ rcond, r1, r2, w, rw, info )
726 CALL
chkxer(
'CPBSVX', infot, nout, lerr, ok )
729 CALL
cpbsvx(
'F',
'U', 0, 0, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
730 $ rcond, r1, r2, w, rw, info )
731 CALL
chkxer(
'CPBSVX', infot, nout, lerr, ok )
734 CALL
cpbsvx(
'F',
'U', 1, 0, 0, a, 1, af, 1, eq, c,
b, 1, x, 1,
735 $ rcond, r1, r2, w, rw, info )
736 CALL
chkxer(
'CPBSVX', infot, nout, lerr, ok )
738 CALL
cpbsvx(
'N',
'U', 2, 0, 0, a, 1, af, 1, eq, c,
b, 1, x, 2,
739 $ rcond, r1, r2, w, rw, info )
740 CALL
chkxer(
'CPBSVX', infot, nout, lerr, ok )
742 CALL
cpbsvx(
'N',
'U', 2, 0, 0, a, 1, af, 1, eq, c,
b, 2, x, 1,
743 $ rcond, r1, r2, w, rw, info )
744 CALL
chkxer(
'CPBSVX', infot, nout, lerr, ok )
746 ELSE IF(
lsamen( 2, c2,
'PT' ) )
THEN
752 CALL
cptsv( -1, 0, r, a( 1, 1 ),
b, 1, info )
753 CALL
chkxer(
'CPTSV ', infot, nout, lerr, ok )
755 CALL
cptsv( 0, -1, r, a( 1, 1 ),
b, 1, info )
756 CALL
chkxer(
'CPTSV ', infot, nout, lerr, ok )
758 CALL
cptsv( 2, 0, r, a( 1, 1 ),
b, 1, info )
759 CALL
chkxer(
'CPTSV ', infot, nout, lerr, ok )
765 CALL
cptsvx(
'/', 0, 0, r, a( 1, 1 ), rf, af( 1, 1 ),
b, 1, x,
766 $ 1, rcond, r1, r2, w, rw, info )
767 CALL
chkxer(
'CPTSVX', infot, nout, lerr, ok )
769 CALL
cptsvx(
'N', -1, 0, r, a( 1, 1 ), rf, af( 1, 1 ),
b, 1, x,
770 $ 1, rcond, r1, r2, w, rw, info )
771 CALL
chkxer(
'CPTSVX', infot, nout, lerr, ok )
773 CALL
cptsvx(
'N', 0, -1, r, a( 1, 1 ), rf, af( 1, 1 ),
b, 1, x,
774 $ 1, rcond, r1, r2, w, rw, info )
775 CALL
chkxer(
'CPTSVX', infot, nout, lerr, ok )
777 CALL
cptsvx(
'N', 2, 0, r, a( 1, 1 ), rf, af( 1, 1 ),
b, 1, x,
778 $ 2, rcond, r1, r2, w, rw, info )
779 CALL
chkxer(
'CPTSVX', infot, nout, lerr, ok )
781 CALL
cptsvx(
'N', 2, 0, r, a( 1, 1 ), rf, af( 1, 1 ),
b, 2, x,
782 $ 1, rcond, r1, r2, w, rw, info )
783 CALL
chkxer(
'CPTSVX', infot, nout, lerr, ok )
785 ELSE IF(
lsamen( 2, c2,
'HE' ) )
THEN
791 CALL
chesv(
'/', 0, 0, a, 1, ip,
b, 1, w, 1, info )
792 CALL
chkxer(
'CHESV ', infot, nout, lerr, ok )
794 CALL
chesv(
'U', -1, 0, a, 1, ip,
b, 1, w, 1, info )
795 CALL
chkxer(
'CHESV ', infot, nout, lerr, ok )
797 CALL
chesv(
'U', 0, -1, a, 1, ip,
b, 1, w, 1, info )
798 CALL
chkxer(
'CHESV ', infot, nout, lerr, ok )
800 CALL
chesv(
'U', 2, 0, a, 1, ip,
b, 2, w, 1, info )
801 CALL
chkxer(
'CHESV ', infot, nout, lerr, ok )
803 CALL
chesv(
'U', 2, 0, a, 2, ip,
b, 1, w, 1, info )
804 CALL
chkxer(
'CHESV ', infot, nout, lerr, ok )
810 CALL
chesvx(
'/',
'U', 0, 0, a, 1, af, 1, ip,
b, 1, x, 1,
811 $ rcond, r1, r2, w, 1, rw, info )
812 CALL
chkxer(
'CHESVX', infot, nout, lerr, ok )
814 CALL
chesvx(
'N',
'/', 0, 0, a, 1, af, 1, ip,
b, 1, x, 1,
815 $ rcond, r1, r2, w, 1, rw, info )
816 CALL
chkxer(
'CHESVX', infot, nout, lerr, ok )
818 CALL
chesvx(
'N',
'U', -1, 0, a, 1, af, 1, ip,
b, 1, x, 1,
819 $ rcond, r1, r2, w, 1, rw, info )
820 CALL
chkxer(
'CHESVX', infot, nout, lerr, ok )
822 CALL
chesvx(
'N',
'U', 0, -1, a, 1, af, 1, ip,
b, 1, x, 1,
823 $ rcond, r1, r2, w, 1, rw, info )
824 CALL
chkxer(
'CHESVX', infot, nout, lerr, ok )
826 CALL
chesvx(
'N',
'U', 2, 0, a, 1, af, 2, ip,
b, 2, x, 2,
827 $ rcond, r1, r2, w, 4, rw, info )
828 CALL
chkxer(
'CHESVX', infot, nout, lerr, ok )
830 CALL
chesvx(
'N',
'U', 2, 0, a, 2, af, 1, ip,
b, 2, x, 2,
831 $ rcond, r1, r2, w, 4, rw, info )
832 CALL
chkxer(
'CHESVX', infot, nout, lerr, ok )
834 CALL
chesvx(
'N',
'U', 2, 0, a, 2, af, 2, ip,
b, 1, x, 2,
835 $ rcond, r1, r2, w, 4, rw, info )
836 CALL
chkxer(
'CHESVX', infot, nout, lerr, ok )
838 CALL
chesvx(
'N',
'U', 2, 0, a, 2, af, 2, ip,
b, 2, x, 1,
839 $ rcond, r1, r2, w, 4, rw, info )
840 CALL
chkxer(
'CHESVX', infot, nout, lerr, ok )
842 CALL
chesvx(
'N',
'U', 2, 0, a, 2, af, 2, ip,
b, 2, x, 2,
843 $ rcond, r1, r2, w, 3, rw, info )
844 CALL
chkxer(
'CHESVX', infot, nout, lerr, ok )
852 CALL
chesvxx(
'/',
'U', 0, 0, a, 1, af, 1, ip, eq, c,
b, 1, x,
853 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
854 $ err_bnds_c, nparams, params, w, rw, info )
855 CALL
chkxer(
'CHESVXX', infot, nout, lerr, ok )
857 CALL
chesvxx(
'N',
'/', 0, 0, a, 1, af, 1, ip, eq, c,
b, 1, x,
858 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
859 $ err_bnds_c, nparams, params, w, rw, info )
860 CALL
chkxer(
'CHESVXX', infot, nout, lerr, ok )
862 CALL
chesvxx(
'N',
'U', -1, 0, a, 1, af, 1, ip, eq, c,
b, 1, x,
863 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
864 $ err_bnds_c, nparams, params, w, rw, info )
865 CALL
chkxer(
'CHESVXX', infot, nout, lerr, ok )
867 CALL
chesvxx(
'N',
'U', 0, -1, a, 1, af, 1, ip, eq, c,
b, 1, x,
868 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
869 $ err_bnds_c, nparams, params, w, rw, info )
870 CALL
chkxer(
'CHESVXX', infot, nout, lerr, ok )
872 CALL
chesvxx(
'N',
'U', 2, 0, a, 1, af, 2, ip, eq, c,
b, 2, x,
873 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
874 $ err_bnds_c, nparams, params, w, rw, info )
875 CALL
chkxer(
'CHESVXX', infot, nout, lerr, ok )
877 CALL
chesvxx(
'N',
'U', 2, 0, a, 2, af, 1, ip, eq, c,
b, 2, x,
878 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
879 $ err_bnds_c, nparams, params, w, rw, info )
880 CALL
chkxer(
'CHESVXX', infot, nout, lerr, ok )
883 CALL
chesvxx(
'F',
'U', 0, 0, a, 1, af, 1, ip, eq, c,
b, 1, x,
884 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
885 $ err_bnds_c, nparams, params, w, rw, info )
886 CALL
chkxer(
'CHESVXX', infot, nout, lerr, ok )
889 CALL
chesvxx(
'F',
'U', 1, 0, a, 1, af, 1, ip, eq, c,
b, 1, x,
890 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
891 $ err_bnds_c, nparams, params, w, rw, info )
892 CALL
chkxer(
'CHESVXX', infot, nout, lerr, ok )
894 CALL
chesvxx(
'N',
'U', 2, 0, a, 2, af, 2, ip, eq, c,
b, 1, x,
895 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
896 $ err_bnds_c, nparams, params, w, rw, info )
897 CALL
chkxer(
'CHESVXX', infot, nout, lerr, ok )
899 CALL
chesvxx(
'N',
'U', 2, 0, a, 2, af, 2, ip, eq, c,
b, 2, x,
900 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
901 $ err_bnds_c, nparams, params, w, rw, info )
902 CALL
chkxer(
'CHESVXX', infot, nout, lerr, ok )
904 ELSE IF(
lsamen( 2, c2,
'HR' ) )
THEN
908 srnamt =
'CHESV_ROOK'
910 CALL
chesv_rook(
'/', 0, 0, a, 1, ip,
b, 1, w, 1, info )
911 CALL
chkxer(
'CHESV_ROOK', infot, nout, lerr, ok )
913 CALL
chesv_rook(
'U', -1, 0, a, 1, ip,
b, 1, w, 1, info )
914 CALL
chkxer(
'CHESV_ROOK', infot, nout, lerr, ok )
916 CALL
chesv_rook(
'U', 0, -1, a, 1, ip,
b, 1, w, 1, info )
917 CALL
chkxer(
'CHESV_ROOK', infot, nout, lerr, ok )
919 CALL
chesv_rook(
'U', 2, 0, a, 2, ip,
b, 1, w, 1, info )
920 CALL
chkxer(
'CHESV_ROOK', infot, nout, lerr, ok )
922 ELSE IF(
lsamen( 2, c2,
'HP' ) )
THEN
928 CALL
chpsv(
'/', 0, 0, a, ip,
b, 1, info )
929 CALL
chkxer(
'CHPSV ', infot, nout, lerr, ok )
931 CALL
chpsv(
'U', -1, 0, a, ip,
b, 1, info )
932 CALL
chkxer(
'CHPSV ', infot, nout, lerr, ok )
934 CALL
chpsv(
'U', 0, -1, a, ip,
b, 1, info )
935 CALL
chkxer(
'CHPSV ', infot, nout, lerr, ok )
937 CALL
chpsv(
'U', 2, 0, a, ip,
b, 1, info )
938 CALL
chkxer(
'CHPSV ', infot, nout, lerr, ok )
944 CALL
chpsvx(
'/',
'U', 0, 0, a, af, ip,
b, 1, x, 1, rcond, r1,
946 CALL
chkxer(
'CHPSVX', infot, nout, lerr, ok )
948 CALL
chpsvx(
'N',
'/', 0, 0, a, af, ip,
b, 1, x, 1, rcond, r1,
950 CALL
chkxer(
'CHPSVX', infot, nout, lerr, ok )
952 CALL
chpsvx(
'N',
'U', -1, 0, a, af, ip,
b, 1, x, 1, rcond, r1,
954 CALL
chkxer(
'CHPSVX', infot, nout, lerr, ok )
956 CALL
chpsvx(
'N',
'U', 0, -1, a, af, ip,
b, 1, x, 1, rcond, r1,
958 CALL
chkxer(
'CHPSVX', infot, nout, lerr, ok )
960 CALL
chpsvx(
'N',
'U', 2, 0, a, af, ip,
b, 1, x, 2, rcond, r1,
962 CALL
chkxer(
'CHPSVX', infot, nout, lerr, ok )
964 CALL
chpsvx(
'N',
'U', 2, 0, a, af, ip,
b, 2, x, 1, rcond, r1,
966 CALL
chkxer(
'CHPSVX', infot, nout, lerr, ok )
968 ELSE IF(
lsamen( 2, c2,
'SY' ) )
THEN
974 CALL
csysv(
'/', 0, 0, a, 1, ip,
b, 1, w, 1, info )
975 CALL
chkxer(
'CSYSV ', infot, nout, lerr, ok )
977 CALL
csysv(
'U', -1, 0, a, 1, ip,
b, 1, w, 1, info )
978 CALL
chkxer(
'CSYSV ', infot, nout, lerr, ok )
980 CALL
csysv(
'U', 0, -1, a, 1, ip,
b, 1, w, 1, info )
981 CALL
chkxer(
'CSYSV ', infot, nout, lerr, ok )
983 CALL
csysv(
'U', 2, 0, a, 2, ip,
b, 1, w, 1, info )
984 CALL
chkxer(
'CSYSV ', infot, nout, lerr, ok )
990 CALL
csysvx(
'/',
'U', 0, 0, a, 1, af, 1, ip,
b, 1, x, 1,
991 $ rcond, r1, r2, w, 1, rw, info )
992 CALL
chkxer(
'CSYSVX', infot, nout, lerr, ok )
994 CALL
csysvx(
'N',
'/', 0, 0, a, 1, af, 1, ip,
b, 1, x, 1,
995 $ rcond, r1, r2, w, 1, rw, info )
996 CALL
chkxer(
'CSYSVX', infot, nout, lerr, ok )
998 CALL
csysvx(
'N',
'U', -1, 0, a, 1, af, 1, ip,
b, 1, x, 1,
999 $ rcond, r1, r2, w, 1, rw, info )
1000 CALL
chkxer(
'CSYSVX', infot, nout, lerr, ok )
1002 CALL
csysvx(
'N',
'U', 0, -1, a, 1, af, 1, ip,
b, 1, x, 1,
1003 $ rcond, r1, r2, w, 1, rw, info )
1004 CALL
chkxer(
'CSYSVX', infot, nout, lerr, ok )
1006 CALL
csysvx(
'N',
'U', 2, 0, a, 1, af, 2, ip,
b, 2, x, 2,
1007 $ rcond, r1, r2, w, 4, rw, info )
1008 CALL
chkxer(
'CSYSVX', infot, nout, lerr, ok )
1010 CALL
csysvx(
'N',
'U', 2, 0, a, 2, af, 1, ip,
b, 2, x, 2,
1011 $ rcond, r1, r2, w, 4, rw, info )
1012 CALL
chkxer(
'CSYSVX', infot, nout, lerr, ok )
1014 CALL
csysvx(
'N',
'U', 2, 0, a, 2, af, 2, ip,
b, 1, x, 2,
1015 $ rcond, r1, r2, w, 4, rw, info )
1016 CALL
chkxer(
'CSYSVX', infot, nout, lerr, ok )
1018 CALL
csysvx(
'N',
'U', 2, 0, a, 2, af, 2, ip,
b, 2, x, 1,
1019 $ rcond, r1, r2, w, 4, rw, info )
1020 CALL
chkxer(
'CSYSVX', infot, nout, lerr, ok )
1022 CALL
csysvx(
'N',
'U', 2, 0, a, 2, af, 2, ip,
b, 2, x, 2,
1023 $ rcond, r1, r2, w, 3, rw, info )
1024 CALL
chkxer(
'CSYSVX', infot, nout, lerr, ok )
1033 CALL
csysvxx(
'/',
'U', 0, 0, a, 1, af, 1, ip, eq, r,
b, 1, x,
1034 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
1035 $ err_bnds_c, nparams, params, w, rw, info )
1036 CALL
chkxer(
'CSYSVXX', infot, nout, lerr, ok )
1038 CALL
csysvxx(
'N',
'/', 0, 0, a, 1, af, 1, ip, eq, r,
b, 1, x,
1039 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
1040 $ err_bnds_c, nparams, params, w, rw, info )
1041 CALL
chkxer(
'CSYSVXX', infot, nout, lerr, ok )
1043 CALL
csysvxx(
'N',
'U', -1, 0, a, 1, af, 1, ip, eq, r,
b, 1, x,
1044 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
1045 $ err_bnds_c, nparams, params, w, rw, info )
1046 CALL
chkxer(
'CSYSVXX', infot, nout, lerr, ok )
1049 CALL
csysvxx(
'N',
'U', 0, -1, a, 1, af, 1, ip, eq, r,
b, 1, x,
1050 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
1051 $ err_bnds_c, nparams, params, w, rw, info )
1052 CALL
chkxer(
'CSYSVXX', infot, nout, lerr, ok )
1055 CALL
csysvxx(
'N',
'U', 2, 0, a, 1, af, 2, ip, eq, r,
b, 2, x,
1056 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
1057 $ err_bnds_c, nparams, params, w, rw, info )
1058 CALL
chkxer(
'CSYSVXX', infot, nout, lerr, ok )
1060 CALL
csysvxx(
'N',
'U', 2, 0, a, 2, af, 1, ip, eq, r,
b, 2, x,
1061 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
1062 $ err_bnds_c, nparams, params, w, rw, info )
1063 CALL
chkxer(
'CSYSVXX', infot, nout, lerr, ok )
1066 CALL
csysvxx(
'N',
'U', 2, 0, a, 2, af, 2, ip, eq, r,
b, 1, x,
1067 $ 2, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
1068 $ err_bnds_c, nparams, params, w, rw, info )
1069 CALL
chkxer(
'CSYSVXX', infot, nout, lerr, ok )
1071 CALL
csysvxx(
'N',
'U', 2, 0, a, 2, af, 2, ip, eq, r,
b, 2, x,
1072 $ 1, rcond, rpvgrw, berr, n_err_bnds, err_bnds_n,
1073 $ err_bnds_c, nparams, params, w, rw, info )
1074 CALL
chkxer(
'CSYSVXX', infot, nout, lerr, ok )
1076 ELSE IF(
lsamen( 2, c2,
'SR' ) )
THEN
1080 srnamt =
'CSYSV_ROOK'
1082 CALL
csysv_rook(
'/', 0, 0, a, 1, ip,
b, 1, w, 1, info )
1083 CALL
chkxer(
'CSYSV_ROOK', infot, nout, lerr, ok )
1085 CALL
csysv_rook(
'U', -1, 0, a, 1, ip,
b, 1, w, 1, info )
1086 CALL
chkxer(
'CSYSV_ROOK', infot, nout, lerr, ok )
1088 CALL
csysv_rook(
'U', 0, -1, a, 1, ip,
b, 1, w, 1, info )
1089 CALL
chkxer(
'CSYSV_ROOK', infot, nout, lerr, ok )
1091 CALL
csysv_rook(
'U', 2, 0, a, 2, ip,
b, 1, w, 1, info )
1092 CALL
chkxer(
'CSYSV_ROOK', infot, nout, lerr, ok )
1094 ELSE IF(
lsamen( 2, c2,
'SP' ) )
THEN
1100 CALL
cspsv(
'/', 0, 0, a, ip,
b, 1, info )
1101 CALL
chkxer(
'CSPSV ', infot, nout, lerr, ok )
1103 CALL
cspsv(
'U', -1, 0, a, ip,
b, 1, info )
1104 CALL
chkxer(
'CSPSV ', infot, nout, lerr, ok )
1106 CALL
cspsv(
'U', 0, -1, a, ip,
b, 1, info )
1107 CALL
chkxer(
'CSPSV ', infot, nout, lerr, ok )
1109 CALL
cspsv(
'U', 2, 0, a, ip,
b, 1, info )
1110 CALL
chkxer(
'CSPSV ', infot, nout, lerr, ok )
1116 CALL
cspsvx(
'/',
'U', 0, 0, a, af, ip,
b, 1, x, 1, rcond, r1,
1118 CALL
chkxer(
'CSPSVX', infot, nout, lerr, ok )
1120 CALL
cspsvx(
'N',
'/', 0, 0, a, af, ip,
b, 1, x, 1, rcond, r1,
1122 CALL
chkxer(
'CSPSVX', infot, nout, lerr, ok )
1124 CALL
cspsvx(
'N',
'U', -1, 0, a, af, ip,
b, 1, x, 1, rcond, r1,
1126 CALL
chkxer(
'CSPSVX', infot, nout, lerr, ok )
1128 CALL
cspsvx(
'N',
'U', 0, -1, a, af, ip,
b, 1, x, 1, rcond, r1,
1130 CALL
chkxer(
'CSPSVX', infot, nout, lerr, ok )
1132 CALL
cspsvx(
'N',
'U', 2, 0, a, af, ip,
b, 1, x, 2, rcond, r1,
1134 CALL
chkxer(
'CSPSVX', infot, nout, lerr, ok )
1136 CALL
cspsvx(
'N',
'U', 2, 0, a, af, ip,
b, 2, x, 1, rcond, r1,
1138 CALL
chkxer(
'CSPSVX', infot, nout, lerr, ok )
1144 WRITE( nout, fmt = 9999 )path
1146 WRITE( nout, fmt = 9998 )path
1149 9999
FORMAT( 1x, a3,
' drivers passed the tests of the error exits' )
1150 9998
FORMAT(
' *** ', a3,
' drivers failed the tests of the error ',