 |
LAPACK 3.3.1
Linear Algebra PACKage
|
|
LAPACK 3.3.1
Linear Algebra PACKage
|
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
1.7.3 
