147 SUBROUTINE alaerh( PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU,
148 $ n5, imat, nfail, nerrs, nout )
157 CHARACTER*( * ) subnam
159 INTEGER imat, info, infoe, kl, ku, m, n, n5, nerrs,
189 IF( nfail.EQ.0 .AND. nerrs.EQ.0 )
THEN
190 IF(
lsamen( 3, c3,
'SV ' ) .OR.
lsamen( 3, c3,
'SVX' ) )
THEN
193 CALL
alahd( nout, path )
201 IF(
lsamen( 2, p2,
'GE' ) )
THEN
205 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
206 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
207 WRITE( nout, fmt = 9988 )
208 $ subnam(1:len_trim( subnam )), info, infoe, m, n, n5,
211 WRITE( nout, fmt = 9975 )
212 $ subnam(1:len_trim( subnam )), info, m, n, n5, imat
215 $
WRITE( nout, fmt = 9949 )
217 ELSE IF(
lsamen( 3, c3,
'SV ' ) )
THEN
219 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
220 WRITE( nout, fmt = 9984 )
221 $ subnam(1:len_trim( subnam )), info, infoe, n, n5,
224 WRITE( nout, fmt = 9970 )
225 $ subnam(1:len_trim( subnam )), info, n, n5, imat
228 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
230 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
231 WRITE( nout, fmt = 9992 )
232 $ subnam(1:len_trim( subnam )), info, infoe,
233 $ opts( 1: 1 ), opts( 2: 2 ), n, n5, imat
235 WRITE( nout, fmt = 9997 )
236 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
237 $ opts( 2: 2 ), n, n5, imat
240 ELSE IF(
lsamen( 3, c3,
'TRI' ) )
THEN
242 WRITE( nout, fmt = 9971 )
243 $ subnam(1:len_trim( subnam )), info, n, n5, imat
245 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) )
THEN
247 WRITE( nout, fmt = 9978 )
248 $ subnam(1:len_trim( subnam )), info, m, n, imat
250 ELSE IF(
lsamen( 3, c3,
'CON' ) )
THEN
252 WRITE( nout, fmt = 9969 )
253 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), m,
256 ELSE IF(
lsamen( 3, c3,
'LS ' ) )
THEN
258 WRITE( nout, fmt = 9965 )
259 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), m, n,
262 ELSE IF(
lsamen( 3, c3,
'LSX' ) .OR.
lsamen( 3, c3,
'LSS' ) )
265 WRITE( nout, fmt = 9974 )
266 $ subnam(1:len_trim( subnam )), info, m, n, kl, n5, imat
270 WRITE( nout, fmt = 9963 )
271 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), m, n5,
275 ELSE IF(
lsamen( 2, p2,
'GB' ) )
THEN
279 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
280 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
281 WRITE( nout, fmt = 9989 )
282 $ subnam(1:len_trim( subnam )), info, infoe, m, n, kl,
285 WRITE( nout, fmt = 9976 )
286 $ subnam(1:len_trim( subnam )), info, m, n, kl, ku, n5,
290 $
WRITE( nout, fmt = 9949 )
292 ELSE IF(
lsamen( 3, c3,
'SV ' ) )
THEN
294 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
295 WRITE( nout, fmt = 9986 )
296 $ subnam(1:len_trim( subnam )), info, infoe, n, kl, ku,
299 WRITE( nout, fmt = 9972 )
300 $ subnam(1:len_trim( subnam )), info, n, kl, ku, n5,
304 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
306 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
307 WRITE( nout, fmt = 9993 )
308 $ subnam(1:len_trim( subnam )), info, infoe,
309 $ opts( 1: 1 ), opts( 2: 2 ), n, kl, ku, n5, imat
311 WRITE( nout, fmt = 9998 )
312 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
313 $ opts( 2: 2 ), n, kl, ku, n5, imat
316 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) )
THEN
318 WRITE( nout, fmt = 9977 )
319 $ subnam(1:len_trim( subnam )), info, m, n, kl, ku, imat
321 ELSE IF(
lsamen( 3, c3,
'CON' ) )
THEN
323 WRITE( nout, fmt = 9968 )
324 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), m, kl,
329 WRITE( nout, fmt = 9964 )
330 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), m, kl,
334 ELSE IF(
lsamen( 2, p2,
'GT' ) )
THEN
338 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
339 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
340 WRITE( nout, fmt = 9987 )
341 $ subnam(1:len_trim( subnam )), info, infoe, n, imat
343 WRITE( nout, fmt = 9973 )
344 $ subnam(1:len_trim( subnam )), info, n, imat
347 $
WRITE( nout, fmt = 9949 )
349 ELSE IF(
lsamen( 3, c3,
'SV ' ) )
THEN
351 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
352 WRITE( nout, fmt = 9984 )
353 $ subnam(1:len_trim( subnam )), info, infoe, n, n5,
356 WRITE( nout, fmt = 9970 )
357 $ subnam(1:len_trim( subnam )), info, n, n5, imat
360 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
362 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
363 WRITE( nout, fmt = 9992 )
364 $ subnam(1:len_trim( subnam )), info, infoe,
365 $ opts( 1: 1 ), opts( 2: 2 ), n, n5, imat
367 WRITE( nout, fmt = 9997 )
368 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
369 $ opts( 2: 2 ), n, n5, imat
372 ELSE IF(
lsamen( 3, c3,
'CON' ) )
THEN
374 WRITE( nout, fmt = 9969 )
375 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), m,
380 WRITE( nout, fmt = 9963 )
381 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), m, n5,
385 ELSE IF(
lsamen( 2, p2,
'PO' ) )
THEN
390 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
391 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
392 WRITE( nout, fmt = 9980 )
393 $ subnam(1:len_trim( subnam )), info, infoe, uplo, m,
396 WRITE( nout, fmt = 9956 )
397 $ subnam(1:len_trim( subnam )), info, uplo, m, n5, imat
400 $
WRITE( nout, fmt = 9949 )
402 ELSE IF(
lsamen( 3, c3,
'SV ' ) )
THEN
404 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
405 WRITE( nout, fmt = 9979 )
406 $ subnam(1:len_trim( subnam )), info, infoe, uplo, n,
409 WRITE( nout, fmt = 9955 )
410 $ subnam(1:len_trim( subnam )), info, uplo, n, n5, imat
413 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
415 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
416 WRITE( nout, fmt = 9990 )
417 $ subnam(1:len_trim( subnam )), info, infoe,
418 $ opts( 1: 1 ), opts( 2: 2 ), n, n5, imat
420 WRITE( nout, fmt = 9995 )
421 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
422 $ opts( 2: 2 ), n, n5, imat
425 ELSE IF(
lsamen( 3, c3,
'TRI' ) )
THEN
427 WRITE( nout, fmt = 9956 )
428 $ subnam(1:len_trim( subnam )), info, uplo, m, n5, imat
430 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) .OR.
431 $
lsamen( 3, c3,
'CON' ) )
THEN
433 WRITE( nout, fmt = 9960 )
434 $ subnam(1:len_trim( subnam )), info, uplo, m, imat
438 WRITE( nout, fmt = 9955 )
439 $ subnam(1:len_trim( subnam )), info, uplo, m, n5, imat
442 ELSE IF(
lsamen( 2, p2,
'PS' ) )
THEN
447 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
448 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
449 WRITE( nout, fmt = 9980 )subnam, info, infoe, uplo, m,
452 WRITE( nout, fmt = 9956 )subnam, info, uplo, m, n5, imat
455 $
WRITE( nout, fmt = 9949 )
457 ELSE IF(
lsamen( 3, c3,
'SV ' ) )
THEN
459 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
460 WRITE( nout, fmt = 9979 )subnam, info, infoe, uplo, n,
463 WRITE( nout, fmt = 9955 )subnam, info, uplo, n, n5, imat
466 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
468 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
469 WRITE( nout, fmt = 9990 )subnam, info, infoe,
470 $ opts( 1: 1 ), opts( 2: 2 ), n, n5, imat
472 WRITE( nout, fmt = 9995 )subnam, info, opts( 1: 1 ),
473 $ opts( 2: 2 ), n, n5, imat
476 ELSE IF(
lsamen( 3, c3,
'TRI' ) )
THEN
478 WRITE( nout, fmt = 9956 )subnam, info, uplo, m, n5, imat
480 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMT' ) .OR.
481 $
lsamen( 3, c3,
'CON' ) )
THEN
483 WRITE( nout, fmt = 9960 )subnam, info, uplo, m, imat
487 WRITE( nout, fmt = 9955 )subnam, info, uplo, m, n5, imat
490 ELSE IF(
lsamen( 2, p2,
'SY' )
491 $ .OR.
lsamen( 2, p2,
'SR' )
492 $ .OR.
lsamen( 2, p2,
'HE' )
493 $ .OR.
lsamen( 2, p2,
'HR' ) )
THEN
505 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
506 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
507 WRITE( nout, fmt = 9980 )
508 $ subnam(1:len_trim( subnam )), info, infoe, uplo, m,
511 WRITE( nout, fmt = 9956 )
512 $ subnam(1:len_trim( subnam )), info, uplo, m, n5, imat
515 $
WRITE( nout, fmt = 9949 )
517 ELSE IF(
lsamen( 2, c3,
'SV' ) )
THEN
519 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
520 WRITE( nout, fmt = 9979 )
521 $ subnam(1:len_trim( subnam )), info, infoe, uplo, n,
524 WRITE( nout, fmt = 9955 )
525 $ subnam(1:len_trim( subnam )), info, uplo, n, n5, imat
528 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
530 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
531 WRITE( nout, fmt = 9990 )
532 $ subnam(1:len_trim( subnam )), info, infoe,
533 $ opts( 1: 1 ), opts( 2: 2 ), n, n5, imat
535 WRITE( nout, fmt = 9995 )
536 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
537 $ opts( 2: 2 ), n, n5, imat
540 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) .OR.
544 WRITE( nout, fmt = 9960 )
545 $ subnam(1:len_trim( subnam )), info, uplo, m, imat
549 WRITE( nout, fmt = 9955 )
550 $ subnam(1:len_trim( subnam )), info, uplo, m, n5, imat
553 ELSE IF(
lsamen( 2, p2,
'PP' ) .OR.
lsamen( 2, p2,
'SP' ) .OR.
554 $
lsamen( 2, p2,
'HP' ) )
THEN
559 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
560 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
561 WRITE( nout, fmt = 9983 )
562 $ subnam(1:len_trim( subnam )), info, infoe, uplo, m,
565 WRITE( nout, fmt = 9960 )
566 $ subnam(1:len_trim( subnam )), info, uplo, m, imat
569 $
WRITE( nout, fmt = 9949 )
571 ELSE IF(
lsamen( 3, c3,
'SV ' ) )
THEN
573 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
574 WRITE( nout, fmt = 9979 )
575 $ subnam(1:len_trim( subnam )), info, infoe, uplo, n,
578 WRITE( nout, fmt = 9955 )
579 $ subnam(1:len_trim( subnam )), info, uplo, n, n5, imat
582 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
584 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
585 WRITE( nout, fmt = 9990 )
586 $ subnam(1:len_trim( subnam )), info, infoe,
587 $ opts( 1: 1 ), opts( 2: 2 ), n, n5, imat
589 WRITE( nout, fmt = 9995 )
590 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
591 $ opts( 2: 2 ), n, n5, imat
594 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) .OR.
598 WRITE( nout, fmt = 9960 )
599 $ subnam(1:len_trim( subnam )), info, uplo, m, imat
603 WRITE( nout, fmt = 9955 )
604 $ subnam(1:len_trim( subnam )), info, uplo, m, n5, imat
607 ELSE IF(
lsamen( 2, p2,
'PB' ) )
THEN
612 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
613 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
614 WRITE( nout, fmt = 9982 )
615 $ subnam(1:len_trim( subnam )), info, infoe, uplo, m,
618 WRITE( nout, fmt = 9958 )
619 $ subnam(1:len_trim( subnam )), info, uplo, m, kl, n5,
623 $
WRITE( nout, fmt = 9949 )
625 ELSE IF(
lsamen( 3, c3,
'SV ' ) )
THEN
627 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
628 WRITE( nout, fmt = 9981 )
629 $ subnam(1:len_trim( subnam )), info, infoe, uplo, n,
632 WRITE( nout, fmt = 9957 )
633 $ subnam(1:len_trim( subnam )), info, uplo, n, kl, n5,
637 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
639 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
640 WRITE( nout, fmt = 9991 )
641 $ subnam(1:len_trim( subnam )), info, infoe,
642 $ opts( 1: 1 ), opts( 2: 2 ), n, kl, n5, imat
644 WRITE( nout, fmt = 9996 )
645 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
646 $ opts( 2: 2 ), n, kl, n5, imat
649 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) .OR.
650 $
lsamen( 3, c3,
'CON' ) )
THEN
652 WRITE( nout, fmt = 9959 )
653 $ subnam(1:len_trim( subnam )), info, uplo, m, kl, imat
657 WRITE( nout, fmt = 9957 )
658 $ subnam(1:len_trim( subnam )), info, uplo, m, kl, n5,
662 ELSE IF(
lsamen( 2, p2,
'PT' ) )
THEN
666 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
667 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
668 WRITE( nout, fmt = 9987 )
669 $ subnam(1:len_trim( subnam )), info, infoe, n, imat
671 WRITE( nout, fmt = 9973 )
672 $ subnam(1:len_trim( subnam )), info, n, imat
675 $
WRITE( nout, fmt = 9949 )
677 ELSE IF(
lsamen( 3, c3,
'SV ' ) )
THEN
679 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
680 WRITE( nout, fmt = 9984 )
681 $ subnam(1:len_trim( subnam )), info, infoe, n, n5,
684 WRITE( nout, fmt = 9970 )
685 $ subnam(1:len_trim( subnam )), info, n, n5, imat
688 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
690 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
691 WRITE( nout, fmt = 9994 )
692 $ subnam(1:len_trim( subnam )), info, infoe,
693 $ opts( 1: 1 ), n, n5, imat
695 WRITE( nout, fmt = 9999 )
696 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), n,
700 ELSE IF(
lsamen( 3, c3,
'CON' ) )
THEN
702 IF(
lsame( subnam( 1: 1 ),
'S' ) .OR.
703 $
lsame( subnam( 1: 1 ),
'D' ) )
THEN
704 WRITE( nout, fmt = 9973 )
705 $ subnam(1:len_trim( subnam )), info, m, imat
707 WRITE( nout, fmt = 9969 )
708 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), m,
714 WRITE( nout, fmt = 9963 )
715 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), m, n5,
719 ELSE IF(
lsamen( 2, p2,
'TR' ) )
THEN
723 IF(
lsamen( 3, c3,
'TRI' ) )
THEN
724 WRITE( nout, fmt = 9961 )
725 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
726 $ opts( 2: 2 ), m, n5, imat
727 ELSE IF(
lsamen( 3, c3,
'CON' ) )
THEN
728 WRITE( nout, fmt = 9967 )
729 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
730 $ opts( 2: 2 ), opts( 3: 3 ), m, imat
731 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATRS' ) )
THEN
732 WRITE( nout, fmt = 9952 )
733 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
734 $ opts( 2: 2 ), opts( 3: 3 ), opts( 4: 4 ), m, imat
736 WRITE( nout, fmt = 9953 )
737 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
738 $ opts( 2: 2 ), opts( 3: 3 ), m, n5, imat
741 ELSE IF(
lsamen( 2, p2,
'TP' ) )
THEN
745 IF(
lsamen( 3, c3,
'TRI' ) )
THEN
746 WRITE( nout, fmt = 9962 )
747 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
748 $ opts( 2: 2 ), m, imat
749 ELSE IF(
lsamen( 3, c3,
'CON' ) )
THEN
750 WRITE( nout, fmt = 9967 )
751 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
752 $ opts( 2: 2 ), opts( 3: 3 ), m, imat
753 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATPS' ) )
THEN
754 WRITE( nout, fmt = 9952 )
755 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
756 $ opts( 2: 2 ), opts( 3: 3 ), opts( 4: 4 ), m, imat
758 WRITE( nout, fmt = 9953 )
759 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
760 $ opts( 2: 2 ), opts( 3: 3 ), m, n5, imat
763 ELSE IF(
lsamen( 2, p2,
'TB' ) )
THEN
767 IF(
lsamen( 3, c3,
'CON' ) )
THEN
768 WRITE( nout, fmt = 9966 )
769 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
770 $ opts( 2: 2 ), opts( 3: 3 ), m, kl, imat
771 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATBS' ) )
THEN
772 WRITE( nout, fmt = 9951 )
773 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
774 $ opts( 2: 2 ), opts( 3: 3 ), opts( 4: 4 ), m, kl, imat
776 WRITE( nout, fmt = 9954 )
777 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
778 $ opts( 2: 2 ), opts( 3: 3 ), m, kl, n5, imat
781 ELSE IF(
lsamen( 2, p2,
'QR' ) )
THEN
785 IF(
lsamen( 3, c3,
'QRS' ) )
THEN
786 WRITE( nout, fmt = 9974 )
787 $ subnam(1:len_trim( subnam )), info, m, n, kl, n5, imat
788 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) )
THEN
789 WRITE( nout, fmt = 9978 )
790 $ subnam(1:len_trim( subnam )), info, m, n, imat
793 ELSE IF(
lsamen( 2, p2,
'LQ' ) )
THEN
797 IF(
lsamen( 3, c3,
'LQS' ) )
THEN
798 WRITE( nout, fmt = 9974 )
799 $ subnam(1:len_trim( subnam )), info, m, n, kl, n5, imat
800 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) )
THEN
801 WRITE( nout, fmt = 9978 )
802 $ subnam(1:len_trim( subnam )), info, m, n, imat
805 ELSE IF(
lsamen( 2, p2,
'QL' ) )
THEN
809 IF(
lsamen( 3, c3,
'QLS' ) )
THEN
810 WRITE( nout, fmt = 9974 )
811 $ subnam(1:len_trim( subnam )), info, m, n, kl, n5, imat
812 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) )
THEN
813 WRITE( nout, fmt = 9978 )
814 $ subnam(1:len_trim( subnam )), info, m, n, imat
817 ELSE IF(
lsamen( 2, p2,
'RQ' ) )
THEN
821 IF(
lsamen( 3, c3,
'RQS' ) )
THEN
822 WRITE( nout, fmt = 9974 )
823 $ subnam(1:len_trim( subnam )), info, m, n, kl, n5, imat
824 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) )
THEN
825 WRITE( nout, fmt = 9978 )
826 $ subnam(1:len_trim( subnam )), info, m, n, imat
829 ELSE IF(
lsamen( 2, p2,
'LU' ) )
THEN
831 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
832 WRITE( nout, fmt = 9988 )
833 $ subnam(1:len_trim( subnam )), info, infoe, m, n, n5,
836 WRITE( nout, fmt = 9975 )
837 $ subnam(1:len_trim( subnam )), info, m, n, n5, imat
840 ELSE IF(
lsamen( 2, p2,
'CH' ) )
THEN
842 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
843 WRITE( nout, fmt = 9985 )
844 $ subnam(1:len_trim( subnam )), info, infoe, m, n5, imat
846 WRITE( nout, fmt = 9971 )
847 $ subnam(1:len_trim( subnam )), info, m, n5, imat
854 WRITE( nout, fmt = 9950 )
855 $ subnam(1:len_trim( subnam )), info
862 9999
FORMAT(
' *** Error code from ', a,
'=', i5,
', FACT=''', a1,
863 $
''', N=', i5,
', NRHS=', i4,
', type ', i2 )
867 9998
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> FACT=''',
868 $ a1,
''', TRANS=''', a1,
''', N=', i5,
', KL=', i5,
', KU=',
869 $ i5,
', NRHS=', i4,
', type ', i1 )
873 9997
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> FACT=''',
874 $ a1,
''', TRANS=''', a1,
''', N =', i5,
', NRHS =', i4,
879 9996
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> FACT=''',
880 $ a1,
''', UPLO=''', a1,
''', N=', i5,
', KD=', i5,
', NRHS=',
881 $ i4,
', type ', i2 )
885 9995
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> FACT=''',
886 $ a1,
''', UPLO=''', a1,
''', N =', i5,
', NRHS =', i4,
891 9994
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
892 $ i2, /
' ==> FACT=''', a1,
''', N =', i5,
', NRHS =', i4,
897 9993
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
898 $ i2, /
' ==> FACT=''', a1,
''', TRANS=''', a1,
''', N=', i5,
899 $
', KL=', i5,
', KU=', i5,
', NRHS=', i4,
', type ', i1 )
903 9992
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
904 $ i2, /
' ==> FACT=''', a1,
''', TRANS=''', a1,
''', N =', i5,
905 $
', NRHS =', i4,
', type ', i2 )
909 9991
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
910 $ i2, /
' ==> FACT=''', a1,
''', UPLO=''', a1,
''', N=', i5,
911 $
', KD=', i5,
', NRHS=', i4,
', type ', i2 )
915 9990
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
916 $ i2, /
' ==> FACT=''', a1,
''', UPLO=''', a1,
''', N =', i5,
917 $
', NRHS =', i4,
', type ', i2 )
921 9989
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
922 $ i2, /
' ==> M = ', i5,
', N =', i5,
', KL =', i5,
', KU =',
923 $ i5,
', NB =', i4,
', type ', i2 )
927 9988
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
928 $ i2, /
' ==> M =', i5,
', N =', i5,
', NB =', i4,
', type ',
933 9987
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
934 $ i2,
' for N=', i5,
', type ', i2 )
938 9986
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
939 $ i2, /
' ==> N =', i5,
', KL =', i5,
', KU =', i5,
940 $
', NRHS =', i4,
', type ', i2 )
944 9985
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
945 $ i2, /
' ==> N =', i5,
', NB =', i4,
', type ', i2 )
949 9984
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
950 $ i2, /
' ==> N =', i5,
', NRHS =', i4,
', type ', i2 )
954 9983
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
955 $ i2, /
' ==> UPLO = ''', a1,
''', N =', i5,
', type ', i2 )
959 9982
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
960 $ i2, /
' ==> UPLO = ''', a1,
''', N =', i5,
', KD =', i5,
961 $
', NB =', i4,
', type ', i2 )
965 9981
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
966 $ i2, /
' ==> UPLO=''', a1,
''', N =', i5,
', KD =', i5,
967 $
', NRHS =', i4,
', type ', i2 )
971 9980
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
972 $ i2, /
' ==> UPLO = ''', a1,
''', N =', i5,
', NB =', i4,
977 9979
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
978 $ i2, /
' ==> UPLO = ''', a1,
''', N =', i5,
', NRHS =', i4,
983 9978
FORMAT(
' *** Error code from ', a,
' =', i5,
' for M =', i5,
984 $
', N =', i5,
', type ', i2 )
988 9977
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> M = ', i5,
989 $
', N =', i5,
', KL =', i5,
', KU =', i5,
', type ', i2 )
993 9976
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> M = ', i5,
994 $
', N =', i5,
', KL =', i5,
', KU =', i5,
', NB =', i4,
999 9975
FORMAT(
' *** Error code from ', a,
'=', i5,
' for M=', i5,
1000 $
', N=', i5,
', NB=', i4,
', type ', i2 )
1004 9974
FORMAT(
' *** Error code from ', a,
'=', i5, /
' ==> M =', i5,
1005 $
', N =', i5,
', NRHS =', i4,
', NB =', i4,
', type ', i2 )
1009 9973
FORMAT(
' *** Error code from ', a,
' =', i5,
' for N =', i5,
1014 9972
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> N =', i5,
1015 $
', KL =', i5,
', KU =', i5,
', NRHS =', i4,
', type ', i2 )
1019 9971
FORMAT(
' *** Error code from ', a,
'=', i5,
' for N=', i5,
1020 $
', NB=', i4,
', type ', i2 )
1024 9970
FORMAT(
' *** Error code from ', a,
' =', i5,
' for N =', i5,
1025 $
', NRHS =', i4,
', type ', i2 )
1029 9969
FORMAT(
' *** Error code from ', a,
' =', i5,
' for NORM = ''',
1030 $ a1,
''', N =', i5,
', type ', i2 )
1034 9968
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> NORM =''',
1035 $ a1,
''', N =', i5,
', KL =', i5,
', KU =', i5,
', type ',
1040 9967
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> NORM=''',
1041 $ a1,
''', UPLO =''', a1,
''', DIAG=''', a1,
''', N =', i5,
1046 9966
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> NORM=''',
1047 $ a1,
''', UPLO =''', a1,
''', DIAG=''', a1,
''', N=', i5,
1048 $
', KD=', i5,
', type ', i2 )
1052 9965
FORMAT(
' *** Error code from ', a,
' =', i5,
1053 $ /
' ==> TRANS = ''', a1,
''', M =', i5,
', N =', i5,
1054 $
', NRHS =', i4,
', NB =', i4,
', type ', i2 )
1058 9964
FORMAT(
' *** Error code from ', a,
'=', i5, /
' ==> TRANS=''',
1059 $ a1,
''', N =', i5,
', KL =', i5,
', KU =', i5,
', NRHS =',
1060 $ i4,
', type ', i2 )
1064 9963
FORMAT(
' *** Error code from ', a,
' =', i5,
1065 $ /
' ==> TRANS = ''', a1,
''', N =', i5,
', NRHS =', i4,
1070 9962
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO=''',
1071 $ a1,
''', DIAG =''', a1,
''', N =', i5,
', type ', i2 )
1075 9961
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO=''',
1076 $ a1,
''', DIAG =''', a1,
''', N =', i5,
', NB =', i4,
1081 9960
FORMAT(
' *** Error code from ', a,
' =', i5,
' for UPLO = ''',
1082 $ a1,
''', N =', i5,
', type ', i2 )
1086 9959
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO = ''',
1087 $ a1,
''', N =', i5,
', KD =', i5,
', type ', i2 )
1091 9958
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO = ''',
1092 $ a1,
''', N =', i5,
', KD =', i5,
', NB =', i4,
', type ',
1097 9957
FORMAT(
' *** Error code from ', a,
'=', i5, /
' ==> UPLO = ''',
1098 $ a1,
''', N =', i5,
', KD =', i5,
', NRHS =', i4,
', type ',
1103 9956
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO = ''',
1104 $ a1,
''', N =', i5,
', NB =', i4,
', type ', i2 )
1108 9955
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO = ''',
1109 $ a1,
''', N =', i5,
', NRHS =', i4,
', type ', i2 )
1113 9954
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO=''',
1114 $ a1,
''', TRANS=''', a1,
''', DIAG=''', a1,
''', N=', i5,
1115 $
', KD=', i5,
', NRHS=', i4,
', type ', i2 )
1119 9953
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO=''',
1120 $ a1,
''', TRANS=''', a1,
''', DIAG=''', a1,
''', N =', i5,
1121 $
', NRHS =', i4,
', type ', i2 )
1125 9952
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO=''',
1126 $ a1,
''', TRANS=''', a1,
''', DIAG=''', a1,
''', NORMIN=''',
1127 $ a1,
''', N =', i5,
', type ', i2 )
1131 9951
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO=''',
1132 $ a1,
''', TRANS=''', a1,
''', DIAG=''', a1,
''', NORMIN=''',
1133 $ a1,
''', N=', i5,
', KD=', i5,
', type ', i2 )
1137 9950
FORMAT(
' *** Error code from ', a,
' =', i5 )
1141 9949
FORMAT(
' ==> Doing only the condition estimate for this case' )
LOGICAL function lsame(CA, CB)
LSAME
subroutine alahd(IOUNIT, PATH)
ALAHD
subroutine alaerh(PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, N5, IMAT, NFAIL, NERRS, NOUT)
ALAERH
subroutine aladhd(IOUNIT, PATH)
ALADHD
LOGICAL function lsamen(N, CA, CB)
LSAMEN