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