![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b CERRPO 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 CERRPO( PATH, NUNIT ) 00012 * 00013 * .. Scalar Arguments .. 00014 * CHARACTER*3 PATH 00015 * INTEGER NUNIT 00016 * .. 00017 * 00018 * 00019 *> \par Purpose: 00020 * ============= 00021 *> 00022 *> \verbatim 00023 *> 00024 *> CERRPO tests the error exits for the COMPLEX routines 00025 *> for Hermitian positive definite matrices. 00026 *> \endverbatim 00027 * 00028 * Arguments: 00029 * ========== 00030 * 00031 *> \param[in] PATH 00032 *> \verbatim 00033 *> PATH is CHARACTER*3 00034 *> The LAPACK path name for the routines to be tested. 00035 *> \endverbatim 00036 *> 00037 *> \param[in] NUNIT 00038 *> \verbatim 00039 *> NUNIT is INTEGER 00040 *> The unit number for output. 00041 *> \endverbatim 00042 * 00043 * Authors: 00044 * ======== 00045 * 00046 *> \author Univ. of Tennessee 00047 *> \author Univ. of California Berkeley 00048 *> \author Univ. of Colorado Denver 00049 *> \author NAG Ltd. 00050 * 00051 *> \date November 2011 00052 * 00053 *> \ingroup complex_lin 00054 * 00055 * ===================================================================== 00056 SUBROUTINE CERRPO( PATH, NUNIT ) 00057 * 00058 * -- LAPACK test routine (version 3.4.0) -- 00059 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00060 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00061 * November 2011 00062 * 00063 * .. Scalar Arguments .. 00064 CHARACTER*3 PATH 00065 INTEGER NUNIT 00066 * .. 00067 * 00068 * ===================================================================== 00069 * 00070 * .. Parameters .. 00071 INTEGER NMAX 00072 PARAMETER ( NMAX = 4 ) 00073 * .. 00074 * .. Local Scalars .. 00075 CHARACTER*2 C2 00076 INTEGER I, INFO, J 00077 REAL ANRM, RCOND 00078 * .. 00079 * .. Local Arrays .. 00080 REAL R( NMAX ), R1( NMAX ), R2( NMAX ) 00081 COMPLEX A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ), 00082 $ W( 2*NMAX ), X( NMAX ) 00083 * .. 00084 * .. External Functions .. 00085 LOGICAL LSAMEN 00086 EXTERNAL LSAMEN 00087 * .. 00088 * .. External Subroutines .. 00089 EXTERNAL ALAESM, CHKXER, CPBCON, CPBEQU, CPBRFS, CPBTF2, 00090 $ CPBTRF, CPBTRS, CPOCON, CPOEQU, CPORFS, CPOTF2, 00091 $ CPOTRF, CPOTRI, CPOTRS, CPPCON, CPPEQU, CPPRFS, 00092 $ CPPTRF, CPPTRI, CPPTRS 00093 * .. 00094 * .. Scalars in Common .. 00095 LOGICAL LERR, OK 00096 CHARACTER*32 SRNAMT 00097 INTEGER INFOT, NOUT 00098 * .. 00099 * .. Common blocks .. 00100 COMMON / INFOC / INFOT, NOUT, OK, LERR 00101 COMMON / SRNAMC / SRNAMT 00102 * .. 00103 * .. Intrinsic Functions .. 00104 INTRINSIC CMPLX, REAL 00105 * .. 00106 * .. Executable Statements .. 00107 * 00108 NOUT = NUNIT 00109 WRITE( NOUT, FMT = * ) 00110 C2 = PATH( 2: 3 ) 00111 * 00112 * Set the variables to innocuous values. 00113 * 00114 DO 20 J = 1, NMAX 00115 DO 10 I = 1, NMAX 00116 A( I, J ) = CMPLX( 1. / REAL( I+J ), -1. / REAL( I+J ) ) 00117 AF( I, J ) = CMPLX( 1. / REAL( I+J ), -1. / REAL( I+J ) ) 00118 10 CONTINUE 00119 B( J ) = 0. 00120 R1( J ) = 0. 00121 R2( J ) = 0. 00122 W( J ) = 0. 00123 X( J ) = 0. 00124 20 CONTINUE 00125 ANRM = 1. 00126 OK = .TRUE. 00127 * 00128 * Test error exits of the routines that use the Cholesky 00129 * decomposition of a Hermitian positive definite matrix. 00130 * 00131 IF( LSAMEN( 2, C2, 'PO' ) ) THEN 00132 * 00133 * CPOTRF 00134 * 00135 SRNAMT = 'CPOTRF' 00136 INFOT = 1 00137 CALL CPOTRF( '/', 0, A, 1, INFO ) 00138 CALL CHKXER( 'CPOTRF', INFOT, NOUT, LERR, OK ) 00139 INFOT = 2 00140 CALL CPOTRF( 'U', -1, A, 1, INFO ) 00141 CALL CHKXER( 'CPOTRF', INFOT, NOUT, LERR, OK ) 00142 INFOT = 4 00143 CALL CPOTRF( 'U', 2, A, 1, INFO ) 00144 CALL CHKXER( 'CPOTRF', INFOT, NOUT, LERR, OK ) 00145 * 00146 * CPOTF2 00147 * 00148 SRNAMT = 'CPOTF2' 00149 INFOT = 1 00150 CALL CPOTF2( '/', 0, A, 1, INFO ) 00151 CALL CHKXER( 'CPOTF2', INFOT, NOUT, LERR, OK ) 00152 INFOT = 2 00153 CALL CPOTF2( 'U', -1, A, 1, INFO ) 00154 CALL CHKXER( 'CPOTF2', INFOT, NOUT, LERR, OK ) 00155 INFOT = 4 00156 CALL CPOTF2( 'U', 2, A, 1, INFO ) 00157 CALL CHKXER( 'CPOTF2', INFOT, NOUT, LERR, OK ) 00158 * 00159 * CPOTRI 00160 * 00161 SRNAMT = 'CPOTRI' 00162 INFOT = 1 00163 CALL CPOTRI( '/', 0, A, 1, INFO ) 00164 CALL CHKXER( 'CPOTRI', INFOT, NOUT, LERR, OK ) 00165 INFOT = 2 00166 CALL CPOTRI( 'U', -1, A, 1, INFO ) 00167 CALL CHKXER( 'CPOTRI', INFOT, NOUT, LERR, OK ) 00168 INFOT = 4 00169 CALL CPOTRI( 'U', 2, A, 1, INFO ) 00170 CALL CHKXER( 'CPOTRI', INFOT, NOUT, LERR, OK ) 00171 * 00172 * CPOTRS 00173 * 00174 SRNAMT = 'CPOTRS' 00175 INFOT = 1 00176 CALL CPOTRS( '/', 0, 0, A, 1, B, 1, INFO ) 00177 CALL CHKXER( 'CPOTRS', INFOT, NOUT, LERR, OK ) 00178 INFOT = 2 00179 CALL CPOTRS( 'U', -1, 0, A, 1, B, 1, INFO ) 00180 CALL CHKXER( 'CPOTRS', INFOT, NOUT, LERR, OK ) 00181 INFOT = 3 00182 CALL CPOTRS( 'U', 0, -1, A, 1, B, 1, INFO ) 00183 CALL CHKXER( 'CPOTRS', INFOT, NOUT, LERR, OK ) 00184 INFOT = 5 00185 CALL CPOTRS( 'U', 2, 1, A, 1, B, 2, INFO ) 00186 CALL CHKXER( 'CPOTRS', INFOT, NOUT, LERR, OK ) 00187 INFOT = 7 00188 CALL CPOTRS( 'U', 2, 1, A, 2, B, 1, INFO ) 00189 CALL CHKXER( 'CPOTRS', INFOT, NOUT, LERR, OK ) 00190 * 00191 * CPORFS 00192 * 00193 SRNAMT = 'CPORFS' 00194 INFOT = 1 00195 CALL CPORFS( '/', 0, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W, R, 00196 $ INFO ) 00197 CALL CHKXER( 'CPORFS', INFOT, NOUT, LERR, OK ) 00198 INFOT = 2 00199 CALL CPORFS( 'U', -1, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W, R, 00200 $ INFO ) 00201 CALL CHKXER( 'CPORFS', INFOT, NOUT, LERR, OK ) 00202 INFOT = 3 00203 CALL CPORFS( 'U', 0, -1, A, 1, AF, 1, B, 1, X, 1, R1, R2, W, R, 00204 $ INFO ) 00205 CALL CHKXER( 'CPORFS', INFOT, NOUT, LERR, OK ) 00206 INFOT = 5 00207 CALL CPORFS( 'U', 2, 1, A, 1, AF, 2, B, 2, X, 2, R1, R2, W, R, 00208 $ INFO ) 00209 CALL CHKXER( 'CPORFS', INFOT, NOUT, LERR, OK ) 00210 INFOT = 7 00211 CALL CPORFS( 'U', 2, 1, A, 2, AF, 1, B, 2, X, 2, R1, R2, W, R, 00212 $ INFO ) 00213 CALL CHKXER( 'CPORFS', INFOT, NOUT, LERR, OK ) 00214 INFOT = 9 00215 CALL CPORFS( 'U', 2, 1, A, 2, AF, 2, B, 1, X, 2, R1, R2, W, R, 00216 $ INFO ) 00217 CALL CHKXER( 'CPORFS', INFOT, NOUT, LERR, OK ) 00218 INFOT = 11 00219 CALL CPORFS( 'U', 2, 1, A, 2, AF, 2, B, 2, X, 1, R1, R2, W, R, 00220 $ INFO ) 00221 CALL CHKXER( 'CPORFS', INFOT, NOUT, LERR, OK ) 00222 * 00223 * CPOCON 00224 * 00225 SRNAMT = 'CPOCON' 00226 INFOT = 1 00227 CALL CPOCON( '/', 0, A, 1, ANRM, RCOND, W, R, INFO ) 00228 CALL CHKXER( 'CPOCON', INFOT, NOUT, LERR, OK ) 00229 INFOT = 2 00230 CALL CPOCON( 'U', -1, A, 1, ANRM, RCOND, W, R, INFO ) 00231 CALL CHKXER( 'CPOCON', INFOT, NOUT, LERR, OK ) 00232 INFOT = 4 00233 CALL CPOCON( 'U', 2, A, 1, ANRM, RCOND, W, R, INFO ) 00234 CALL CHKXER( 'CPOCON', INFOT, NOUT, LERR, OK ) 00235 INFOT = 5 00236 CALL CPOCON( 'U', 1, A, 1, -ANRM, RCOND, W, R, INFO ) 00237 CALL CHKXER( 'CPOCON', INFOT, NOUT, LERR, OK ) 00238 * 00239 * CPOEQU 00240 * 00241 SRNAMT = 'CPOEQU' 00242 INFOT = 1 00243 CALL CPOEQU( -1, A, 1, R1, RCOND, ANRM, INFO ) 00244 CALL CHKXER( 'CPOEQU', INFOT, NOUT, LERR, OK ) 00245 INFOT = 3 00246 CALL CPOEQU( 2, A, 1, R1, RCOND, ANRM, INFO ) 00247 CALL CHKXER( 'CPOEQU', INFOT, NOUT, LERR, OK ) 00248 * 00249 * Test error exits of the routines that use the Cholesky 00250 * decomposition of a Hermitian positive definite packed matrix. 00251 * 00252 ELSE IF( LSAMEN( 2, C2, 'PP' ) ) THEN 00253 * 00254 * CPPTRF 00255 * 00256 SRNAMT = 'CPPTRF' 00257 INFOT = 1 00258 CALL CPPTRF( '/', 0, A, INFO ) 00259 CALL CHKXER( 'CPPTRF', INFOT, NOUT, LERR, OK ) 00260 INFOT = 2 00261 CALL CPPTRF( 'U', -1, A, INFO ) 00262 CALL CHKXER( 'CPPTRF', INFOT, NOUT, LERR, OK ) 00263 * 00264 * CPPTRI 00265 * 00266 SRNAMT = 'CPPTRI' 00267 INFOT = 1 00268 CALL CPPTRI( '/', 0, A, INFO ) 00269 CALL CHKXER( 'CPPTRI', INFOT, NOUT, LERR, OK ) 00270 INFOT = 2 00271 CALL CPPTRI( 'U', -1, A, INFO ) 00272 CALL CHKXER( 'CPPTRI', INFOT, NOUT, LERR, OK ) 00273 * 00274 * CPPTRS 00275 * 00276 SRNAMT = 'CPPTRS' 00277 INFOT = 1 00278 CALL CPPTRS( '/', 0, 0, A, B, 1, INFO ) 00279 CALL CHKXER( 'CPPTRS', INFOT, NOUT, LERR, OK ) 00280 INFOT = 2 00281 CALL CPPTRS( 'U', -1, 0, A, B, 1, INFO ) 00282 CALL CHKXER( 'CPPTRS', INFOT, NOUT, LERR, OK ) 00283 INFOT = 3 00284 CALL CPPTRS( 'U', 0, -1, A, B, 1, INFO ) 00285 CALL CHKXER( 'CPPTRS', INFOT, NOUT, LERR, OK ) 00286 INFOT = 6 00287 CALL CPPTRS( 'U', 2, 1, A, B, 1, INFO ) 00288 CALL CHKXER( 'CPPTRS', INFOT, NOUT, LERR, OK ) 00289 * 00290 * CPPRFS 00291 * 00292 SRNAMT = 'CPPRFS' 00293 INFOT = 1 00294 CALL CPPRFS( '/', 0, 0, A, AF, B, 1, X, 1, R1, R2, W, R, INFO ) 00295 CALL CHKXER( 'CPPRFS', INFOT, NOUT, LERR, OK ) 00296 INFOT = 2 00297 CALL CPPRFS( 'U', -1, 0, A, AF, B, 1, X, 1, R1, R2, W, R, 00298 $ INFO ) 00299 CALL CHKXER( 'CPPRFS', INFOT, NOUT, LERR, OK ) 00300 INFOT = 3 00301 CALL CPPRFS( 'U', 0, -1, A, AF, B, 1, X, 1, R1, R2, W, R, 00302 $ INFO ) 00303 CALL CHKXER( 'CPPRFS', INFOT, NOUT, LERR, OK ) 00304 INFOT = 7 00305 CALL CPPRFS( 'U', 2, 1, A, AF, B, 1, X, 2, R1, R2, W, R, INFO ) 00306 CALL CHKXER( 'CPPRFS', INFOT, NOUT, LERR, OK ) 00307 INFOT = 9 00308 CALL CPPRFS( 'U', 2, 1, A, AF, B, 2, X, 1, R1, R2, W, R, INFO ) 00309 CALL CHKXER( 'CPPRFS', INFOT, NOUT, LERR, OK ) 00310 * 00311 * CPPCON 00312 * 00313 SRNAMT = 'CPPCON' 00314 INFOT = 1 00315 CALL CPPCON( '/', 0, A, ANRM, RCOND, W, R, INFO ) 00316 CALL CHKXER( 'CPPCON', INFOT, NOUT, LERR, OK ) 00317 INFOT = 2 00318 CALL CPPCON( 'U', -1, A, ANRM, RCOND, W, R, INFO ) 00319 CALL CHKXER( 'CPPCON', INFOT, NOUT, LERR, OK ) 00320 INFOT = 4 00321 CALL CPPCON( 'U', 1, A, -ANRM, RCOND, W, R, INFO ) 00322 CALL CHKXER( 'CPPCON', INFOT, NOUT, LERR, OK ) 00323 * 00324 * CPPEQU 00325 * 00326 SRNAMT = 'CPPEQU' 00327 INFOT = 1 00328 CALL CPPEQU( '/', 0, A, R1, RCOND, ANRM, INFO ) 00329 CALL CHKXER( 'CPPEQU', INFOT, NOUT, LERR, OK ) 00330 INFOT = 2 00331 CALL CPPEQU( 'U', -1, A, R1, RCOND, ANRM, INFO ) 00332 CALL CHKXER( 'CPPEQU', INFOT, NOUT, LERR, OK ) 00333 * 00334 * Test error exits of the routines that use the Cholesky 00335 * decomposition of a Hermitian positive definite band matrix. 00336 * 00337 ELSE IF( LSAMEN( 2, C2, 'PB' ) ) THEN 00338 * 00339 * CPBTRF 00340 * 00341 SRNAMT = 'CPBTRF' 00342 INFOT = 1 00343 CALL CPBTRF( '/', 0, 0, A, 1, INFO ) 00344 CALL CHKXER( 'CPBTRF', INFOT, NOUT, LERR, OK ) 00345 INFOT = 2 00346 CALL CPBTRF( 'U', -1, 0, A, 1, INFO ) 00347 CALL CHKXER( 'CPBTRF', INFOT, NOUT, LERR, OK ) 00348 INFOT = 3 00349 CALL CPBTRF( 'U', 1, -1, A, 1, INFO ) 00350 CALL CHKXER( 'CPBTRF', INFOT, NOUT, LERR, OK ) 00351 INFOT = 5 00352 CALL CPBTRF( 'U', 2, 1, A, 1, INFO ) 00353 CALL CHKXER( 'CPBTRF', INFOT, NOUT, LERR, OK ) 00354 * 00355 * CPBTF2 00356 * 00357 SRNAMT = 'CPBTF2' 00358 INFOT = 1 00359 CALL CPBTF2( '/', 0, 0, A, 1, INFO ) 00360 CALL CHKXER( 'CPBTF2', INFOT, NOUT, LERR, OK ) 00361 INFOT = 2 00362 CALL CPBTF2( 'U', -1, 0, A, 1, INFO ) 00363 CALL CHKXER( 'CPBTF2', INFOT, NOUT, LERR, OK ) 00364 INFOT = 3 00365 CALL CPBTF2( 'U', 1, -1, A, 1, INFO ) 00366 CALL CHKXER( 'CPBTF2', INFOT, NOUT, LERR, OK ) 00367 INFOT = 5 00368 CALL CPBTF2( 'U', 2, 1, A, 1, INFO ) 00369 CALL CHKXER( 'CPBTF2', INFOT, NOUT, LERR, OK ) 00370 * 00371 * CPBTRS 00372 * 00373 SRNAMT = 'CPBTRS' 00374 INFOT = 1 00375 CALL CPBTRS( '/', 0, 0, 0, A, 1, B, 1, INFO ) 00376 CALL CHKXER( 'CPBTRS', INFOT, NOUT, LERR, OK ) 00377 INFOT = 2 00378 CALL CPBTRS( 'U', -1, 0, 0, A, 1, B, 1, INFO ) 00379 CALL CHKXER( 'CPBTRS', INFOT, NOUT, LERR, OK ) 00380 INFOT = 3 00381 CALL CPBTRS( 'U', 1, -1, 0, A, 1, B, 1, INFO ) 00382 CALL CHKXER( 'CPBTRS', INFOT, NOUT, LERR, OK ) 00383 INFOT = 4 00384 CALL CPBTRS( 'U', 0, 0, -1, A, 1, B, 1, INFO ) 00385 CALL CHKXER( 'CPBTRS', INFOT, NOUT, LERR, OK ) 00386 INFOT = 6 00387 CALL CPBTRS( 'U', 2, 1, 1, A, 1, B, 1, INFO ) 00388 CALL CHKXER( 'CPBTRS', INFOT, NOUT, LERR, OK ) 00389 INFOT = 8 00390 CALL CPBTRS( 'U', 2, 0, 1, A, 1, B, 1, INFO ) 00391 CALL CHKXER( 'CPBTRS', INFOT, NOUT, LERR, OK ) 00392 * 00393 * CPBRFS 00394 * 00395 SRNAMT = 'CPBRFS' 00396 INFOT = 1 00397 CALL CPBRFS( '/', 0, 0, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W, 00398 $ R, INFO ) 00399 CALL CHKXER( 'CPBRFS', INFOT, NOUT, LERR, OK ) 00400 INFOT = 2 00401 CALL CPBRFS( 'U', -1, 0, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W, 00402 $ R, INFO ) 00403 CALL CHKXER( 'CPBRFS', INFOT, NOUT, LERR, OK ) 00404 INFOT = 3 00405 CALL CPBRFS( 'U', 1, -1, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W, 00406 $ R, INFO ) 00407 CALL CHKXER( 'CPBRFS', INFOT, NOUT, LERR, OK ) 00408 INFOT = 4 00409 CALL CPBRFS( 'U', 0, 0, -1, A, 1, AF, 1, B, 1, X, 1, R1, R2, W, 00410 $ R, INFO ) 00411 CALL CHKXER( 'CPBRFS', INFOT, NOUT, LERR, OK ) 00412 INFOT = 6 00413 CALL CPBRFS( 'U', 2, 1, 1, A, 1, AF, 2, B, 2, X, 2, R1, R2, W, 00414 $ R, INFO ) 00415 CALL CHKXER( 'CPBRFS', INFOT, NOUT, LERR, OK ) 00416 INFOT = 8 00417 CALL CPBRFS( 'U', 2, 1, 1, A, 2, AF, 1, B, 2, X, 2, R1, R2, W, 00418 $ R, INFO ) 00419 CALL CHKXER( 'CPBRFS', INFOT, NOUT, LERR, OK ) 00420 INFOT = 10 00421 CALL CPBRFS( 'U', 2, 0, 1, A, 1, AF, 1, B, 1, X, 2, R1, R2, W, 00422 $ R, INFO ) 00423 CALL CHKXER( 'CPBRFS', INFOT, NOUT, LERR, OK ) 00424 INFOT = 12 00425 CALL CPBRFS( 'U', 2, 0, 1, A, 1, AF, 1, B, 2, X, 1, R1, R2, W, 00426 $ R, INFO ) 00427 CALL CHKXER( 'CPBRFS', INFOT, NOUT, LERR, OK ) 00428 * 00429 * CPBCON 00430 * 00431 SRNAMT = 'CPBCON' 00432 INFOT = 1 00433 CALL CPBCON( '/', 0, 0, A, 1, ANRM, RCOND, W, R, INFO ) 00434 CALL CHKXER( 'CPBCON', INFOT, NOUT, LERR, OK ) 00435 INFOT = 2 00436 CALL CPBCON( 'U', -1, 0, A, 1, ANRM, RCOND, W, R, INFO ) 00437 CALL CHKXER( 'CPBCON', INFOT, NOUT, LERR, OK ) 00438 INFOT = 3 00439 CALL CPBCON( 'U', 1, -1, A, 1, ANRM, RCOND, W, R, INFO ) 00440 CALL CHKXER( 'CPBCON', INFOT, NOUT, LERR, OK ) 00441 INFOT = 5 00442 CALL CPBCON( 'U', 2, 1, A, 1, ANRM, RCOND, W, R, INFO ) 00443 CALL CHKXER( 'CPBCON', INFOT, NOUT, LERR, OK ) 00444 INFOT = 6 00445 CALL CPBCON( 'U', 1, 0, A, 1, -ANRM, RCOND, W, R, INFO ) 00446 CALL CHKXER( 'CPBCON', INFOT, NOUT, LERR, OK ) 00447 * 00448 * CPBEQU 00449 * 00450 SRNAMT = 'CPBEQU' 00451 INFOT = 1 00452 CALL CPBEQU( '/', 0, 0, A, 1, R1, RCOND, ANRM, INFO ) 00453 CALL CHKXER( 'CPBEQU', INFOT, NOUT, LERR, OK ) 00454 INFOT = 2 00455 CALL CPBEQU( 'U', -1, 0, A, 1, R1, RCOND, ANRM, INFO ) 00456 CALL CHKXER( 'CPBEQU', INFOT, NOUT, LERR, OK ) 00457 INFOT = 3 00458 CALL CPBEQU( 'U', 1, -1, A, 1, R1, RCOND, ANRM, INFO ) 00459 CALL CHKXER( 'CPBEQU', INFOT, NOUT, LERR, OK ) 00460 INFOT = 5 00461 CALL CPBEQU( 'U', 2, 1, A, 1, R1, RCOND, ANRM, INFO ) 00462 CALL CHKXER( 'CPBEQU', INFOT, NOUT, LERR, OK ) 00463 END IF 00464 * 00465 * Print a summary line. 00466 * 00467 CALL ALAESM( PATH, OK, NOUT ) 00468 * 00469 RETURN 00470 * 00471 * End of CERRPO 00472 * 00473 END