75 DOUBLE PRECISION RCOND
79 DOUBLE PRECISION C( NMAX ), R( NMAX ), R1( NMAX ), R2( NMAX ),
80 $ RF( NMAX ), RW( NMAX )
81 COMPLEX*16 A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ),
82 $ E( NMAX ), W( 2*NMAX ), X( NMAX )
102 COMMON / infoc / infot, nout, ok, lerr
103 COMMON / srnamc / srnamt
106 INTRINSIC dble, dcmplx
111 WRITE( nout, fmt = * )
118 a( i, j ) = dcmplx( 1.d0 / dble( i+j ),
119 $ -1.d0 / dble( i+j ) )
120 af( i, j ) = dcmplx( 1.d0 / dble( i+j ),
121 $ -1.d0 / dble( i+j ) )
136 IF( lsamen( 2, c2,
'GE' ) )
THEN
142 CALL zgesv( -1, 0, a, 1, ip, b, 1, info )
143 CALL chkxer(
'ZGESV ', infot, nout, lerr, ok )
145 CALL zgesv( 0, -1, a, 1, ip, b, 1, info )
146 CALL chkxer(
'ZGESV ', infot, nout, lerr, ok )
148 CALL zgesv( 2, 1, a, 1, ip, b, 2, info )
149 CALL chkxer(
'ZGESV ', infot, nout, lerr, ok )
151 CALL zgesv( 2, 1, a, 2, ip, b, 1, info )
152 CALL chkxer(
'ZGESV ', infot, nout, lerr, ok )
158 CALL zgesvx(
'/',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
159 $ x, 1, rcond, r1, r2, w, rw, info )
160 CALL chkxer(
'ZGESVX', infot, nout, lerr, ok )
162 CALL zgesvx(
'N',
'/', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
163 $ x, 1, rcond, r1, r2, w, rw, info )
164 CALL chkxer(
'ZGESVX', infot, nout, lerr, ok )
166 CALL zgesvx(
'N',
'N', -1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
167 $ x, 1, rcond, r1, r2, w, rw, info )
168 CALL chkxer(
'ZGESVX', infot, nout, lerr, ok )
170 CALL zgesvx(
'N',
'N', 0, -1, a, 1, af, 1, ip, eq, r, c, b, 1,
171 $ x, 1, rcond, r1, r2, w, rw, info )
172 CALL chkxer(
'ZGESVX', infot, nout, lerr, ok )
174 CALL zgesvx(
'N',
'N', 2, 1, a, 1, af, 2, ip, eq, r, c, b, 2,
175 $ x, 2, rcond, r1, r2, w, rw, info )
176 CALL chkxer(
'ZGESVX', infot, nout, lerr, ok )
178 CALL zgesvx(
'N',
'N', 2, 1, a, 2, af, 1, ip, eq, r, c, b, 2,
179 $ x, 2, rcond, r1, r2, w, rw, info )
180 CALL chkxer(
'ZGESVX', infot, nout, lerr, ok )
183 CALL zgesvx(
'F',
'N', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
184 $ x, 1, rcond, r1, r2, w, rw, info )
185 CALL chkxer(
'ZGESVX', infot, nout, lerr, ok )
188 CALL zgesvx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
189 $ x, 1, rcond, r1, r2, w, rw, info )
190 CALL chkxer(
'ZGESVX', infot, nout, lerr, ok )
193 CALL zgesvx(
'F',
'N', 1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
194 $ x, 1, rcond, r1, r2, w, rw, info )
195 CALL chkxer(
'ZGESVX', infot, nout, lerr, ok )
197 CALL zgesvx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c, b, 1,
198 $ x, 2, rcond, r1, r2, w, rw, info )
199 CALL chkxer(
'ZGESVX', infot, nout, lerr, ok )
201 CALL zgesvx(
'N',
'N', 2, 1, a, 2, af, 2, ip, eq, r, c, b, 2,
202 $ x, 1, rcond, r1, r2, w, rw, info )
203 CALL chkxer(
'ZGESVX', infot, nout, lerr, ok )
205 ELSE IF( lsamen( 2, c2,
'GB' ) )
THEN
211 CALL zgbsv( -1, 0, 0, 0, a, 1, ip, b, 1, info )
212 CALL chkxer(
'ZGBSV ', infot, nout, lerr, ok )
214 CALL zgbsv( 1, -1, 0, 0, a, 1, ip, b, 1, info )
215 CALL chkxer(
'ZGBSV ', infot, nout, lerr, ok )
217 CALL zgbsv( 1, 0, -1, 0, a, 1, ip, b, 1, info )
218 CALL chkxer(
'ZGBSV ', infot, nout, lerr, ok )
220 CALL zgbsv( 0, 0, 0, -1, a, 1, ip, b, 1, info )
221 CALL chkxer(
'ZGBSV ', infot, nout, lerr, ok )
223 CALL zgbsv( 1, 1, 1, 0, a, 3, ip, b, 1, info )
224 CALL chkxer(
'ZGBSV ', infot, nout, lerr, ok )
226 CALL zgbsv( 2, 0, 0, 0, a, 1, ip, b, 1, info )
227 CALL chkxer(
'ZGBSV ', infot, nout, lerr, ok )
233 CALL zgbsvx(
'/',
'N', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
234 $ b, 1, x, 1, rcond, r1, r2, w, rw, info )
235 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
237 CALL zgbsvx(
'N',
'/', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
238 $ b, 1, x, 1, rcond, r1, r2, w, rw, info )
239 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
241 CALL zgbsvx(
'N',
'N', -1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
242 $ b, 1, x, 1, rcond, r1, r2, w, rw, info )
243 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
245 CALL zgbsvx(
'N',
'N', 1, -1, 0, 0, a, 1, af, 1, ip, eq, r, c,
246 $ b, 1, x, 1, rcond, r1, r2, w, rw, info )
247 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
249 CALL zgbsvx(
'N',
'N', 1, 0, -1, 0, a, 1, af, 1, ip, eq, r, c,
250 $ b, 1, x, 1, rcond, r1, r2, w, rw, info )
251 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
253 CALL zgbsvx(
'N',
'N', 0, 0, 0, -1, a, 1, af, 1, ip, eq, r, c,
254 $ b, 1, x, 1, rcond, r1, r2, w, rw, info )
255 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
257 CALL zgbsvx(
'N',
'N', 1, 1, 1, 0, a, 2, af, 4, ip, eq, r, c,
258 $ b, 1, x, 1, rcond, r1, r2, w, rw, info )
259 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
261 CALL zgbsvx(
'N',
'N', 1, 1, 1, 0, a, 3, af, 3, ip, eq, r, c,
262 $ b, 1, x, 1, rcond, r1, r2, w, rw, info )
263 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
266 CALL zgbsvx(
'F',
'N', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
267 $ b, 1, x, 1, rcond, r1, r2, w, rw, info )
268 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
271 CALL zgbsvx(
'F',
'N', 1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
272 $ b, 1, x, 1, rcond, r1, r2, w, rw, info )
273 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
276 CALL zgbsvx(
'F',
'N', 1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
277 $ b, 1, x, 1, rcond, r1, r2, w, rw, info )
278 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
280 CALL zgbsvx(
'N',
'N', 2, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
281 $ b, 1, x, 2, rcond, r1, r2, w, rw, info )
282 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
284 CALL zgbsvx(
'N',
'N', 2, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
285 $ b, 2, x, 1, rcond, r1, r2, w, rw, info )
286 CALL chkxer(
'ZGBSVX', infot, nout, lerr, ok )
288 ELSE IF( lsamen( 2, c2,
'GT' ) )
THEN
294 CALL zgtsv( -1, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1,
296 CALL chkxer(
'ZGTSV ', infot, nout, lerr, ok )
298 CALL zgtsv( 0, -1, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1,
300 CALL chkxer(
'ZGTSV ', infot, nout, lerr, ok )
302 CALL zgtsv( 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1, info )
303 CALL chkxer(
'ZGTSV ', infot, nout, lerr, ok )
309 CALL zgtsvx(
'/',
'N', 0, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
310 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
311 $ ip, b, 1, x, 1, rcond, r1, r2, w, rw, info )
312 CALL chkxer(
'ZGTSVX', infot, nout, lerr, ok )
314 CALL zgtsvx(
'N',
'/', 0, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
315 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
316 $ ip, b, 1, x, 1, rcond, r1, r2, w, rw, info )
317 CALL chkxer(
'ZGTSVX', infot, nout, lerr, ok )
319 CALL zgtsvx(
'N',
'N', -1, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
320 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
321 $ ip, b, 1, x, 1, rcond, r1, r2, w, rw, info )
322 CALL chkxer(
'ZGTSVX', infot, nout, lerr, ok )
324 CALL zgtsvx(
'N',
'N', 0, -1, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
325 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
326 $ ip, b, 1, x, 1, rcond, r1, r2, w, rw, info )
327 CALL chkxer(
'ZGTSVX', infot, nout, lerr, ok )
329 CALL zgtsvx(
'N',
'N', 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
330 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
331 $ ip, b, 1, x, 2, rcond, r1, r2, w, rw, info )
332 CALL chkxer(
'ZGTSVX', infot, nout, lerr, ok )
334 CALL zgtsvx(
'N',
'N', 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
335 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
336 $ ip, b, 2, x, 1, rcond, r1, r2, w, rw, info )
337 CALL chkxer(
'ZGTSVX', infot, nout, lerr, ok )
339 ELSE IF( lsamen( 2, c2,
'PO' ) )
THEN
345 CALL zposv(
'/', 0, 0, a, 1, b, 1, info )
346 CALL chkxer(
'ZPOSV ', infot, nout, lerr, ok )
348 CALL zposv(
'U', -1, 0, a, 1, b, 1, info )
349 CALL chkxer(
'ZPOSV ', infot, nout, lerr, ok )
351 CALL zposv(
'U', 0, -1, a, 1, b, 1, info )
352 CALL chkxer(
'ZPOSV ', infot, nout, lerr, ok )
354 CALL zposv(
'U', 2, 0, a, 1, b, 2, info )
355 CALL chkxer(
'ZPOSV ', infot, nout, lerr, ok )
357 CALL zposv(
'U', 2, 0, a, 2, b, 1, info )
358 CALL chkxer(
'ZPOSV ', infot, nout, lerr, ok )
364 CALL zposvx(
'/',
'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
365 $ rcond, r1, r2, w, rw, info )
366 CALL chkxer(
'ZPOSVX', infot, nout, lerr, ok )
368 CALL zposvx(
'N',
'/', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
369 $ rcond, r1, r2, w, rw, info )
370 CALL chkxer(
'ZPOSVX', infot, nout, lerr, ok )
372 CALL zposvx(
'N',
'U', -1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
373 $ rcond, r1, r2, w, rw, info )
374 CALL chkxer(
'ZPOSVX', infot, nout, lerr, ok )
376 CALL zposvx(
'N',
'U', 0, -1, a, 1, af, 1, eq, c, b, 1, x, 1,
377 $ rcond, r1, r2, w, rw, info )
378 CALL chkxer(
'ZPOSVX', infot, nout, lerr, ok )
380 CALL zposvx(
'N',
'U', 2, 0, a, 1, af, 2, eq, c, b, 2, x, 2,
381 $ rcond, r1, r2, w, rw, info )
382 CALL chkxer(
'ZPOSVX', infot, nout, lerr, ok )
384 CALL zposvx(
'N',
'U', 2, 0, a, 2, af, 1, eq, c, b, 2, x, 2,
385 $ rcond, r1, r2, w, rw, info )
386 CALL chkxer(
'ZPOSVX', infot, nout, lerr, ok )
389 CALL zposvx(
'F',
'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
390 $ rcond, r1, r2, w, rw, info )
391 CALL chkxer(
'ZPOSVX', infot, nout, lerr, ok )
394 CALL zposvx(
'F',
'U', 1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
395 $ rcond, r1, r2, w, rw, info )
396 CALL chkxer(
'ZPOSVX', infot, nout, lerr, ok )
398 CALL zposvx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c, b, 1, x, 2,
399 $ rcond, r1, r2, w, rw, info )
400 CALL chkxer(
'ZPOSVX', infot, nout, lerr, ok )
402 CALL zposvx(
'N',
'U', 2, 0, a, 2, af, 2, eq, c, b, 2, x, 1,
403 $ rcond, r1, r2, w, rw, info )
404 CALL chkxer(
'ZPOSVX', infot, nout, lerr, ok )
406 ELSE IF( lsamen( 2, c2,
'PP' ) )
THEN
412 CALL zppsv(
'/', 0, 0, a, b, 1, info )
413 CALL chkxer(
'ZPPSV ', infot, nout, lerr, ok )
415 CALL zppsv(
'U', -1, 0, a, b, 1, info )
416 CALL chkxer(
'ZPPSV ', infot, nout, lerr, ok )
418 CALL zppsv(
'U', 0, -1, a, b, 1, info )
419 CALL chkxer(
'ZPPSV ', infot, nout, lerr, ok )
421 CALL zppsv(
'U', 2, 0, a, b, 1, info )
422 CALL chkxer(
'ZPPSV ', infot, nout, lerr, ok )
428 CALL zppsvx(
'/',
'U', 0, 0, a, af, eq, c, b, 1, x, 1, rcond,
429 $ r1, r2, w, rw, info )
430 CALL chkxer(
'ZPPSVX', infot, nout, lerr, ok )
432 CALL zppsvx(
'N',
'/', 0, 0, a, af, eq, c, b, 1, x, 1, rcond,
433 $ r1, r2, w, rw, info )
434 CALL chkxer(
'ZPPSVX', infot, nout, lerr, ok )
436 CALL zppsvx(
'N',
'U', -1, 0, a, af, eq, c, b, 1, x, 1, rcond,
437 $ r1, r2, w, rw, info )
438 CALL chkxer(
'ZPPSVX', infot, nout, lerr, ok )
440 CALL zppsvx(
'N',
'U', 0, -1, a, af, eq, c, b, 1, x, 1, rcond,
441 $ r1, r2, w, rw, info )
442 CALL chkxer(
'ZPPSVX', infot, nout, lerr, ok )
445 CALL zppsvx(
'F',
'U', 0, 0, a, af, eq, c, b, 1, x, 1, rcond,
446 $ r1, r2, w, rw, info )
447 CALL chkxer(
'ZPPSVX', infot, nout, lerr, ok )
450 CALL zppsvx(
'F',
'U', 1, 0, a, af, eq, c, b, 1, x, 1, rcond,
451 $ r1, r2, w, rw, info )
452 CALL chkxer(
'ZPPSVX', infot, nout, lerr, ok )
454 CALL zppsvx(
'N',
'U', 2, 0, a, af, eq, c, b, 1, x, 2, rcond,
455 $ r1, r2, w, rw, info )
456 CALL chkxer(
'ZPPSVX', infot, nout, lerr, ok )
458 CALL zppsvx(
'N',
'U', 2, 0, a, af, eq, c, b, 2, x, 1, rcond,
459 $ r1, r2, w, rw, info )
460 CALL chkxer(
'ZPPSVX', infot, nout, lerr, ok )
462 ELSE IF( lsamen( 2, c2,
'PB' ) )
THEN
468 CALL zpbsv(
'/', 0, 0, 0, a, 1, b, 1, info )
469 CALL chkxer(
'ZPBSV ', infot, nout, lerr, ok )
471 CALL zpbsv(
'U', -1, 0, 0, a, 1, b, 1, info )
472 CALL chkxer(
'ZPBSV ', infot, nout, lerr, ok )
474 CALL zpbsv(
'U', 1, -1, 0, a, 1, b, 1, info )
475 CALL chkxer(
'ZPBSV ', infot, nout, lerr, ok )
477 CALL zpbsv(
'U', 0, 0, -1, a, 1, b, 1, info )
478 CALL chkxer(
'ZPBSV ', infot, nout, lerr, ok )
480 CALL zpbsv(
'U', 1, 1, 0, a, 1, b, 2, info )
481 CALL chkxer(
'ZPBSV ', infot, nout, lerr, ok )
483 CALL zpbsv(
'U', 2, 0, 0, a, 1, b, 1, info )
484 CALL chkxer(
'ZPBSV ', infot, nout, lerr, ok )
490 CALL zpbsvx(
'/',
'U', 0, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
491 $ rcond, r1, r2, w, rw, info )
492 CALL chkxer(
'ZPBSVX', infot, nout, lerr, ok )
494 CALL zpbsvx(
'N',
'/', 0, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
495 $ rcond, r1, r2, w, rw, info )
496 CALL chkxer(
'ZPBSVX', infot, nout, lerr, ok )
498 CALL zpbsvx(
'N',
'U', -1, 0, 0, a, 1, af, 1, eq, c, b, 1, x,
499 $ 1, rcond, r1, r2, w, rw, info )
500 CALL chkxer(
'ZPBSVX', infot, nout, lerr, ok )
502 CALL zpbsvx(
'N',
'U', 1, -1, 0, a, 1, af, 1, eq, c, b, 1, x,
503 $ 1, rcond, r1, r2, w, rw, info )
504 CALL chkxer(
'ZPBSVX', infot, nout, lerr, ok )
506 CALL zpbsvx(
'N',
'U', 0, 0, -1, a, 1, af, 1, eq, c, b, 1, x,
507 $ 1, rcond, r1, r2, w, rw, info )
508 CALL chkxer(
'ZPBSVX', infot, nout, lerr, ok )
510 CALL zpbsvx(
'N',
'U', 1, 1, 0, a, 1, af, 2, eq, c, b, 2, x, 2,
511 $ rcond, r1, r2, w, rw, info )
512 CALL chkxer(
'ZPBSVX', infot, nout, lerr, ok )
514 CALL zpbsvx(
'N',
'U', 1, 1, 0, a, 2, af, 1, eq, c, b, 2, x, 2,
515 $ rcond, r1, r2, w, rw, info )
516 CALL chkxer(
'ZPBSVX', infot, nout, lerr, ok )
519 CALL zpbsvx(
'F',
'U', 0, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
520 $ rcond, r1, r2, w, rw, info )
521 CALL chkxer(
'ZPBSVX', infot, nout, lerr, ok )
524 CALL zpbsvx(
'F',
'U', 1, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
525 $ rcond, r1, r2, w, rw, info )
526 CALL chkxer(
'ZPBSVX', infot, nout, lerr, ok )
528 CALL zpbsvx(
'N',
'U', 2, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 2,
529 $ rcond, r1, r2, w, rw, info )
530 CALL chkxer(
'ZPBSVX', infot, nout, lerr, ok )
532 CALL zpbsvx(
'N',
'U', 2, 0, 0, a, 1, af, 1, eq, c, b, 2, x, 1,
533 $ rcond, r1, r2, w, rw, info )
534 CALL chkxer(
'ZPBSVX', infot, nout, lerr, ok )
536 ELSE IF( lsamen( 2, c2,
'PT' ) )
THEN
542 CALL zptsv( -1, 0, r, a( 1, 1 ), b, 1, info )
543 CALL chkxer(
'ZPTSV ', infot, nout, lerr, ok )
545 CALL zptsv( 0, -1, r, a( 1, 1 ), b, 1, info )
546 CALL chkxer(
'ZPTSV ', infot, nout, lerr, ok )
548 CALL zptsv( 2, 0, r, a( 1, 1 ), b, 1, info )
549 CALL chkxer(
'ZPTSV ', infot, nout, lerr, ok )
555 CALL zptsvx(
'/', 0, 0, r, a( 1, 1 ), rf, af( 1, 1 ), b, 1, x,
556 $ 1, rcond, r1, r2, w, rw, info )
557 CALL chkxer(
'ZPTSVX', infot, nout, lerr, ok )
559 CALL zptsvx(
'N', -1, 0, r, a( 1, 1 ), rf, af( 1, 1 ), b, 1, x,
560 $ 1, rcond, r1, r2, w, rw, info )
561 CALL chkxer(
'ZPTSVX', infot, nout, lerr, ok )
563 CALL zptsvx(
'N', 0, -1, r, a( 1, 1 ), rf, af( 1, 1 ), b, 1, x,
564 $ 1, rcond, r1, r2, w, rw, info )
565 CALL chkxer(
'ZPTSVX', infot, nout, lerr, ok )
567 CALL zptsvx(
'N', 2, 0, r, a( 1, 1 ), rf, af( 1, 1 ), b, 1, x,
568 $ 2, rcond, r1, r2, w, rw, info )
569 CALL chkxer(
'ZPTSVX', infot, nout, lerr, ok )
571 CALL zptsvx(
'N', 2, 0, r, a( 1, 1 ), rf, af( 1, 1 ), b, 2, x,
572 $ 1, rcond, r1, r2, w, rw, info )
573 CALL chkxer(
'ZPTSVX', infot, nout, lerr, ok )
575 ELSE IF( lsamen( 2, c2,
'HE' ) )
THEN
581 CALL zhesv(
'/', 0, 0, a, 1, ip, b, 1, w, 1, info )
582 CALL chkxer(
'ZHESV ', infot, nout, lerr, ok )
584 CALL zhesv(
'U', -1, 0, a, 1, ip, b, 1, w, 1, info )
585 CALL chkxer(
'ZHESV ', infot, nout, lerr, ok )
587 CALL zhesv(
'U', 0, -1, a, 1, ip, b, 1, w, 1, info )
588 CALL chkxer(
'ZHESV ', infot, nout, lerr, ok )
590 CALL zhesv(
'U', 2, 0, a, 1, ip, b, 2, w, 1, info )
591 CALL chkxer(
'ZHESV ', infot, nout, lerr, ok )
593 CALL zhesv(
'U', 2, 0, a, 2, ip, b, 1, w, 1, info )
594 CALL chkxer(
'ZHESV ', infot, nout, lerr, ok )
596 CALL zhesv(
'U', 0, 0, a, 1, ip, b, 1, w, 0, info )
597 CALL chkxer(
'ZHESV ', infot, nout, lerr, ok )
599 CALL zhesv(
'U', 0, 0, a, 1, ip, b, 1, w, -2, info )
600 CALL chkxer(
'ZHESV ', infot, nout, lerr, ok )
606 CALL zhesvx(
'/',
'U', 0, 0, a, 1, af, 1, ip, b, 1, x, 1,
607 $ rcond, r1, r2, w, 1, rw, info )
608 CALL chkxer(
'ZHESVX', infot, nout, lerr, ok )
610 CALL zhesvx(
'N',
'/', 0, 0, a, 1, af, 1, ip, b, 1, x, 1,
611 $ rcond, r1, r2, w, 1, rw, info )
612 CALL chkxer(
'ZHESVX', infot, nout, lerr, ok )
614 CALL zhesvx(
'N',
'U', -1, 0, a, 1, af, 1, ip, b, 1, x, 1,
615 $ rcond, r1, r2, w, 1, rw, info )
616 CALL chkxer(
'ZHESVX', infot, nout, lerr, ok )
618 CALL zhesvx(
'N',
'U', 0, -1, a, 1, af, 1, ip, b, 1, x, 1,
619 $ rcond, r1, r2, w, 1, rw, info )
620 CALL chkxer(
'ZHESVX', infot, nout, lerr, ok )
622 CALL zhesvx(
'N',
'U', 2, 0, a, 1, af, 2, ip, b, 2, x, 2,
623 $ rcond, r1, r2, w, 4, rw, info )
624 CALL chkxer(
'ZHESVX', infot, nout, lerr, ok )
626 CALL zhesvx(
'N',
'U', 2, 0, a, 2, af, 1, ip, b, 2, x, 2,
627 $ rcond, r1, r2, w, 4, rw, info )
628 CALL chkxer(
'ZHESVX', infot, nout, lerr, ok )
630 CALL zhesvx(
'N',
'U', 2, 0, a, 2, af, 2, ip, b, 1, x, 2,
631 $ rcond, r1, r2, w, 4, rw, info )
632 CALL chkxer(
'ZHESVX', infot, nout, lerr, ok )
634 CALL zhesvx(
'N',
'U', 2, 0, a, 2, af, 2, ip, b, 2, x, 1,
635 $ rcond, r1, r2, w, 4, rw, info )
636 CALL chkxer(
'ZHESVX', infot, nout, lerr, ok )
638 CALL zhesvx(
'N',
'U', 2, 0, a, 2, af, 2, ip, b, 2, x, 2,
639 $ rcond, r1, r2, w, 3, rw, info )
640 CALL chkxer(
'ZHESVX', infot, nout, lerr, ok )
642 ELSE IF( lsamen( 2, c2,
'HR' ) )
THEN
646 srnamt =
'ZHESV_ROOK'
648 CALL zhesv_rook(
'/', 0, 0, a, 1, ip, b, 1, w, 1, info )
649 CALL chkxer(
'ZHESV_ROOK', infot, nout, lerr, ok )
651 CALL zhesv_rook(
'U', -1, 0, a, 1, ip, b, 1, w, 1, info )
652 CALL chkxer(
'ZHESV_ROOK', infot, nout, lerr, ok )
654 CALL zhesv_rook(
'U', 0, -1, a, 1, ip, b, 1, w, 1, info )
655 CALL chkxer(
'ZHESV_ROOK', infot, nout, lerr, ok )
657 CALL zhesv_rook(
'U', 2, 0, a, 2, ip, b, 1, w, 1, info )
658 CALL chkxer(
'ZHESV_ROOK', infot, nout, lerr, ok )
660 CALL zhesv_rook(
'U', 0, 0, a, 1, ip, b, 1, w, 0, info )
661 CALL chkxer(
'ZHESV_ROOK', infot, nout, lerr, ok )
663 CALL zhesv_rook(
'U', 0, 0, a, 1, ip, b, 1, w, -2, info )
664 CALL chkxer(
'ZHESV_ROOK', infot, nout, lerr, ok )
666 ELSE IF( lsamen( 2, c2,
'HK' ) )
THEN
680 CALL zhesv_rk(
'/', 0, 0, a, 1, e, ip, b, 1, w, 1, info )
681 CALL chkxer(
'ZHESV_RK', infot, nout, lerr, ok )
683 CALL zhesv_rk(
'U', -1, 0, a, 1, e, ip, b, 1, w, 1, info )
684 CALL chkxer(
'ZHESV_RK', infot, nout, lerr, ok )
686 CALL zhesv_rk(
'U', 0, -1, a, 1, e, ip, b, 1, w, 1, info )
687 CALL chkxer(
'ZHESV_RK', infot, nout, lerr, ok )
689 CALL zhesv_rk(
'U', 2, 0, a, 1, e, ip, b, 2, w, 1, info )
690 CALL chkxer(
'ZHESV_RK', infot, nout, lerr, ok )
692 CALL zhesv_rk(
'U', 2, 0, a, 2, e, ip, b, 1, w, 1, info )
693 CALL chkxer(
'ZHESV_RK', infot, nout, lerr, ok )
695 CALL zhesv_rk(
'U', 0, 0, a, 1, e, ip, b, 1, w, 0, info )
696 CALL chkxer(
'ZHESV_RK', infot, nout, lerr, ok )
698 CALL zhesv_rk(
'U', 0, 0, a, 1, e, ip, b, 1, w, -2, info )
699 CALL chkxer(
'ZHESV_RK', infot, nout, lerr, ok )
701 ELSE IF( lsamen( 2, c2,
'HA' ) )
THEN
707 CALL zhesv_aa(
'/', 0, 0, a, 1, ip, b, 1, w, 1, info )
708 CALL chkxer(
'ZHESV_AA', infot, nout, lerr, ok )
710 CALL zhesv_aa(
'U', -1, 0, a, 1, ip, b, 1, w, 1, info )
711 CALL chkxer(
'ZHESV_AA', infot, nout, lerr, ok )
713 CALL zhesv_aa(
'U', 0, -1, a, 1, ip, b, 1, w, 1, info )
714 CALL chkxer(
'ZHESV_AA', infot, nout, lerr, ok )
716 CALL zhesv_aa(
'U', 2, 0, a, 2, ip, b, 1, w, 1, info )
717 CALL chkxer(
'ZHESV_AA', infot, nout, lerr, ok )
719 ELSE IF( lsamen( 2, c2,
'H2' ) )
THEN
723 srnamt =
'ZHESV_AA_2STAGE'
725 CALL zhesv_aa_2stage(
'/', 0, 0, a, 1, a, 1, ip, ip, b, 1,
727 CALL chkxer(
'ZHESV_AA_2STAGE', infot, nout, lerr, ok )
729 CALL zhesv_aa_2stage(
'U', -1, 0, a, 1, a, 1, ip, ip, b, 1,
731 CALL chkxer(
'ZHESV_AA_2STAGE', infot, nout, lerr, ok )
733 CALL zhesv_aa_2stage(
'U', 0, -1, a, 1, a, 1, ip, ip, b, 1,
735 CALL chkxer(
'ZHESV_AA_2STAGE', infot, nout, lerr, ok )
737 CALL zhesv_aa_2stage(
'U', 2, 1, a, 1, a, 1, ip, ip, b, 1,
739 CALL chkxer(
'ZHESV_AA_2STAGE', infot, nout, lerr, ok )
741 CALL zhesv_aa_2stage(
'U', 2, 1, a, 2, a, 8, ip, ip, b, 1,
743 CALL chkxer(
'ZHESV_AA_2STAGE', infot, nout, lerr, ok )
745 CALL zhesv_aa_2stage(
'U', 2, 1, a, 2, a, 1, ip, ip, b, 2,
747 CALL chkxer(
'ZHESV_AA_2STAGE', infot, nout, lerr, ok )
749 ELSE IF( lsamen( 2, c2,
'S2' ) )
THEN
753 srnamt =
'ZSYSV_AA_2STAGE'
755 CALL zsysv_aa_2stage(
'/', 0, 0, a, 1, a, 1, ip, ip, b, 1,
757 CALL chkxer(
'ZSYSV_AA_2STAGE', infot, nout, lerr, ok )
759 CALL zsysv_aa_2stage(
'U', -1, 0, a, 1, a, 1, ip, ip, b, 1,
761 CALL chkxer(
'ZSYSV_AA_2STAGE', infot, nout, lerr, ok )
763 CALL zsysv_aa_2stage(
'U', 0, -1, a, 1, a, 1, ip, ip, b, 1,
765 CALL chkxer(
'ZSYSV_AA_2STAGE', infot, nout, lerr, ok )
767 CALL zsysv_aa_2stage(
'U', 2, 1, a, 1, a, 1, ip, ip, b, 1,
769 CALL chkxer(
'ZSYSV_AA_2STAGE', infot, nout, lerr, ok )
771 CALL zsysv_aa_2stage(
'U', 2, 1, a, 2, a, 8, ip, ip, b, 1,
773 CALL chkxer(
'ZSYSV_AA_2STAGE', infot, nout, lerr, ok )
775 CALL zsysv_aa_2stage(
'U', 2, 1, a, 2, a, 1, ip, ip, b, 2,
777 CALL chkxer(
'ZSYSV_AA_2STAGE', infot, nout, lerr, ok )
779 ELSE IF( lsamen( 2, c2,
'HP' ) )
THEN
785 CALL zhpsv(
'/', 0, 0, a, ip, b, 1, info )
786 CALL chkxer(
'ZHPSV ', infot, nout, lerr, ok )
788 CALL zhpsv(
'U', -1, 0, a, ip, b, 1, info )
789 CALL chkxer(
'ZHPSV ', infot, nout, lerr, ok )
791 CALL zhpsv(
'U', 0, -1, a, ip, b, 1, info )
792 CALL chkxer(
'ZHPSV ', infot, nout, lerr, ok )
794 CALL zhpsv(
'U', 2, 0, a, ip, b, 1, info )
795 CALL chkxer(
'ZHPSV ', infot, nout, lerr, ok )
801 CALL zhpsvx(
'/',
'U', 0, 0, a, af, ip, b, 1, x, 1, rcond, r1,
803 CALL chkxer(
'ZHPSVX', infot, nout, lerr, ok )
805 CALL zhpsvx(
'N',
'/', 0, 0, a, af, ip, b, 1, x, 1, rcond, r1,
807 CALL chkxer(
'ZHPSVX', infot, nout, lerr, ok )
809 CALL zhpsvx(
'N',
'U', -1, 0, a, af, ip, b, 1, x, 1, rcond, r1,
811 CALL chkxer(
'ZHPSVX', infot, nout, lerr, ok )
813 CALL zhpsvx(
'N',
'U', 0, -1, a, af, ip, b, 1, x, 1, rcond, r1,
815 CALL chkxer(
'ZHPSVX', infot, nout, lerr, ok )
817 CALL zhpsvx(
'N',
'U', 2, 0, a, af, ip, b, 1, x, 2, rcond, r1,
819 CALL chkxer(
'ZHPSVX', infot, nout, lerr, ok )
821 CALL zhpsvx(
'N',
'U', 2, 0, a, af, ip, b, 2, x, 1, rcond, r1,
823 CALL chkxer(
'ZHPSVX', infot, nout, lerr, ok )
825 ELSE IF( lsamen( 2, c2,
'SY' ) )
THEN
831 CALL zsysv(
'/', 0, 0, a, 1, ip, b, 1, w, 1, info )
832 CALL chkxer(
'ZSYSV ', infot, nout, lerr, ok )
834 CALL zsysv(
'U', -1, 0, a, 1, ip, b, 1, w, 1, info )
835 CALL chkxer(
'ZSYSV ', infot, nout, lerr, ok )
837 CALL zsysv(
'U', 0, -1, a, 1, ip, b, 1, w, 1, info )
838 CALL chkxer(
'ZSYSV ', infot, nout, lerr, ok )
840 CALL zsysv(
'U', 2, 0, a, 2, ip, b, 1, w, 1, info )
841 CALL chkxer(
'ZSYSV ', infot, nout, lerr, ok )
843 CALL zsysv(
'U', 0, 0, a, 1, ip, b, 1, w, 0, info )
844 CALL chkxer(
'ZSYSV ', infot, nout, lerr, ok )
846 CALL zsysv(
'U', 0, 0, a, 1, ip, b, 1, w, -2, info )
847 CALL chkxer(
'ZSYSV ', infot, nout, lerr, ok )
853 CALL zsysvx(
'/',
'U', 0, 0, a, 1, af, 1, ip, b, 1, x, 1,
854 $ rcond, r1, r2, w, 1, rw, info )
855 CALL chkxer(
'ZSYSVX', infot, nout, lerr, ok )
857 CALL zsysvx(
'N',
'/', 0, 0, a, 1, af, 1, ip, b, 1, x, 1,
858 $ rcond, r1, r2, w, 1, rw, info )
859 CALL chkxer(
'ZSYSVX', infot, nout, lerr, ok )
861 CALL zsysvx(
'N',
'U', -1, 0, a, 1, af, 1, ip, b, 1, x, 1,
862 $ rcond, r1, r2, w, 1, rw, info )
863 CALL chkxer(
'ZSYSVX', infot, nout, lerr, ok )
865 CALL zsysvx(
'N',
'U', 0, -1, a, 1, af, 1, ip, b, 1, x, 1,
866 $ rcond, r1, r2, w, 1, rw, info )
867 CALL chkxer(
'ZSYSVX', infot, nout, lerr, ok )
869 CALL zsysvx(
'N',
'U', 2, 0, a, 1, af, 2, ip, b, 2, x, 2,
870 $ rcond, r1, r2, w, 4, rw, info )
871 CALL chkxer(
'ZSYSVX', infot, nout, lerr, ok )
873 CALL zsysvx(
'N',
'U', 2, 0, a, 2, af, 1, ip, b, 2, x, 2,
874 $ rcond, r1, r2, w, 4, rw, info )
875 CALL chkxer(
'ZSYSVX', infot, nout, lerr, ok )
877 CALL zsysvx(
'N',
'U', 2, 0, a, 2, af, 2, ip, b, 1, x, 2,
878 $ rcond, r1, r2, w, 4, rw, info )
879 CALL chkxer(
'ZSYSVX', infot, nout, lerr, ok )
881 CALL zsysvx(
'N',
'U', 2, 0, a, 2, af, 2, ip, b, 2, x, 1,
882 $ rcond, r1, r2, w, 4, rw, info )
883 CALL chkxer(
'ZSYSVX', infot, nout, lerr, ok )
885 CALL zsysvx(
'N',
'U', 2, 0, a, 2, af, 2, ip, b, 2, x, 2,
886 $ rcond, r1, r2, w, 3, rw, info )
887 CALL chkxer(
'ZSYSVX', infot, nout, lerr, ok )
889 ELSE IF( lsamen( 2, c2,
'SR' ) )
THEN
893 srnamt =
'ZSYSV_ROOK'
895 CALL zsysv_rook(
'/', 0, 0, a, 1, ip, b, 1, w, 1, info )
896 CALL chkxer(
'ZSYSV_ROOK', infot, nout, lerr, ok )
898 CALL zsysv_rook(
'U', -1, 0, a, 1, ip, b, 1, w, 1, info )
899 CALL chkxer(
'ZSYSV_ROOK', infot, nout, lerr, ok )
901 CALL zsysv_rook(
'U', 0, -1, a, 1, ip, b, 1, w, 1, info )
902 CALL chkxer(
'ZSYSV_ROOK', infot, nout, lerr, ok )
904 CALL zsysv_rook(
'U', 2, 0, a, 2, ip, b, 1, w, 1, info )
905 CALL chkxer(
'ZSYSV_ROOK', infot, nout, lerr, ok )
907 CALL zsysv_rook(
'U', 0, 0, a, 1, ip, b, 1, w, 0, info )
908 CALL chkxer(
'ZSYSV_ROOK', infot, nout, lerr, ok )
910 CALL zsysv_rook(
'U', 0, 0, a, 1, ip, b, 1, w, -2, info )
912 ELSE IF( lsamen( 2, c2,
'SK' ) )
THEN
926 CALL zsysv_rk(
'/', 0, 0, a, 1, e, ip, b, 1, w, 1, info )
927 CALL chkxer(
'ZSYSV_RK', infot, nout, lerr, ok )
929 CALL zsysv_rk(
'U', -1, 0, a, 1, e, ip, b, 1, w, 1, info )
930 CALL chkxer(
'ZSYSV_RK', infot, nout, lerr, ok )
932 CALL zsysv_rk(
'U', 0, -1, a, 1, e, ip, b, 1, w, 1, info )
933 CALL chkxer(
'ZSYSV_RK', infot, nout, lerr, ok )
935 CALL zsysv_rk(
'U', 2, 0, a, 1, e, ip, b, 2, w, 1, info )
936 CALL chkxer(
'ZSYSV_RK', infot, nout, lerr, ok )
938 CALL zsysv_rk(
'U', 2, 0, a, 2, e, ip, b, 1, w, 1, info )
939 CALL chkxer(
'ZSYSV_RK', infot, nout, lerr, ok )
941 CALL zsysv_rk(
'U', 0, 0, a, 1, e, ip, b, 1, w, 0, info )
942 CALL chkxer(
'ZSYSV_RK', infot, nout, lerr, ok )
944 CALL zsysv_rk(
'U', 0, 0, a, 1, e, ip, b, 1, w, -2, info )
945 CALL chkxer(
'ZSYSV_RK', infot, nout, lerr, ok )
947 ELSE IF( lsamen( 2, c2,
'SP' ) )
THEN
953 CALL zspsv(
'/', 0, 0, a, ip, b, 1, info )
954 CALL chkxer(
'ZSPSV ', infot, nout, lerr, ok )
956 CALL zspsv(
'U', -1, 0, a, ip, b, 1, info )
957 CALL chkxer(
'ZSPSV ', infot, nout, lerr, ok )
959 CALL zspsv(
'U', 0, -1, a, ip, b, 1, info )
960 CALL chkxer(
'ZSPSV ', infot, nout, lerr, ok )
962 CALL zspsv(
'U', 2, 0, a, ip, b, 1, info )
963 CALL chkxer(
'ZSPSV ', infot, nout, lerr, ok )
969 CALL zspsvx(
'/',
'U', 0, 0, a, af, ip, b, 1, x, 1, rcond, r1,
971 CALL chkxer(
'ZSPSVX', infot, nout, lerr, ok )
973 CALL zspsvx(
'N',
'/', 0, 0, a, af, ip, b, 1, x, 1, rcond, r1,
975 CALL chkxer(
'ZSPSVX', infot, nout, lerr, ok )
977 CALL zspsvx(
'N',
'U', -1, 0, a, af, ip, b, 1, x, 1, rcond, r1,
979 CALL chkxer(
'ZSPSVX', infot, nout, lerr, ok )
981 CALL zspsvx(
'N',
'U', 0, -1, a, af, ip, b, 1, x, 1, rcond, r1,
983 CALL chkxer(
'ZSPSVX', infot, nout, lerr, ok )
985 CALL zspsvx(
'N',
'U', 2, 0, a, af, ip, b, 1, x, 2, rcond, r1,
987 CALL chkxer(
'ZSPSVX', infot, nout, lerr, ok )
989 CALL zspsvx(
'N',
'U', 2, 0, a, af, ip, b, 2, x, 1, rcond, r1,
991 CALL chkxer(
'ZSPSVX', infot, nout, lerr, ok )
997 WRITE( nout, fmt = 9999 )path
999 WRITE( nout, fmt = 9998 )path
1002 9999
FORMAT( 1x, a3,
' drivers passed the tests of the error exits' )
1003 9998
FORMAT(
' *** ', a3,
' drivers failed the tests of the error ',
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
subroutine zerrvx(PATH, NUNIT)
ZERRVX
subroutine zgbsvx(FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO)
ZGBSVX computes the solution to system of linear equations A * X = B for GB matrices
subroutine zgbsv(N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO)
ZGBSV computes the solution to system of linear equations A * X = B for GB matrices (simple driver)
subroutine zgesv(N, NRHS, A, LDA, IPIV, B, LDB, INFO)
ZGESV computes the solution to system of linear equations A * X = B for GE matrices (simple driver)
subroutine zgesvx(FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO)
ZGESVX computes the solution to system of linear equations A * X = B for GE matrices
subroutine zgtsvx(FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO)
ZGTSVX computes the solution to system of linear equations A * X = B for GT matrices
subroutine zgtsv(N, NRHS, DL, D, DU, B, LDB, INFO)
ZGTSV computes the solution to system of linear equations A * X = B for GT matrices
subroutine zhesv_rk(UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, LWORK, INFO)
ZHESV_RK computes the solution to system of linear equations A * X = B for SY matrices
subroutine zhesv_aa(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
ZHESV_AA computes the solution to system of linear equations A * X = B for HE matrices
subroutine zhesv_rook(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
ZHESV_ROOK computes the solution to a system of linear equations A * X = B for HE matrices using the ...
subroutine zhesvx(FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, RWORK, INFO)
ZHESVX computes the solution to system of linear equations A * X = B for HE matrices
subroutine zhesv(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
ZHESV computes the solution to system of linear equations A * X = B for HE matrices
subroutine zhesv_aa_2stage(UPLO, N, NRHS, A, LDA, TB, LTB, IPIV, IPIV2, B, LDB, WORK, LWORK, INFO)
ZHESV_AA_2STAGE computes the solution to system of linear equations A * X = B for HE matrices
subroutine zpbsvx(FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO)
ZPBSVX computes the solution to system of linear equations A * X = B for OTHER matrices
subroutine zhpsvx(FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO)
ZHPSVX computes the solution to system of linear equations A * X = B for OTHER matrices
subroutine zspsvx(FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO)
ZSPSVX computes the solution to system of linear equations A * X = B for OTHER matrices
subroutine zppsv(UPLO, N, NRHS, AP, B, LDB, INFO)
ZPPSV computes the solution to system of linear equations A * X = B for OTHER matrices
subroutine zpbsv(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
ZPBSV computes the solution to system of linear equations A * X = B for OTHER matrices
subroutine zspsv(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
ZSPSV computes the solution to system of linear equations A * X = B for OTHER matrices
subroutine zppsvx(FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO)
ZPPSVX computes the solution to system of linear equations A * X = B for OTHER matrices
subroutine zhpsv(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
ZHPSV computes the solution to system of linear equations A * X = B for OTHER matrices
subroutine zposv(UPLO, N, NRHS, A, LDA, B, LDB, INFO)
ZPOSV computes the solution to system of linear equations A * X = B for PO matrices
subroutine zposvx(FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO)
ZPOSVX computes the solution to system of linear equations A * X = B for PO matrices
subroutine zptsv(N, NRHS, D, E, B, LDB, INFO)
ZPTSV computes the solution to system of linear equations A * X = B for PT matrices
subroutine zptsvx(FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO)
ZPTSVX computes the solution to system of linear equations A * X = B for PT matrices
subroutine zsysv_aa_2stage(UPLO, N, NRHS, A, LDA, TB, LTB, IPIV, IPIV2, B, LDB, WORK, LWORK, INFO)
ZSYSV_AA_2STAGE computes the solution to system of linear equations A * X = B for SY matrices
subroutine zsysv_rook(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
ZSYSV_ROOK computes the solution to system of linear equations A * X = B for SY matrices
subroutine zsysv(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
ZSYSV computes the solution to system of linear equations A * X = B for SY matrices
subroutine zsysv_aa(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
ZSYSV_AA computes the solution to system of linear equations A * X = B for SY matrices
subroutine zsysv_rk(UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, LWORK, INFO)
ZSYSV_RK computes the solution to system of linear equations A * X = B for SY matrices
subroutine zsysvx(FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, RWORK, INFO)
ZSYSVX computes the solution to system of linear equations A * X = B for SY matrices