![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
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