LAPACK: TESTING/LIN/alaerh.f Source File

Go to the documentation of this file.
00001       SUBROUTINE ALAERH( PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU,
00002      $                   N5, IMAT, NFAIL, NERRS, NOUT )
00003 *
00004 *  -- LAPACK auxiliary test routine (version 3.1) --
00005 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
00006 *     November 2006
00007 *
00008 *     .. Scalar Arguments ..
00009       CHARACTER*3        PATH
00010       CHARACTER*( * )    SUBNAM
00011       CHARACTER*( * )    OPTS
00012       INTEGER            IMAT, INFO, INFOE, KL, KU, M, N, N5, NERRS,
00013      $                   NFAIL, NOUT
00014 *     ..
00015 *
00016 *  Purpose
00017 *  =======
00018 *
00019 *  ALAERH is an error handler for the LAPACK routines.  It prints the
00020 *  header if this is the first error message and prints the error code
00021 *  and form of recovery, if any.  The character evaluations in this
00022 *  routine may make it slow, but it should not be called once the LAPACK
00023 *  routines are fully debugged.
00024 *
00025 *  Arguments
00026 *  =========
00027 *
00028 *  PATH    (input) CHARACTER*3
00029 *          The LAPACK path name of subroutine SUBNAM.
00030 *
00031 *  SUBNAM  (input) CHARACTER*(*)
00032 *          The name of the subroutine that returned an error code.
00033 *
00034 *  INFO    (input) INTEGER
00035 *          The error code returned from routine SUBNAM.
00036 *
00037 *  INFOE   (input) INTEGER
00038 *          The expected error code from routine SUBNAM, if SUBNAM were
00039 *          error-free.  If INFOE = 0, an error message is printed, but
00040 *          if INFOE.NE.0, we assume only the return code INFO is wrong.
00041 *
00042 *  OPTS    (input) CHARACTER*(*)
00043 *          The character options to the subroutine SUBNAM, concatenated
00044 *          into a single character string.  For example, UPLO = 'U',
00045 *          TRANS = 'T', and DIAG = 'N' for a triangular routine would
00046 *          be specified as OPTS = 'UTN'.
00047 *
00048 *  M       (input) INTEGER
00049 *          The matrix row dimension.
00050 *
00051 *  N       (input) INTEGER
00052 *          The matrix column dimension.  Accessed only if PATH = xGE or
00053 *          xGB.
00054 *
00055 *  KL      (input) INTEGER
00056 *          The number of sub-diagonals of the matrix.  Accessed only if
00057 *          PATH = xGB, xPB, or xTB.  Also used for NRHS for PATH = xLS.
00058 *
00059 *  KU      (input) INTEGER
00060 *          The number of super-diagonals of the matrix.  Accessed only
00061 *          if PATH = xGB.
00062 *
00063 *  N5      (input) INTEGER
00064 *          A fifth integer parameter, may be the blocksize NB or the
00065 *          number of right hand sides NRHS.
00066 *
00067 *  IMAT    (input) INTEGER
00068 *          The matrix type.
00069 *
00070 *  NFAIL   (input) INTEGER
00071 *          The number of prior tests that did not pass the threshold;
00072 *          used to determine if the header should be printed.
00073 *
00074 *  NERRS   (input/output) INTEGER
00075 *          On entry, the number of errors already detected; used to
00076 *          determine if the header should be printed.
00077 *          On exit, NERRS is increased by 1.
00078 *
00079 *  NOUT    (input) INTEGER
00080 *          The unit number on which results are to be printed.
00081 *
00082 *  =====================================================================
00083 *
00084 *     .. Local Scalars ..
00085       CHARACTER          UPLO
00086       CHARACTER*2        P2
00087       CHARACTER*3        C3
00088 *     ..
00089 *     .. External Functions ..
00090       LOGICAL            LSAME, LSAMEN
00091       EXTERNAL           LSAME, LSAMEN
00092 *     ..
00093 *     .. Intrinsic Functions ..
00094       INTRINSIC          LEN_TRIM
00095 *     ..
00096 *     .. External Subroutines ..
00097       EXTERNAL           ALADHD, ALAHD
00098 *     ..
00099 *     .. Executable Statements ..
00100 *
00101       IF( INFO.EQ.0 )
00102      $   RETURN
00103       P2 = PATH( 2: 3 )
00104       C3 = SUBNAM( 4: 6 )
00105 *
00106 *     Print the header if this is the first error message.
00107 *
00108       IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 ) THEN
00109          IF( LSAMEN( 3, C3, 'SV ' ) .OR. LSAMEN( 3, C3, 'SVX' ) ) THEN
00110             CALL ALADHD( NOUT, PATH )
00111          ELSE
00112             CALL ALAHD( NOUT, PATH )
00113          END IF
00114       END IF
00115       NERRS = NERRS + 1
00116 *
00117 *     Print the message detailing the error and form of recovery,
00118 *     if any.
00119 *
00120       IF( LSAMEN( 2, P2, 'GE' ) ) THEN
00121 *
00122 *        xGE:  General matrices
00123 *
00124          IF( LSAMEN( 3, C3, 'TRF' ) ) THEN
00125             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00126                WRITE( NOUT, FMT = 9988 )
00127      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, M, N, N5,
00128      $            IMAT
00129             ELSE
00130                WRITE( NOUT, FMT = 9975 )
00131      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, N5, IMAT
00132             END IF
00133             IF( INFO.NE.0 )
00134      $         WRITE( NOUT, FMT = 9949 )
00135 *
00136          ELSE IF( LSAMEN( 3, C3, 'SV ' ) ) THEN
00137 *
00138             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00139                WRITE( NOUT, FMT = 9984 )
00140      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, N, N5,
00141      $            IMAT
00142             ELSE
00143                WRITE( NOUT, FMT = 9970 )
00144      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, N, N5, IMAT
00145             END IF
00146 *
00147          ELSE IF( LSAMEN( 3, C3, 'SVX' ) ) THEN
00148 *
00149             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00150                WRITE( NOUT, FMT = 9992 )
00151      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE,
00152      $            OPTS( 1: 1 ), OPTS( 2: 2 ), N, N5, IMAT
00153             ELSE
00154                WRITE( NOUT, FMT = 9997 )
00155      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00156      $            OPTS( 2: 2 ), N, N5, IMAT
00157             END IF
00158 *
00159          ELSE IF( LSAMEN( 3, C3, 'TRI' ) ) THEN
00160 *
00161             WRITE( NOUT, FMT = 9971 )
00162      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, N, N5, IMAT
00163 *
00164          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATMS' ) ) THEN
00165 *
00166             WRITE( NOUT, FMT = 9978 )
00167      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, IMAT
00168 *
00169          ELSE IF( LSAMEN( 3, C3, 'CON' ) ) THEN
00170 *
00171             WRITE( NOUT, FMT = 9969 )
00172      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ), M,
00173      $         IMAT
00174 *
00175          ELSE IF( LSAMEN( 3, C3, 'LS ' ) ) THEN
00176 *
00177             WRITE( NOUT, FMT = 9965 )
00178      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ), M, N,
00179      $         KL, N5, IMAT
00180 *
00181          ELSE IF( LSAMEN( 3, C3, 'LSX' ) .OR. LSAMEN( 3, C3, 'LSS' ) )
00182      $             THEN
00183 *
00184             WRITE( NOUT, FMT = 9974 )
00185      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, KL, N5, IMAT
00186 *
00187          ELSE
00188 *
00189             WRITE( NOUT, FMT = 9963 )
00190      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ), M, N5,
00191      $         IMAT
00192          END IF
00193 *
00194       ELSE IF( LSAMEN( 2, P2, 'GB' ) ) THEN
00195 *
00196 *        xGB:  General band matrices
00197 *
00198          IF( LSAMEN( 3, C3, 'TRF' ) ) THEN
00199             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00200                WRITE( NOUT, FMT = 9989 )
00201      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, M, N, KL,
00202      $            KU, N5, IMAT
00203             ELSE
00204                WRITE( NOUT, FMT = 9976 )
00205      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, KL, KU, N5,
00206      $            IMAT
00207             END IF
00208             IF( INFO.NE.0 )
00209      $         WRITE( NOUT, FMT = 9949 )
00210 *
00211          ELSE IF( LSAMEN( 3, C3, 'SV ' ) ) THEN
00212 *
00213             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00214                WRITE( NOUT, FMT = 9986 )
00215      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, N, KL, KU,
00216      $            N5, IMAT
00217             ELSE
00218                WRITE( NOUT, FMT = 9972 )
00219      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, N, KL, KU, N5,
00220      $            IMAT
00221             END IF
00222 *
00223          ELSE IF( LSAMEN( 3, C3, 'SVX' ) ) THEN
00224 *
00225             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00226                WRITE( NOUT, FMT = 9993 )
00227      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE,
00228      $            OPTS( 1: 1 ), OPTS( 2: 2 ), N, KL, KU, N5, IMAT
00229             ELSE
00230                WRITE( NOUT, FMT = 9998 )
00231      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00232      $            OPTS( 2: 2 ), N, KL, KU, N5, IMAT
00233             END IF
00234 *
00235          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATMS' ) ) THEN
00236 *
00237             WRITE( NOUT, FMT = 9977 )
00238      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, KL, KU, IMAT
00239 *
00240          ELSE IF( LSAMEN( 3, C3, 'CON' ) ) THEN
00241 *
00242             WRITE( NOUT, FMT = 9968 )
00243      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ), M, KL,
00244      $         KU, IMAT
00245 *
00246          ELSE
00247 *
00248             WRITE( NOUT, FMT = 9964 )
00249      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ), M, KL,
00250      $         KU, N5, IMAT
00251          END IF
00252 *
00253       ELSE IF( LSAMEN( 2, P2, 'GT' ) ) THEN
00254 *
00255 *        xGT:  General tridiagonal matrices
00256 *
00257          IF( LSAMEN( 3, C3, 'TRF' ) ) THEN
00258             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00259                WRITE( NOUT, FMT = 9987 )
00260      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, N, IMAT
00261             ELSE
00262                WRITE( NOUT, FMT = 9973 )
00263      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, N, IMAT
00264             END IF
00265             IF( INFO.NE.0 )
00266      $         WRITE( NOUT, FMT = 9949 )
00267 *
00268          ELSE IF( LSAMEN( 3, C3, 'SV ' ) ) THEN
00269 *
00270             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00271                WRITE( NOUT, FMT = 9984 )
00272      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, N, N5,
00273      $            IMAT
00274             ELSE
00275                WRITE( NOUT, FMT = 9970 )
00276      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, N, N5, IMAT
00277             END IF
00278 *
00279          ELSE IF( LSAMEN( 3, C3, 'SVX' ) ) THEN
00280 *
00281             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00282                WRITE( NOUT, FMT = 9992 )
00283      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE,
00284      $            OPTS( 1: 1 ), OPTS( 2: 2 ), N, N5, IMAT
00285             ELSE
00286                WRITE( NOUT, FMT = 9997 )
00287      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00288      $            OPTS( 2: 2 ), N, N5, IMAT
00289             END IF
00290 *
00291          ELSE IF( LSAMEN( 3, C3, 'CON' ) ) THEN
00292 *
00293             WRITE( NOUT, FMT = 9969 )
00294      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ), M,
00295      $         IMAT
00296 *
00297          ELSE
00298 *
00299             WRITE( NOUT, FMT = 9963 )
00300      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ), M, N5,
00301      $         IMAT
00302          END IF
00303 *
00304       ELSE IF( LSAMEN( 2, P2, 'PO' ) ) THEN
00305 *
00306 *        xPO:  Symmetric or Hermitian positive definite matrices
00307 *
00308          UPLO = OPTS( 1: 1 )
00309          IF( LSAMEN( 3, C3, 'TRF' ) ) THEN
00310             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00311                WRITE( NOUT, FMT = 9980 )
00312      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, UPLO, M,
00313      $            N5, IMAT
00314             ELSE
00315                WRITE( NOUT, FMT = 9956 )
00316      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, N5, IMAT
00317             END IF
00318             IF( INFO.NE.0 )
00319      $         WRITE( NOUT, FMT = 9949 )
00320 *
00321          ELSE IF( LSAMEN( 3, C3, 'SV ' ) ) THEN
00322 *
00323             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00324                WRITE( NOUT, FMT = 9979 )
00325      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, UPLO, N,
00326      $            N5, IMAT
00327             ELSE
00328                WRITE( NOUT, FMT = 9955 )
00329      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, N, N5, IMAT
00330             END IF
00331 *
00332          ELSE IF( LSAMEN( 3, C3, 'SVX' ) ) THEN
00333 *
00334             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00335                WRITE( NOUT, FMT = 9990 )
00336      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE,
00337      $            OPTS( 1: 1 ), OPTS( 2: 2 ), N, N5, IMAT
00338             ELSE
00339                WRITE( NOUT, FMT = 9995 )
00340      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00341      $            OPTS( 2: 2 ), N, N5, IMAT
00342             END IF
00343 *
00344          ELSE IF( LSAMEN( 3, C3, 'TRI' ) ) THEN
00345 *
00346             WRITE( NOUT, FMT = 9956 )
00347      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, N5, IMAT
00348 *
00349          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATMS' ) .OR.
00350      $            LSAMEN( 3, C3, 'CON' ) ) THEN
00351 *
00352             WRITE( NOUT, FMT = 9960 )
00353      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, IMAT
00354 *
00355          ELSE
00356 *
00357             WRITE( NOUT, FMT = 9955 )
00358      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, N5, IMAT
00359          END IF
00360 *
00361       ELSE IF( LSAMEN( 2, P2, 'PS' ) ) THEN
00362 *
00363 *        xPS:  Symmetric or Hermitian positive semi-definite matrices
00364 *
00365          UPLO = OPTS( 1: 1 )
00366          IF( LSAMEN( 3, C3, 'TRF' ) ) THEN
00367             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00368                WRITE( NOUT, FMT = 9980 )SUBNAM, INFO, INFOE, UPLO, M,
00369      $            N5, IMAT
00370             ELSE
00371                WRITE( NOUT, FMT = 9956 )SUBNAM, INFO, UPLO, M, N5, IMAT
00372             END IF
00373             IF( INFO.NE.0 )
00374      $         WRITE( NOUT, FMT = 9949 )
00375 *
00376          ELSE IF( LSAMEN( 3, C3, 'SV ' ) ) THEN
00377 *
00378             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00379                WRITE( NOUT, FMT = 9979 )SUBNAM, INFO, INFOE, UPLO, N,
00380      $            N5, IMAT
00381             ELSE
00382                WRITE( NOUT, FMT = 9955 )SUBNAM, INFO, UPLO, N, N5, IMAT
00383             END IF
00384 *
00385          ELSE IF( LSAMEN( 3, C3, 'SVX' ) ) THEN
00386 *
00387             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00388                WRITE( NOUT, FMT = 9990 )SUBNAM, INFO, INFOE,
00389      $            OPTS( 1: 1 ), OPTS( 2: 2 ), N, N5, IMAT
00390             ELSE
00391                WRITE( NOUT, FMT = 9995 )SUBNAM, INFO, OPTS( 1: 1 ),
00392      $            OPTS( 2: 2 ), N, N5, IMAT
00393             END IF
00394 *
00395          ELSE IF( LSAMEN( 3, C3, 'TRI' ) ) THEN
00396 *
00397             WRITE( NOUT, FMT = 9956 )SUBNAM, INFO, UPLO, M, N5, IMAT
00398 *
00399          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATMT' ) .OR.
00400      $            LSAMEN( 3, C3, 'CON' ) ) THEN
00401 *
00402             WRITE( NOUT, FMT = 9960 )SUBNAM, INFO, UPLO, M, IMAT
00403 *
00404          ELSE
00405 *
00406             WRITE( NOUT, FMT = 9955 )SUBNAM, INFO, UPLO, M, N5, IMAT
00407          END IF
00408 *
00409       ELSE IF( LSAMEN( 2, P2, 'SY' ) .OR. LSAMEN( 2, P2, 'HE' ) ) THEN
00410 *
00411 *        xHE, or xSY:  Symmetric or Hermitian indefinite matrices
00412 *
00413          UPLO = OPTS( 1: 1 )
00414          IF( LSAMEN( 3, C3, 'TRF' ) ) THEN
00415             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00416                WRITE( NOUT, FMT = 9980 )
00417      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, UPLO, M,
00418      $            N5, IMAT
00419             ELSE
00420                WRITE( NOUT, FMT = 9956 )
00421      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, N5, IMAT
00422             END IF
00423             IF( INFO.NE.0 )
00424      $         WRITE( NOUT, FMT = 9949 )
00425 *
00426          ELSE IF( LSAMEN( 3, C3, 'SV ' ) ) THEN
00427 *
00428             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00429                WRITE( NOUT, FMT = 9979 )
00430      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, UPLO, N,
00431      $            N5, IMAT
00432             ELSE
00433                WRITE( NOUT, FMT = 9955 )
00434      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, N, N5, IMAT
00435             END IF
00436 *
00437          ELSE IF( LSAMEN( 3, C3, 'SVX' ) ) THEN
00438 *
00439             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00440                WRITE( NOUT, FMT = 9990 )
00441      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE,
00442      $            OPTS( 1: 1 ), OPTS( 2: 2 ), N, N5, IMAT
00443             ELSE
00444                WRITE( NOUT, FMT = 9995 )
00445      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00446      $            OPTS( 2: 2 ), N, N5, IMAT
00447             END IF
00448 *
00449          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATMS' ) .OR.
00450      $            LSAMEN( 3, C3, 'TRI' ) .OR. LSAMEN( 3, C3, 'CON' ) )
00451      $             THEN
00452 *
00453             WRITE( NOUT, FMT = 9960 )
00454      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, IMAT
00455 *
00456          ELSE
00457 *
00458             WRITE( NOUT, FMT = 9955 )
00459      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, N5, IMAT
00460          END IF
00461 *
00462       ELSE IF( LSAMEN( 2, P2, 'PP' ) .OR. LSAMEN( 2, P2, 'SP' ) .OR.
00463      $         LSAMEN( 2, P2, 'HP' ) ) THEN
00464 *
00465 *        xPP, xHP, or xSP:  Symmetric or Hermitian packed matrices
00466 *
00467          UPLO = OPTS( 1: 1 )
00468          IF( LSAMEN( 3, C3, 'TRF' ) ) THEN
00469             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00470                WRITE( NOUT, FMT = 9983 )
00471      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, UPLO, M,
00472      $            IMAT
00473             ELSE
00474                WRITE( NOUT, FMT = 9960 )
00475      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, IMAT
00476             END IF
00477             IF( INFO.NE.0 )
00478      $         WRITE( NOUT, FMT = 9949 )
00479 *
00480          ELSE IF( LSAMEN( 3, C3, 'SV ' ) ) THEN
00481 *
00482             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00483                WRITE( NOUT, FMT = 9979 )
00484      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, UPLO, N,
00485      $            N5, IMAT
00486             ELSE
00487                WRITE( NOUT, FMT = 9955 )
00488      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, N, N5, IMAT
00489             END IF
00490 *
00491          ELSE IF( LSAMEN( 3, C3, 'SVX' ) ) THEN
00492 *
00493             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00494                WRITE( NOUT, FMT = 9990 )
00495      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE,
00496      $            OPTS( 1: 1 ), OPTS( 2: 2 ), N, N5, IMAT
00497             ELSE
00498                WRITE( NOUT, FMT = 9995 )
00499      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00500      $            OPTS( 2: 2 ), N, N5, IMAT
00501             END IF
00502 *
00503          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATMS' ) .OR.
00504      $            LSAMEN( 3, C3, 'TRI' ) .OR. LSAMEN( 3, C3, 'CON' ) )
00505      $             THEN
00506 *
00507             WRITE( NOUT, FMT = 9960 )
00508      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, IMAT
00509 *
00510          ELSE
00511 *
00512             WRITE( NOUT, FMT = 9955 )
00513      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, N5, IMAT
00514          END IF
00515 *
00516       ELSE IF( LSAMEN( 2, P2, 'PB' ) ) THEN
00517 *
00518 *        xPB:  Symmetric (Hermitian) positive definite band matrix
00519 *
00520          UPLO = OPTS( 1: 1 )
00521          IF( LSAMEN( 3, C3, 'TRF' ) ) THEN
00522             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00523                WRITE( NOUT, FMT = 9982 )
00524      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, UPLO, M,
00525      $            KL, N5, IMAT
00526             ELSE
00527                WRITE( NOUT, FMT = 9958 )
00528      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, KL, N5,
00529      $            IMAT
00530             END IF
00531             IF( INFO.NE.0 )
00532      $         WRITE( NOUT, FMT = 9949 )
00533 *
00534          ELSE IF( LSAMEN( 3, C3, 'SV ' ) ) THEN
00535 *
00536             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00537                WRITE( NOUT, FMT = 9981 )
00538      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, UPLO, N,
00539      $            KL, N5, IMAT
00540             ELSE
00541                WRITE( NOUT, FMT = 9957 )
00542      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, N, KL, N5,
00543      $            IMAT
00544             END IF
00545 *
00546          ELSE IF( LSAMEN( 3, C3, 'SVX' ) ) THEN
00547 *
00548             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00549                WRITE( NOUT, FMT = 9991 )
00550      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE,
00551      $            OPTS( 1: 1 ), OPTS( 2: 2 ), N, KL, N5, IMAT
00552             ELSE
00553                WRITE( NOUT, FMT = 9996 )
00554      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00555      $            OPTS( 2: 2 ), N, KL, N5, IMAT
00556             END IF
00557 *
00558          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATMS' ) .OR.
00559      $            LSAMEN( 3, C3, 'CON' ) ) THEN
00560 *
00561             WRITE( NOUT, FMT = 9959 )
00562      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, KL, IMAT
00563 *
00564          ELSE
00565 *
00566             WRITE( NOUT, FMT = 9957 )
00567      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, UPLO, M, KL, N5,
00568      $         IMAT
00569          END IF
00570 *
00571       ELSE IF( LSAMEN( 2, P2, 'PT' ) ) THEN
00572 *
00573 *        xPT:  Positive definite tridiagonal matrices
00574 *
00575          IF( LSAMEN( 3, C3, 'TRF' ) ) THEN
00576             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00577                WRITE( NOUT, FMT = 9987 )
00578      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, N, IMAT
00579             ELSE
00580                WRITE( NOUT, FMT = 9973 )
00581      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, N, IMAT
00582             END IF
00583             IF( INFO.NE.0 )
00584      $         WRITE( NOUT, FMT = 9949 )
00585 *
00586          ELSE IF( LSAMEN( 3, C3, 'SV ' ) ) THEN
00587 *
00588             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00589                WRITE( NOUT, FMT = 9984 )
00590      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, N, N5,
00591      $            IMAT
00592             ELSE
00593                WRITE( NOUT, FMT = 9970 )
00594      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, N, N5, IMAT
00595             END IF
00596 *
00597          ELSE IF( LSAMEN( 3, C3, 'SVX' ) ) THEN
00598 *
00599             IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00600                WRITE( NOUT, FMT = 9994 )
00601      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE,
00602      $            OPTS( 1: 1 ), N, N5, IMAT
00603             ELSE
00604                WRITE( NOUT, FMT = 9999 )
00605      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ), N,
00606      $            N5, IMAT
00607             END IF
00608 *
00609          ELSE IF( LSAMEN( 3, C3, 'CON' ) ) THEN
00610 *
00611             IF( LSAME( SUBNAM( 1: 1 ), 'S' ) .OR.
00612      $          LSAME( SUBNAM( 1: 1 ), 'D' ) ) THEN
00613                WRITE( NOUT, FMT = 9973 )
00614      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, IMAT
00615             ELSE
00616                WRITE( NOUT, FMT = 9969 )
00617      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ), M,
00618      $            IMAT
00619             END IF
00620 *
00621          ELSE
00622 *
00623             WRITE( NOUT, FMT = 9963 )
00624      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ), M, N5,
00625      $         IMAT
00626          END IF
00627 *
00628       ELSE IF( LSAMEN( 2, P2, 'TR' ) ) THEN
00629 *
00630 *        xTR:  Triangular matrix
00631 *
00632          IF( LSAMEN( 3, C3, 'TRI' ) ) THEN
00633             WRITE( NOUT, FMT = 9961 )
00634      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00635      $         OPTS( 2: 2 ), M, N5, IMAT
00636          ELSE IF( LSAMEN( 3, C3, 'CON' ) ) THEN
00637             WRITE( NOUT, FMT = 9967 )
00638      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00639      $         OPTS( 2: 2 ), OPTS( 3: 3 ), M, IMAT
00640          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATRS' ) ) THEN
00641             WRITE( NOUT, FMT = 9952 )
00642      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00643      $         OPTS( 2: 2 ), OPTS( 3: 3 ), OPTS( 4: 4 ), M, IMAT
00644          ELSE
00645             WRITE( NOUT, FMT = 9953 )
00646      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00647      $         OPTS( 2: 2 ), OPTS( 3: 3 ), M, N5, IMAT
00648          END IF
00649 *
00650       ELSE IF( LSAMEN( 2, P2, 'TP' ) ) THEN
00651 *
00652 *        xTP:  Triangular packed matrix
00653 *
00654          IF( LSAMEN( 3, C3, 'TRI' ) ) THEN
00655             WRITE( NOUT, FMT = 9962 )
00656      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00657      $         OPTS( 2: 2 ), M, IMAT
00658          ELSE IF( LSAMEN( 3, C3, 'CON' ) ) THEN
00659             WRITE( NOUT, FMT = 9967 )
00660      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00661      $         OPTS( 2: 2 ), OPTS( 3: 3 ), M, IMAT
00662          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATPS' ) ) THEN
00663             WRITE( NOUT, FMT = 9952 )
00664      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00665      $         OPTS( 2: 2 ), OPTS( 3: 3 ), OPTS( 4: 4 ), M, IMAT
00666          ELSE
00667             WRITE( NOUT, FMT = 9953 )
00668      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00669      $         OPTS( 2: 2 ), OPTS( 3: 3 ), M, N5, IMAT
00670          END IF
00671 *
00672       ELSE IF( LSAMEN( 2, P2, 'TB' ) ) THEN
00673 *
00674 *        xTB:  Triangular band matrix
00675 *
00676          IF( LSAMEN( 3, C3, 'CON' ) ) THEN
00677             WRITE( NOUT, FMT = 9966 )
00678      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00679      $         OPTS( 2: 2 ), OPTS( 3: 3 ), M, KL, IMAT
00680          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATBS' ) ) THEN
00681             WRITE( NOUT, FMT = 9951 )
00682      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00683      $         OPTS( 2: 2 ), OPTS( 3: 3 ), OPTS( 4: 4 ), M, KL, IMAT
00684          ELSE
00685             WRITE( NOUT, FMT = 9954 )
00686      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, OPTS( 1: 1 ),
00687      $         OPTS( 2: 2 ), OPTS( 3: 3 ), M, KL, N5, IMAT
00688          END IF
00689 *
00690       ELSE IF( LSAMEN( 2, P2, 'QR' ) ) THEN
00691 *
00692 *        xQR:  QR factorization
00693 *
00694          IF( LSAMEN( 3, C3, 'QRS' ) ) THEN
00695             WRITE( NOUT, FMT = 9974 )
00696      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, KL, N5, IMAT
00697          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATMS' ) ) THEN
00698             WRITE( NOUT, FMT = 9978 )
00699      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, IMAT
00700          END IF
00701 *
00702       ELSE IF( LSAMEN( 2, P2, 'LQ' ) ) THEN
00703 *
00704 *        xLQ:  LQ factorization
00705 *
00706          IF( LSAMEN( 3, C3, 'LQS' ) ) THEN
00707             WRITE( NOUT, FMT = 9974 )
00708      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, KL, N5, IMAT
00709          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATMS' ) ) THEN
00710             WRITE( NOUT, FMT = 9978 )
00711      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, IMAT
00712          END IF
00713 *
00714       ELSE IF( LSAMEN( 2, P2, 'QL' ) ) THEN
00715 *
00716 *        xQL:  QL factorization
00717 *
00718          IF( LSAMEN( 3, C3, 'QLS' ) ) THEN
00719             WRITE( NOUT, FMT = 9974 )
00720      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, KL, N5, IMAT
00721          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATMS' ) ) THEN
00722             WRITE( NOUT, FMT = 9978 )
00723      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, IMAT
00724          END IF
00725 *
00726       ELSE IF( LSAMEN( 2, P2, 'RQ' ) ) THEN
00727 *
00728 *        xRQ:  RQ factorization
00729 *
00730          IF( LSAMEN( 3, C3, 'RQS' ) ) THEN
00731             WRITE( NOUT, FMT = 9974 )
00732      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, KL, N5, IMAT
00733          ELSE IF( LSAMEN( 5, SUBNAM( 2: 6 ), 'LATMS' ) ) THEN
00734             WRITE( NOUT, FMT = 9978 )
00735      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, IMAT
00736          END IF
00737 *
00738       ELSE IF( LSAMEN( 2, P2, 'LU' ) ) THEN
00739 *
00740          IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00741             WRITE( NOUT, FMT = 9988 )
00742      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, M, N, N5,
00743      $         IMAT
00744          ELSE
00745             WRITE( NOUT, FMT = 9975 )
00746      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N, N5, IMAT
00747          END IF
00748 *
00749       ELSE IF( LSAMEN( 2, P2, 'CH' ) ) THEN
00750 *
00751          IF( INFO.NE.INFOE .AND. INFOE.NE.0 ) THEN
00752             WRITE( NOUT, FMT = 9985 )
00753      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, INFOE, M, N5, IMAT
00754          ELSE
00755             WRITE( NOUT, FMT = 9971 )
00756      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO, M, N5, IMAT
00757          END IF
00758 *
00759       ELSE
00760 *
00761 *        Print a generic message if the path is unknown.
00762 *
00763          WRITE( NOUT, FMT = 9950 )
00764      $     SUBNAM(1:LEN_TRIM( SUBNAM )), INFO
00765       END IF
00766 *
00767 *     Description of error message (alphabetical, left to right)
00768 *
00769 *     SUBNAM, INFO, FACT, N, NRHS, IMAT
00770 *
00771  9999 FORMAT( ' *** Error code from ', A, '=', I5, ', FACT=''', A1,
00772      $      ''', N=', I5, ', NRHS=', I4, ', type ', I2 )
00773 *
00774 *     SUBNAM, INFO, FACT, TRANS, N, KL, KU, NRHS, IMAT
00775 *
00776  9998 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> FACT=''',
00777      $      A1, ''', TRANS=''', A1, ''', N=', I5, ', KL=', I5, ', KU=',
00778      $      I5, ', NRHS=', I4, ', type ', I1 )
00779 *
00780 *     SUBNAM, INFO, FACT, TRANS, N, NRHS, IMAT
00781 *
00782  9997 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> FACT=''',
00783      $      A1, ''', TRANS=''', A1, ''', N =', I5, ', NRHS =', I4,
00784      $      ', type ', I2 )
00785 *
00786 *     SUBNAM, INFO, FACT, UPLO, N, KD, NRHS, IMAT
00787 *
00788  9996 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> FACT=''',
00789      $      A1, ''', UPLO=''', A1, ''', N=', I5, ', KD=', I5, ', NRHS=',
00790      $      I4, ', type ', I2 )
00791 *
00792 *     SUBNAM, INFO, FACT, UPLO, N, NRHS, IMAT
00793 *
00794  9995 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> FACT=''',
00795      $      A1, ''', UPLO=''', A1, ''', N =', I5, ', NRHS =', I4,
00796      $      ', type ', I2 )
00797 *
00798 *     SUBNAM, INFO, INFOE, FACT, N, NRHS, IMAT
00799 *
00800  9994 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00801      $      I2, / ' ==> FACT=''', A1, ''', N =', I5, ', NRHS =', I4,
00802      $      ', type ', I2 )
00803 *
00804 *     SUBNAM, INFO, INFOE, FACT, TRANS, N, KL, KU, NRHS, IMAT
00805 *
00806  9993 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00807      $      I2, / ' ==> FACT=''', A1, ''', TRANS=''', A1, ''', N=', I5,
00808      $      ', KL=', I5, ', KU=', I5, ', NRHS=', I4, ', type ', I1 )
00809 *
00810 *     SUBNAM, INFO, INFOE, FACT, TRANS, N, NRHS, IMAT
00811 *
00812  9992 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00813      $      I2, / ' ==> FACT=''', A1, ''', TRANS=''', A1, ''', N =', I5,
00814      $      ', NRHS =', I4, ', type ', I2 )
00815 *
00816 *     SUBNAM, INFO, INFOE, FACT, UPLO, N, KD, NRHS, IMAT
00817 *
00818  9991 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00819      $      I2, / ' ==> FACT=''', A1, ''', UPLO=''', A1, ''', N=', I5,
00820      $      ', KD=', I5, ', NRHS=', I4, ', type ', I2 )
00821 *
00822 *     SUBNAM, INFO, INFOE, FACT, UPLO, N, NRHS, IMAT
00823 *
00824  9990 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00825      $      I2, / ' ==> FACT=''', A1, ''', UPLO=''', A1, ''', N =', I5,
00826      $      ', NRHS =', I4, ', type ', I2 )
00827 *
00828 *     SUBNAM, INFO, INFOE, M, N, KL, KU, NB, IMAT
00829 *
00830  9989 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00831      $      I2, / ' ==> M = ', I5, ', N =', I5, ', KL =', I5, ', KU =',
00832      $      I5, ', NB =', I4, ', type ', I2 )
00833 *
00834 *     SUBNAM, INFO, INFOE, M, N, NB, IMAT
00835 *
00836  9988 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00837      $      I2, / ' ==> M =', I5, ', N =', I5, ', NB =', I4, ', type ',
00838      $      I2 )
00839 *
00840 *     SUBNAM, INFO, INFOE, N, IMAT
00841 *
00842  9987 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00843      $      I2, ' for N=', I5, ', type ', I2 )
00844 *
00845 *     SUBNAM, INFO, INFOE, N, KL, KU, NRHS, IMAT
00846 *
00847  9986 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00848      $      I2, / ' ==> N =', I5, ', KL =', I5, ', KU =', I5,
00849      $      ', NRHS =', I4, ', type ', I2 )
00850 *
00851 *     SUBNAM, INFO, INFOE, N, NB, IMAT
00852 *
00853  9985 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00854      $      I2, / ' ==> N =', I5, ', NB =', I4, ', type ', I2 )
00855 *
00856 *     SUBNAM, INFO, INFOE, N, NRHS, IMAT
00857 *
00858  9984 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00859      $      I2, / ' ==> N =', I5, ', NRHS =', I4, ', type ', I2 )
00860 *
00861 *     SUBNAM, INFO, INFOE, UPLO, N, IMAT
00862 *
00863  9983 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00864      $      I2, / ' ==> UPLO = ''', A1, ''', N =', I5, ', type ', I2 )
00865 *
00866 *     SUBNAM, INFO, INFOE, UPLO, N, KD, NB, IMAT
00867 *
00868  9982 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00869      $      I2, / ' ==> UPLO = ''', A1, ''', N =', I5, ', KD =', I5,
00870      $      ', NB =', I4, ', type ', I2 )
00871 *
00872 *     SUBNAM, INFO, INFOE, UPLO, N, KD, NRHS, IMAT
00873 *
00874  9981 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00875      $      I2, / ' ==> UPLO=''', A1, ''', N =', I5, ', KD =', I5,
00876      $      ', NRHS =', I4, ', type ', I2 )
00877 *
00878 *     SUBNAM, INFO, INFOE, UPLO, N, NB, IMAT
00879 *
00880  9980 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00881      $      I2, / ' ==> UPLO = ''', A1, ''', N =', I5, ', NB =', I4,
00882      $      ', type ', I2 )
00883 *
00884 *     SUBNAM, INFO, INFOE, UPLO, N, NRHS, IMAT
00885 *
00886  9979 FORMAT( ' *** ', A, ' returned with INFO =', I5, ' instead of ',
00887      $      I2, / ' ==> UPLO = ''', A1, ''', N =', I5, ', NRHS =', I4,
00888      $      ', type ', I2 )
00889 *
00890 *     SUBNAM, INFO, M, N, IMAT
00891 *
00892  9978 FORMAT( ' *** Error code from ', A, ' =', I5, ' for M =', I5,
00893      $      ', N =', I5, ', type ', I2 )
00894 *
00895 *     SUBNAM, INFO, M, N, KL, KU, IMAT
00896 *
00897  9977 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> M = ', I5,
00898      $      ', N =', I5, ', KL =', I5, ', KU =', I5, ', type ', I2 )
00899 *
00900 *     SUBNAM, INFO, M, N, KL, KU, NB, IMAT
00901 *
00902  9976 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> M = ', I5,
00903      $      ', N =', I5, ', KL =', I5, ', KU =', I5, ', NB =', I4,
00904      $      ', type ', I2 )
00905 *
00906 *     SUBNAM, INFO, M, N, NB, IMAT
00907 *
00908  9975 FORMAT( ' *** Error code from ', A, '=', I5, ' for M=', I5,
00909      $      ', N=', I5, ', NB=', I4, ', type ', I2 )
00910 *
00911 *     SUBNAM, INFO, M, N, NRHS, NB, IMAT
00912 *
00913  9974 FORMAT( ' *** Error code from ', A, '=', I5, / ' ==> M =', I5,
00914      $      ', N =', I5, ', NRHS =', I4, ', NB =', I4, ', type ', I2 )
00915 *
00916 *     SUBNAM, INFO, N, IMAT
00917 *
00918  9973 FORMAT( ' *** Error code from ', A, ' =', I5, ' for N =', I5,
00919      $      ', type ', I2 )
00920 *
00921 *     SUBNAM, INFO, N, KL, KU, NRHS, IMAT
00922 *
00923  9972 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> N =', I5,
00924      $      ', KL =', I5, ', KU =', I5, ', NRHS =', I4, ', type ', I2 )
00925 *
00926 *     SUBNAM, INFO, N, NB, IMAT
00927 *
00928  9971 FORMAT( ' *** Error code from ', A, '=', I5, ' for N=', I5,
00929      $      ', NB=', I4, ', type ', I2 )
00930 *
00931 *     SUBNAM, INFO, N, NRHS, IMAT
00932 *
00933  9970 FORMAT( ' *** Error code from ', A, ' =', I5, ' for N =', I5,
00934      $      ', NRHS =', I4, ', type ', I2 )
00935 *
00936 *     SUBNAM, INFO, NORM, N, IMAT
00937 *
00938  9969 FORMAT( ' *** Error code from ', A, ' =', I5, ' for NORM = ''',
00939      $      A1, ''', N =', I5, ', type ', I2 )
00940 *
00941 *     SUBNAM, INFO, NORM, N, KL, KU, IMAT
00942 *
00943  9968 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> NORM =''',
00944      $      A1, ''', N =', I5, ', KL =', I5, ', KU =', I5, ', type ',
00945      $      I2 )
00946 *
00947 *     SUBNAM, INFO, NORM, UPLO, DIAG, N, IMAT
00948 *
00949  9967 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> NORM=''',
00950      $      A1, ''', UPLO =''', A1, ''', DIAG=''', A1, ''', N =', I5,
00951      $      ', type ', I2 )
00952 *
00953 *     SUBNAM, INFO, NORM, UPLO, DIAG, N, KD, IMAT
00954 *
00955  9966 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> NORM=''',
00956      $      A1, ''', UPLO =''', A1, ''', DIAG=''', A1, ''', N=', I5,
00957      $      ', KD=', I5, ', type ', I2 )
00958 *
00959 *     SUBNAM, INFO, TRANS, M, N, NRHS, NB, IMAT
00960 *
00961  9965 FORMAT( ' *** Error code from ', A, ' =', I5,
00962      $      / ' ==> TRANS = ''', A1, ''', M =', I5, ', N =', I5,
00963      $      ', NRHS =', I4, ', NB =', I4, ', type ', I2 )
00964 *
00965 *     SUBNAM, INFO, TRANS, N, KL, KU, NRHS, IMAT
00966 *
00967  9964 FORMAT( ' *** Error code from ', A, '=', I5, / ' ==> TRANS=''',
00968      $      A1, ''', N =', I5, ', KL =', I5, ', KU =', I5, ', NRHS =',
00969      $      I4, ', type ', I2 )
00970 *
00971 *     SUBNAM, INFO, TRANS, N, NRHS, IMAT
00972 *
00973  9963 FORMAT( ' *** Error code from ', A, ' =', I5,
00974      $      / ' ==> TRANS = ''', A1, ''', N =', I5, ', NRHS =', I4,
00975      $      ', type ', I2 )
00976 *
00977 *     SUBNAM, INFO, UPLO, DIAG, N, IMAT
00978 *
00979  9962 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> UPLO=''',
00980      $      A1, ''', DIAG =''', A1, ''', N =', I5, ', type ', I2 )
00981 *
00982 *     SUBNAM, INFO, UPLO, DIAG, N, NB, IMAT
00983 *
00984  9961 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> UPLO=''',
00985      $      A1, ''', DIAG =''', A1, ''', N =', I5, ', NB =', I4,
00986      $      ', type ', I2 )
00987 *
00988 *     SUBNAM, INFO, UPLO, N, IMAT
00989 *
00990  9960 FORMAT( ' *** Error code from ', A, ' =', I5, ' for UPLO = ''',
00991      $      A1, ''', N =', I5, ', type ', I2 )
00992 *
00993 *     SUBNAM, INFO, UPLO, N, KD, IMAT
00994 *
00995  9959 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> UPLO = ''',
00996      $      A1, ''', N =', I5, ', KD =', I5, ', type ', I2 )
00997 *
00998 *     SUBNAM, INFO, UPLO, N, KD, NB, IMAT
00999 *
01000  9958 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> UPLO = ''',
01001      $      A1, ''', N =', I5, ', KD =', I5, ', NB =', I4, ', type ',
01002      $      I2 )
01003 *
01004 *     SUBNAM, INFO, UPLO, N, KD, NRHS, IMAT
01005 *
01006  9957 FORMAT( ' *** Error code from ', A, '=', I5, / ' ==> UPLO = ''',
01007      $      A1, ''', N =', I5, ', KD =', I5, ', NRHS =', I4, ', type ',
01008      $      I2 )
01009 *
01010 *     SUBNAM, INFO, UPLO, N, NB, IMAT
01011 *
01012  9956 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> UPLO = ''',
01013      $      A1, ''', N =', I5, ', NB =', I4, ', type ', I2 )
01014 *
01015 *     SUBNAM, INFO, UPLO, N, NRHS, IMAT
01016 *
01017  9955 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> UPLO = ''',
01018      $      A1, ''', N =', I5, ', NRHS =', I4, ', type ', I2 )
01019 *
01020 *     SUBNAM, INFO, UPLO, TRANS, DIAG, N, KD, NRHS, IMAT
01021 *
01022  9954 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> UPLO=''',
01023      $      A1, ''', TRANS=''', A1, ''', DIAG=''', A1, ''', N=', I5,
01024      $      ', KD=', I5, ', NRHS=', I4, ', type ', I2 )
01025 *
01026 *     SUBNAM, INFO, UPLO, TRANS, DIAG, N, NRHS, IMAT
01027 *
01028  9953 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> UPLO=''',
01029      $      A1, ''', TRANS=''', A1, ''', DIAG=''', A1, ''', N =', I5,
01030      $      ', NRHS =', I4, ', type ', I2 )
01031 *
01032 *     SUBNAM, INFO, UPLO, TRANS, DIAG, NORMIN, N, IMAT
01033 *
01034  9952 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> UPLO=''',
01035      $      A1, ''', TRANS=''', A1, ''', DIAG=''', A1, ''', NORMIN=''',
01036      $      A1, ''', N =', I5, ', type ', I2 )
01037 *
01038 *     SUBNAM, INFO, UPLO, TRANS, DIAG, NORMIN, N, KD, IMAT
01039 *
01040  9951 FORMAT( ' *** Error code from ', A, ' =', I5, / ' ==> UPLO=''',
01041      $      A1, ''', TRANS=''', A1, ''', DIAG=''', A1, ''', NORMIN=''',
01042      $      A1, ''', N=', I5, ', KD=', I5, ', type ', I2 )
01043 *
01044 *     Unknown type
01045 *
01046  9950 FORMAT( ' *** Error code from ', A, ' =', I5 )
01047 *
01048 *     What we do next
01049 *
01050  9949 FORMAT( ' ==> Doing only the condition estimate for this case' )
01051 *
01052       RETURN
01053 *
01054 *     End of ALAERH
01055 *
01056       END