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,
'SK' )
493 $ .OR.
lsamen( 2, p2,
'HE' )
494 $ .OR.
lsamen( 2, p2,
'HR' )
495 $ .OR.
lsamen( 2, p2,
'HK' )
496 $ .OR.
lsamen( 2, p2,
'HA' ) )
THEN
516 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
517 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
518 WRITE( nout, fmt = 9980 )
519 $ subnam(1:len_trim( subnam )), info, infoe, uplo, m,
522 WRITE( nout, fmt = 9956 )
523 $ subnam(1:len_trim( subnam )), info, uplo, m, n5, imat
526 $
WRITE( nout, fmt = 9949 )
528 ELSE IF(
lsamen( 2, c3,
'SV' ) )
THEN
530 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
531 WRITE( nout, fmt = 9979 )
532 $ subnam(1:len_trim( subnam )), info, infoe, uplo, n,
535 WRITE( nout, fmt = 9955 )
536 $ subnam(1:len_trim( subnam )), info, uplo, n, n5, imat
539 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
541 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
542 WRITE( nout, fmt = 9990 )
543 $ subnam(1:len_trim( subnam )), info, infoe,
544 $ opts( 1: 1 ), opts( 2: 2 ), n, n5, imat
546 WRITE( nout, fmt = 9995 )
547 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
548 $ opts( 2: 2 ), n, n5, imat
551 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) .OR.
555 WRITE( nout, fmt = 9960 )
556 $ subnam(1:len_trim( subnam )), info, uplo, m, imat
560 WRITE( nout, fmt = 9955 )
561 $ subnam(1:len_trim( subnam )), info, uplo, m, n5, imat
564 ELSE IF(
lsamen( 2, p2,
'PP' ) .OR.
lsamen( 2, p2,
'SP' ) .OR.
565 $
lsamen( 2, p2,
'HP' ) )
THEN
570 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
571 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
572 WRITE( nout, fmt = 9983 )
573 $ subnam(1:len_trim( subnam )), info, infoe, uplo, m,
576 WRITE( nout, fmt = 9960 )
577 $ subnam(1:len_trim( subnam )), info, uplo, m, imat
580 $
WRITE( nout, fmt = 9949 )
582 ELSE IF(
lsamen( 3, c3,
'SV ' ) )
THEN
584 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
585 WRITE( nout, fmt = 9979 )
586 $ subnam(1:len_trim( subnam )), info, infoe, uplo, n,
589 WRITE( nout, fmt = 9955 )
590 $ subnam(1:len_trim( subnam )), info, uplo, n, n5, imat
593 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
595 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
596 WRITE( nout, fmt = 9990 )
597 $ subnam(1:len_trim( subnam )), info, infoe,
598 $ opts( 1: 1 ), opts( 2: 2 ), n, n5, imat
600 WRITE( nout, fmt = 9995 )
601 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
602 $ opts( 2: 2 ), n, n5, imat
605 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) .OR.
609 WRITE( nout, fmt = 9960 )
610 $ subnam(1:len_trim( subnam )), info, uplo, m, imat
614 WRITE( nout, fmt = 9955 )
615 $ subnam(1:len_trim( subnam )), info, uplo, m, n5, imat
618 ELSE IF(
lsamen( 2, p2,
'PB' ) )
THEN
623 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
624 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
625 WRITE( nout, fmt = 9982 )
626 $ subnam(1:len_trim( subnam )), info, infoe, uplo, m,
629 WRITE( nout, fmt = 9958 )
630 $ subnam(1:len_trim( subnam )), info, uplo, m, kl, n5,
634 $
WRITE( nout, fmt = 9949 )
636 ELSE IF(
lsamen( 3, c3,
'SV ' ) )
THEN
638 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
639 WRITE( nout, fmt = 9981 )
640 $ subnam(1:len_trim( subnam )), info, infoe, uplo, n,
643 WRITE( nout, fmt = 9957 )
644 $ subnam(1:len_trim( subnam )), info, uplo, n, kl, n5,
648 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
650 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
651 WRITE( nout, fmt = 9991 )
652 $ subnam(1:len_trim( subnam )), info, infoe,
653 $ opts( 1: 1 ), opts( 2: 2 ), n, kl, n5, imat
655 WRITE( nout, fmt = 9996 )
656 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
657 $ opts( 2: 2 ), n, kl, n5, imat
660 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) .OR.
661 $
lsamen( 3, c3,
'CON' ) )
THEN
663 WRITE( nout, fmt = 9959 )
664 $ subnam(1:len_trim( subnam )), info, uplo, m, kl, imat
668 WRITE( nout, fmt = 9957 )
669 $ subnam(1:len_trim( subnam )), info, uplo, m, kl, n5,
673 ELSE IF(
lsamen( 2, p2,
'PT' ) )
THEN
677 IF(
lsamen( 3, c3,
'TRF' ) )
THEN
678 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
679 WRITE( nout, fmt = 9987 )
680 $ subnam(1:len_trim( subnam )), info, infoe, n, imat
682 WRITE( nout, fmt = 9973 )
683 $ subnam(1:len_trim( subnam )), info, n, imat
686 $
WRITE( nout, fmt = 9949 )
688 ELSE IF(
lsamen( 3, c3,
'SV ' ) )
THEN
690 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
691 WRITE( nout, fmt = 9984 )
692 $ subnam(1:len_trim( subnam )), info, infoe, n, n5,
695 WRITE( nout, fmt = 9970 )
696 $ subnam(1:len_trim( subnam )), info, n, n5, imat
699 ELSE IF(
lsamen( 3, c3,
'SVX' ) )
THEN
701 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
702 WRITE( nout, fmt = 9994 )
703 $ subnam(1:len_trim( subnam )), info, infoe,
704 $ opts( 1: 1 ), n, n5, imat
706 WRITE( nout, fmt = 9999 )
707 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), n,
711 ELSE IF(
lsamen( 3, c3,
'CON' ) )
THEN
713 IF(
lsame( subnam( 1: 1 ),
'S' ) .OR.
714 $
lsame( subnam( 1: 1 ),
'D' ) )
THEN
715 WRITE( nout, fmt = 9973 )
716 $ subnam(1:len_trim( subnam )), info, m, imat
718 WRITE( nout, fmt = 9969 )
719 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), m,
725 WRITE( nout, fmt = 9963 )
726 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ), m, n5,
730 ELSE IF(
lsamen( 2, p2,
'TR' ) )
THEN
734 IF(
lsamen( 3, c3,
'TRI' ) )
THEN
735 WRITE( nout, fmt = 9961 )
736 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
737 $ opts( 2: 2 ), m, n5, imat
738 ELSE IF(
lsamen( 3, c3,
'CON' ) )
THEN
739 WRITE( nout, fmt = 9967 )
740 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
741 $ opts( 2: 2 ), opts( 3: 3 ), m, imat
742 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATRS' ) )
THEN
743 WRITE( nout, fmt = 9952 )
744 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
745 $ opts( 2: 2 ), opts( 3: 3 ), opts( 4: 4 ), m, imat
747 WRITE( nout, fmt = 9953 )
748 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
749 $ opts( 2: 2 ), opts( 3: 3 ), m, n5, imat
752 ELSE IF(
lsamen( 2, p2,
'TP' ) )
THEN
756 IF(
lsamen( 3, c3,
'TRI' ) )
THEN
757 WRITE( nout, fmt = 9962 )
758 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
759 $ opts( 2: 2 ), m, imat
760 ELSE IF(
lsamen( 3, c3,
'CON' ) )
THEN
761 WRITE( nout, fmt = 9967 )
762 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
763 $ opts( 2: 2 ), opts( 3: 3 ), m, imat
764 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATPS' ) )
THEN
765 WRITE( nout, fmt = 9952 )
766 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
767 $ opts( 2: 2 ), opts( 3: 3 ), opts( 4: 4 ), m, imat
769 WRITE( nout, fmt = 9953 )
770 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
771 $ opts( 2: 2 ), opts( 3: 3 ), m, n5, imat
774 ELSE IF(
lsamen( 2, p2,
'TB' ) )
THEN
778 IF(
lsamen( 3, c3,
'CON' ) )
THEN
779 WRITE( nout, fmt = 9966 )
780 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
781 $ opts( 2: 2 ), opts( 3: 3 ), m, kl, imat
782 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATBS' ) )
THEN
783 WRITE( nout, fmt = 9951 )
784 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
785 $ opts( 2: 2 ), opts( 3: 3 ), opts( 4: 4 ), m, kl, imat
787 WRITE( nout, fmt = 9954 )
788 $ subnam(1:len_trim( subnam )), info, opts( 1: 1 ),
789 $ opts( 2: 2 ), opts( 3: 3 ), m, kl, n5, imat
792 ELSE IF(
lsamen( 2, p2,
'QR' ) )
THEN
796 IF(
lsamen( 3, c3,
'QRS' ) )
THEN
797 WRITE( nout, fmt = 9974 )
798 $ subnam(1:len_trim( subnam )), info, m, n, kl, n5, imat
799 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) )
THEN
800 WRITE( nout, fmt = 9978 )
801 $ subnam(1:len_trim( subnam )), info, m, n, imat
804 ELSE IF(
lsamen( 2, p2,
'LQ' ) )
THEN
808 IF(
lsamen( 3, c3,
'LQS' ) )
THEN
809 WRITE( nout, fmt = 9974 )
810 $ subnam(1:len_trim( subnam )), info, m, n, kl, n5, imat
811 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) )
THEN
812 WRITE( nout, fmt = 9978 )
813 $ subnam(1:len_trim( subnam )), info, m, n, imat
816 ELSE IF(
lsamen( 2, p2,
'QL' ) )
THEN
820 IF(
lsamen( 3, c3,
'QLS' ) )
THEN
821 WRITE( nout, fmt = 9974 )
822 $ subnam(1:len_trim( subnam )), info, m, n, kl, n5, imat
823 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) )
THEN
824 WRITE( nout, fmt = 9978 )
825 $ subnam(1:len_trim( subnam )), info, m, n, imat
828 ELSE IF(
lsamen( 2, p2,
'RQ' ) )
THEN
832 IF(
lsamen( 3, c3,
'RQS' ) )
THEN
833 WRITE( nout, fmt = 9974 )
834 $ subnam(1:len_trim( subnam )), info, m, n, kl, n5, imat
835 ELSE IF(
lsamen( 5, subnam( 2: 6 ),
'LATMS' ) )
THEN
836 WRITE( nout, fmt = 9978 )
837 $ subnam(1:len_trim( subnam )), info, m, n, imat
840 ELSE IF(
lsamen( 2, p2,
'LU' ) )
THEN
842 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
843 WRITE( nout, fmt = 9988 )
844 $ subnam(1:len_trim( subnam )), info, infoe, m, n, n5,
847 WRITE( nout, fmt = 9975 )
848 $ subnam(1:len_trim( subnam )), info, m, n, n5, imat
851 ELSE IF(
lsamen( 2, p2,
'CH' ) )
THEN
853 IF( info.NE.infoe .AND. infoe.NE.0 )
THEN
854 WRITE( nout, fmt = 9985 )
855 $ subnam(1:len_trim( subnam )), info, infoe, m, n5, imat
857 WRITE( nout, fmt = 9971 )
858 $ subnam(1:len_trim( subnam )), info, m, n5, imat
865 WRITE( nout, fmt = 9950 )
866 $ subnam(1:len_trim( subnam )), info
873 9999
FORMAT(
' *** Error code from ', a,
'=', i5,
', FACT=''', a1,
874 $
''', N=', i5,
', NRHS=', i4,
', type ', i2 )
878 9998
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> FACT=''',
879 $ a1,
''', TRANS=''', a1,
''', N=', i5,
', KL=', i5,
', KU=',
880 $ i5,
', NRHS=', i4,
', type ', i1 )
884 9997
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> FACT=''',
885 $ a1,
''', TRANS=''', a1,
''', N =', i5,
', NRHS =', i4,
890 9996
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> FACT=''',
891 $ a1,
''', UPLO=''', a1,
''', N=', i5,
', KD=', i5,
', NRHS=',
892 $ i4,
', type ', i2 )
896 9995
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> FACT=''',
897 $ a1,
''', UPLO=''', a1,
''', N =', i5,
', NRHS =', i4,
902 9994
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
903 $ i2, /
' ==> FACT=''', a1,
''', N =', i5,
', NRHS =', i4,
908 9993
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
909 $ i2, /
' ==> FACT=''', a1,
''', TRANS=''', a1,
''', N=', i5,
910 $
', KL=', i5,
', KU=', i5,
', NRHS=', i4,
', type ', i1 )
914 9992
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
915 $ i2, /
' ==> FACT=''', a1,
''', TRANS=''', a1,
''', N =', i5,
916 $
', NRHS =', i4,
', type ', i2 )
920 9991
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
921 $ i2, /
' ==> FACT=''', a1,
''', UPLO=''', a1,
''', N=', i5,
922 $
', KD=', i5,
', NRHS=', i4,
', type ', i2 )
926 9990
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
927 $ i2, /
' ==> FACT=''', a1,
''', UPLO=''', a1,
''', N =', i5,
928 $
', NRHS =', i4,
', type ', i2 )
932 9989
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
933 $ i2, /
' ==> M = ', i5,
', N =', i5,
', KL =', i5,
', KU =',
934 $ i5,
', NB =', i4,
', type ', i2 )
938 9988
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
939 $ i2, /
' ==> M =', i5,
', N =', i5,
', NB =', i4,
', type ',
944 9987
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
945 $ i2,
' for N=', i5,
', type ', i2 )
949 9986
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
950 $ i2, /
' ==> N =', i5,
', KL =', i5,
', KU =', i5,
951 $
', NRHS =', i4,
', type ', i2 )
955 9985
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
956 $ i2, /
' ==> N =', i5,
', NB =', i4,
', type ', i2 )
960 9984
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
961 $ i2, /
' ==> N =', i5,
', NRHS =', i4,
', type ', i2 )
965 9983
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
966 $ i2, /
' ==> UPLO = ''', a1,
''', N =', i5,
', type ', i2 )
970 9982
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
971 $ i2, /
' ==> UPLO = ''', a1,
''', N =', i5,
', KD =', i5,
972 $
', NB =', i4,
', type ', i2 )
976 9981
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
977 $ i2, /
' ==> UPLO=''', a1,
''', N =', i5,
', KD =', i5,
978 $
', NRHS =', i4,
', type ', i2 )
982 9980
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
983 $ i2, /
' ==> UPLO = ''', a1,
''', N =', i5,
', NB =', i4,
988 9979
FORMAT(
' *** ', a,
' returned with INFO =', i5,
' instead of ',
989 $ i2, /
' ==> UPLO = ''', a1,
''', N =', i5,
', NRHS =', i4,
994 9978
FORMAT(
' *** Error code from ', a,
' =', i5,
' for M =', i5,
995 $
', N =', i5,
', type ', i2 )
999 9977
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> M = ', i5,
1000 $
', N =', i5,
', KL =', i5,
', KU =', i5,
', type ', i2 )
1004 9976
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> M = ', i5,
1005 $
', N =', i5,
', KL =', i5,
', KU =', i5,
', NB =', i4,
1010 9975
FORMAT(
' *** Error code from ', a,
'=', i5,
' for M=', i5,
1011 $
', N=', i5,
', NB=', i4,
', type ', i2 )
1015 9974
FORMAT(
' *** Error code from ', a,
'=', i5, /
' ==> M =', i5,
1016 $
', N =', i5,
', NRHS =', i4,
', NB =', i4,
', type ', i2 )
1020 9973
FORMAT(
' *** Error code from ', a,
' =', i5,
' for N =', i5,
1025 9972
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> N =', i5,
1026 $
', KL =', i5,
', KU =', i5,
', NRHS =', i4,
', type ', i2 )
1030 9971
FORMAT(
' *** Error code from ', a,
'=', i5,
' for N=', i5,
1031 $
', NB=', i4,
', type ', i2 )
1035 9970
FORMAT(
' *** Error code from ', a,
' =', i5,
' for N =', i5,
1036 $
', NRHS =', i4,
', type ', i2 )
1040 9969
FORMAT(
' *** Error code from ', a,
' =', i5,
' for NORM = ''',
1041 $ a1,
''', N =', i5,
', type ', i2 )
1045 9968
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> NORM =''',
1046 $ a1,
''', N =', i5,
', KL =', i5,
', KU =', i5,
', type ',
1051 9967
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> NORM=''',
1052 $ a1,
''', UPLO =''', a1,
''', DIAG=''', a1,
''', N =', i5,
1057 9966
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> NORM=''',
1058 $ a1,
''', UPLO =''', a1,
''', DIAG=''', a1,
''', N=', i5,
1059 $
', KD=', i5,
', type ', i2 )
1063 9965
FORMAT(
' *** Error code from ', a,
' =', i5,
1064 $ /
' ==> TRANS = ''', a1,
''', M =', i5,
', N =', i5,
1065 $
', NRHS =', i4,
', NB =', i4,
', type ', i2 )
1069 9964
FORMAT(
' *** Error code from ', a,
'=', i5, /
' ==> TRANS=''',
1070 $ a1,
''', N =', i5,
', KL =', i5,
', KU =', i5,
', NRHS =',
1071 $ i4,
', type ', i2 )
1075 9963
FORMAT(
' *** Error code from ', a,
' =', i5,
1076 $ /
' ==> TRANS = ''', a1,
''', N =', i5,
', NRHS =', i4,
1081 9962
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO=''',
1082 $ a1,
''', DIAG =''', a1,
''', N =', i5,
', type ', i2 )
1086 9961
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO=''',
1087 $ a1,
''', DIAG =''', a1,
''', N =', i5,
', NB =', i4,
1092 9960
FORMAT(
' *** Error code from ', a,
' =', i5,
' for UPLO = ''',
1093 $ a1,
''', N =', i5,
', type ', i2 )
1097 9959
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO = ''',
1098 $ a1,
''', N =', i5,
', KD =', i5,
', type ', i2 )
1102 9958
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO = ''',
1103 $ a1,
''', N =', i5,
', KD =', i5,
', NB =', i4,
', type ',
1108 9957
FORMAT(
' *** Error code from ', a,
'=', i5, /
' ==> UPLO = ''',
1109 $ a1,
''', N =', i5,
', KD =', i5,
', NRHS =', i4,
', type ',
1114 9956
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO = ''',
1115 $ a1,
''', N =', i5,
', NB =', i4,
', type ', i2 )
1119 9955
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO = ''',
1120 $ a1,
''', N =', i5,
', NRHS =', i4,
', type ', i2 )
1124 9954
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO=''',
1125 $ a1,
''', TRANS=''', a1,
''', DIAG=''', a1,
''', N=', i5,
1126 $
', KD=', i5,
', NRHS=', i4,
', type ', i2 )
1130 9953
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO=''',
1131 $ a1,
''', TRANS=''', a1,
''', DIAG=''', a1,
''', N =', i5,
1132 $
', NRHS =', i4,
', type ', i2 )
1136 9952
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO=''',
1137 $ a1,
''', TRANS=''', a1,
''', DIAG=''', a1,
''', NORMIN=''',
1138 $ a1,
''', N =', i5,
', type ', i2 )
1142 9951
FORMAT(
' *** Error code from ', a,
' =', i5, /
' ==> UPLO=''',
1143 $ a1,
''', TRANS=''', a1,
''', DIAG=''', a1,
''', NORMIN=''',
1144 $ a1,
''', N=', i5,
', KD=', i5,
', type ', i2 )
1148 9950
FORMAT(
' *** Error code from ', a,
' =', i5 )
1152 9949
FORMAT(
' ==> Doing only the condition estimate for this case' )
subroutine alahd(IOUNIT, PATH)
ALAHD
logical function lsamen(N, CA, CB)
LSAMEN
subroutine aladhd(IOUNIT, PATH)
ALADHD
logical function lsame(CA, CB)
LSAME