![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b CERRST 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 CERRST( 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 *> CERRST tests the error exits for CHETRD, CUNGTR, CUNMTR, CHPTRD, 00025 *> CUNGTR, CUPMTR, CSTEQR, CSTEIN, CPTEQR, CHBTRD, 00026 *> CHEEV, CHEEVX, CHEEVD, CHBEV, CHBEVX, CHBEVD, 00027 *> CHPEV, CHPEVX, CHPEVD, and CSTEDC. 00028 *> \endverbatim 00029 * 00030 * Arguments: 00031 * ========== 00032 * 00033 *> \param[in] PATH 00034 *> \verbatim 00035 *> PATH is CHARACTER*3 00036 *> The LAPACK path name for the routines to be tested. 00037 *> \endverbatim 00038 *> 00039 *> \param[in] NUNIT 00040 *> \verbatim 00041 *> NUNIT is INTEGER 00042 *> The unit number for output. 00043 *> \endverbatim 00044 * 00045 * Authors: 00046 * ======== 00047 * 00048 *> \author Univ. of Tennessee 00049 *> \author Univ. of California Berkeley 00050 *> \author Univ. of Colorado Denver 00051 *> \author NAG Ltd. 00052 * 00053 *> \date November 2011 00054 * 00055 *> \ingroup complex_eig 00056 * 00057 * ===================================================================== 00058 SUBROUTINE CERRST( PATH, NUNIT ) 00059 * 00060 * -- LAPACK test routine (version 3.4.0) -- 00061 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00062 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00063 * November 2011 00064 * 00065 * .. Scalar Arguments .. 00066 CHARACTER*3 PATH 00067 INTEGER NUNIT 00068 * .. 00069 * 00070 * ===================================================================== 00071 * 00072 * .. Parameters .. 00073 INTEGER NMAX, LIW, LW 00074 PARAMETER ( NMAX = 3, LIW = 12*NMAX, LW = 20*NMAX ) 00075 * .. 00076 * .. Local Scalars .. 00077 CHARACTER*2 C2 00078 INTEGER I, INFO, J, M, N, NT 00079 * .. 00080 * .. Local Arrays .. 00081 INTEGER I1( NMAX ), I2( NMAX ), I3( NMAX ), IW( LIW ) 00082 REAL D( NMAX ), E( NMAX ), R( LW ), RW( LW ), 00083 $ X( NMAX ) 00084 COMPLEX A( NMAX, NMAX ), C( NMAX, NMAX ), 00085 $ Q( NMAX, NMAX ), TAU( NMAX ), W( LW ), 00086 $ Z( NMAX, NMAX ) 00087 * .. 00088 * .. External Functions .. 00089 LOGICAL LSAMEN 00090 EXTERNAL LSAMEN 00091 * .. 00092 * .. External Subroutines .. 00093 EXTERNAL CHBEV, CHBEVD, CHBEVX, CHBTRD, CHEEV, CHEEVD, 00094 $ CHEEVR, CHEEVX, CHETRD, CHKXER, CHPEV, CHPEVD, 00095 $ CHPEVX, CHPTRD, CPTEQR, CSTEDC, CSTEIN, CSTEQR, 00096 $ CUNGTR, CUNMTR, CUPGTR, CUPMTR 00097 * .. 00098 * .. Scalars in Common .. 00099 LOGICAL LERR, OK 00100 CHARACTER*32 SRNAMT 00101 INTEGER INFOT, NOUT 00102 * .. 00103 * .. Common blocks .. 00104 COMMON / INFOC / INFOT, NOUT, OK, LERR 00105 COMMON / SRNAMC / SRNAMT 00106 * .. 00107 * .. Intrinsic Functions .. 00108 INTRINSIC REAL 00109 * .. 00110 * .. Executable Statements .. 00111 * 00112 NOUT = NUNIT 00113 WRITE( NOUT, FMT = * ) 00114 C2 = PATH( 2: 3 ) 00115 * 00116 * Set the variables to innocuous values. 00117 * 00118 DO 20 J = 1, NMAX 00119 DO 10 I = 1, NMAX 00120 A( I, J ) = 1. / REAL( I+J ) 00121 10 CONTINUE 00122 20 CONTINUE 00123 DO 30 J = 1, NMAX 00124 D( J ) = REAL( J ) 00125 E( J ) = 0.0 00126 I1( J ) = J 00127 I2( J ) = J 00128 TAU( J ) = 1. 00129 30 CONTINUE 00130 OK = .TRUE. 00131 NT = 0 00132 * 00133 * Test error exits for the ST path. 00134 * 00135 IF( LSAMEN( 2, C2, 'ST' ) ) THEN 00136 * 00137 * CHETRD 00138 * 00139 SRNAMT = 'CHETRD' 00140 INFOT = 1 00141 CALL CHETRD( '/', 0, A, 1, D, E, TAU, W, 1, INFO ) 00142 CALL CHKXER( 'CHETRD', INFOT, NOUT, LERR, OK ) 00143 INFOT = 2 00144 CALL CHETRD( 'U', -1, A, 1, D, E, TAU, W, 1, INFO ) 00145 CALL CHKXER( 'CHETRD', INFOT, NOUT, LERR, OK ) 00146 INFOT = 4 00147 CALL CHETRD( 'U', 2, A, 1, D, E, TAU, W, 1, INFO ) 00148 CALL CHKXER( 'CHETRD', INFOT, NOUT, LERR, OK ) 00149 INFOT = 9 00150 CALL CHETRD( 'U', 0, A, 1, D, E, TAU, W, 0, INFO ) 00151 CALL CHKXER( 'CHETRD', INFOT, NOUT, LERR, OK ) 00152 NT = NT + 4 00153 * 00154 * CUNGTR 00155 * 00156 SRNAMT = 'CUNGTR' 00157 INFOT = 1 00158 CALL CUNGTR( '/', 0, A, 1, TAU, W, 1, INFO ) 00159 CALL CHKXER( 'CUNGTR', INFOT, NOUT, LERR, OK ) 00160 INFOT = 2 00161 CALL CUNGTR( 'U', -1, A, 1, TAU, W, 1, INFO ) 00162 CALL CHKXER( 'CUNGTR', INFOT, NOUT, LERR, OK ) 00163 INFOT = 4 00164 CALL CUNGTR( 'U', 2, A, 1, TAU, W, 1, INFO ) 00165 CALL CHKXER( 'CUNGTR', INFOT, NOUT, LERR, OK ) 00166 INFOT = 7 00167 CALL CUNGTR( 'U', 3, A, 3, TAU, W, 1, INFO ) 00168 CALL CHKXER( 'CUNGTR', INFOT, NOUT, LERR, OK ) 00169 NT = NT + 4 00170 * 00171 * CUNMTR 00172 * 00173 SRNAMT = 'CUNMTR' 00174 INFOT = 1 00175 CALL CUNMTR( '/', 'U', 'N', 0, 0, A, 1, TAU, C, 1, W, 1, INFO ) 00176 CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK ) 00177 INFOT = 2 00178 CALL CUNMTR( 'L', '/', 'N', 0, 0, A, 1, TAU, C, 1, W, 1, INFO ) 00179 CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK ) 00180 INFOT = 3 00181 CALL CUNMTR( 'L', 'U', '/', 0, 0, A, 1, TAU, C, 1, W, 1, INFO ) 00182 CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK ) 00183 INFOT = 4 00184 CALL CUNMTR( 'L', 'U', 'N', -1, 0, A, 1, TAU, C, 1, W, 1, 00185 $ INFO ) 00186 CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK ) 00187 INFOT = 5 00188 CALL CUNMTR( 'L', 'U', 'N', 0, -1, A, 1, TAU, C, 1, W, 1, 00189 $ INFO ) 00190 CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK ) 00191 INFOT = 7 00192 CALL CUNMTR( 'L', 'U', 'N', 2, 0, A, 1, TAU, C, 2, W, 1, INFO ) 00193 CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK ) 00194 INFOT = 7 00195 CALL CUNMTR( 'R', 'U', 'N', 0, 2, A, 1, TAU, C, 1, W, 1, INFO ) 00196 CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK ) 00197 INFOT = 10 00198 CALL CUNMTR( 'L', 'U', 'N', 2, 0, A, 2, TAU, C, 1, W, 1, INFO ) 00199 CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK ) 00200 INFOT = 12 00201 CALL CUNMTR( 'L', 'U', 'N', 0, 2, A, 1, TAU, C, 1, W, 1, INFO ) 00202 CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK ) 00203 INFOT = 12 00204 CALL CUNMTR( 'R', 'U', 'N', 2, 0, A, 1, TAU, C, 2, W, 1, INFO ) 00205 CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK ) 00206 NT = NT + 10 00207 * 00208 * CHPTRD 00209 * 00210 SRNAMT = 'CHPTRD' 00211 INFOT = 1 00212 CALL CHPTRD( '/', 0, A, D, E, TAU, INFO ) 00213 CALL CHKXER( 'CHPTRD', INFOT, NOUT, LERR, OK ) 00214 INFOT = 2 00215 CALL CHPTRD( 'U', -1, A, D, E, TAU, INFO ) 00216 CALL CHKXER( 'CHPTRD', INFOT, NOUT, LERR, OK ) 00217 NT = NT + 2 00218 * 00219 * CUPGTR 00220 * 00221 SRNAMT = 'CUPGTR' 00222 INFOT = 1 00223 CALL CUPGTR( '/', 0, A, TAU, Z, 1, W, INFO ) 00224 CALL CHKXER( 'CUPGTR', INFOT, NOUT, LERR, OK ) 00225 INFOT = 2 00226 CALL CUPGTR( 'U', -1, A, TAU, Z, 1, W, INFO ) 00227 CALL CHKXER( 'CUPGTR', INFOT, NOUT, LERR, OK ) 00228 INFOT = 6 00229 CALL CUPGTR( 'U', 2, A, TAU, Z, 1, W, INFO ) 00230 CALL CHKXER( 'CUPGTR', INFOT, NOUT, LERR, OK ) 00231 NT = NT + 3 00232 * 00233 * CUPMTR 00234 * 00235 SRNAMT = 'CUPMTR' 00236 INFOT = 1 00237 CALL CUPMTR( '/', 'U', 'N', 0, 0, A, TAU, C, 1, W, INFO ) 00238 CALL CHKXER( 'CUPMTR', INFOT, NOUT, LERR, OK ) 00239 INFOT = 2 00240 CALL CUPMTR( 'L', '/', 'N', 0, 0, A, TAU, C, 1, W, INFO ) 00241 CALL CHKXER( 'CUPMTR', INFOT, NOUT, LERR, OK ) 00242 INFOT = 3 00243 CALL CUPMTR( 'L', 'U', '/', 0, 0, A, TAU, C, 1, W, INFO ) 00244 CALL CHKXER( 'CUPMTR', INFOT, NOUT, LERR, OK ) 00245 INFOT = 4 00246 CALL CUPMTR( 'L', 'U', 'N', -1, 0, A, TAU, C, 1, W, INFO ) 00247 CALL CHKXER( 'CUPMTR', INFOT, NOUT, LERR, OK ) 00248 INFOT = 5 00249 CALL CUPMTR( 'L', 'U', 'N', 0, -1, A, TAU, C, 1, W, INFO ) 00250 CALL CHKXER( 'CUPMTR', INFOT, NOUT, LERR, OK ) 00251 INFOT = 9 00252 CALL CUPMTR( 'L', 'U', 'N', 2, 0, A, TAU, C, 1, W, INFO ) 00253 CALL CHKXER( 'CUPMTR', INFOT, NOUT, LERR, OK ) 00254 NT = NT + 6 00255 * 00256 * CPTEQR 00257 * 00258 SRNAMT = 'CPTEQR' 00259 INFOT = 1 00260 CALL CPTEQR( '/', 0, D, E, Z, 1, RW, INFO ) 00261 CALL CHKXER( 'CPTEQR', INFOT, NOUT, LERR, OK ) 00262 INFOT = 2 00263 CALL CPTEQR( 'N', -1, D, E, Z, 1, RW, INFO ) 00264 CALL CHKXER( 'CPTEQR', INFOT, NOUT, LERR, OK ) 00265 INFOT = 6 00266 CALL CPTEQR( 'V', 2, D, E, Z, 1, RW, INFO ) 00267 CALL CHKXER( 'CPTEQR', INFOT, NOUT, LERR, OK ) 00268 NT = NT + 3 00269 * 00270 * CSTEIN 00271 * 00272 SRNAMT = 'CSTEIN' 00273 INFOT = 1 00274 CALL CSTEIN( -1, D, E, 0, X, I1, I2, Z, 1, RW, IW, I3, INFO ) 00275 CALL CHKXER( 'CSTEIN', INFOT, NOUT, LERR, OK ) 00276 INFOT = 4 00277 CALL CSTEIN( 0, D, E, -1, X, I1, I2, Z, 1, RW, IW, I3, INFO ) 00278 CALL CHKXER( 'CSTEIN', INFOT, NOUT, LERR, OK ) 00279 INFOT = 4 00280 CALL CSTEIN( 0, D, E, 1, X, I1, I2, Z, 1, RW, IW, I3, INFO ) 00281 CALL CHKXER( 'CSTEIN', INFOT, NOUT, LERR, OK ) 00282 INFOT = 9 00283 CALL CSTEIN( 2, D, E, 0, X, I1, I2, Z, 1, RW, IW, I3, INFO ) 00284 CALL CHKXER( 'CSTEIN', INFOT, NOUT, LERR, OK ) 00285 NT = NT + 4 00286 * 00287 * CSTEQR 00288 * 00289 SRNAMT = 'CSTEQR' 00290 INFOT = 1 00291 CALL CSTEQR( '/', 0, D, E, Z, 1, RW, INFO ) 00292 CALL CHKXER( 'CSTEQR', INFOT, NOUT, LERR, OK ) 00293 INFOT = 2 00294 CALL CSTEQR( 'N', -1, D, E, Z, 1, RW, INFO ) 00295 CALL CHKXER( 'CSTEQR', INFOT, NOUT, LERR, OK ) 00296 INFOT = 6 00297 CALL CSTEQR( 'V', 2, D, E, Z, 1, RW, INFO ) 00298 CALL CHKXER( 'CSTEQR', INFOT, NOUT, LERR, OK ) 00299 NT = NT + 3 00300 * 00301 * CSTEDC 00302 * 00303 SRNAMT = 'CSTEDC' 00304 INFOT = 1 00305 CALL CSTEDC( '/', 0, D, E, Z, 1, W, 1, RW, 1, IW, 1, INFO ) 00306 CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK ) 00307 INFOT = 2 00308 CALL CSTEDC( 'N', -1, D, E, Z, 1, W, 1, RW, 1, IW, 1, INFO ) 00309 CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK ) 00310 INFOT = 6 00311 CALL CSTEDC( 'V', 2, D, E, Z, 1, W, 4, RW, 23, IW, 28, INFO ) 00312 CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK ) 00313 INFOT = 8 00314 CALL CSTEDC( 'N', 2, D, E, Z, 1, W, 0, RW, 1, IW, 1, INFO ) 00315 CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK ) 00316 INFOT = 8 00317 CALL CSTEDC( 'V', 2, D, E, Z, 2, W, 0, RW, 23, IW, 28, INFO ) 00318 CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK ) 00319 INFOT = 10 00320 CALL CSTEDC( 'N', 2, D, E, Z, 1, W, 1, RW, 0, IW, 1, INFO ) 00321 CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK ) 00322 INFOT = 10 00323 CALL CSTEDC( 'I', 2, D, E, Z, 2, W, 1, RW, 1, IW, 12, INFO ) 00324 CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK ) 00325 INFOT = 10 00326 CALL CSTEDC( 'V', 2, D, E, Z, 2, W, 4, RW, 1, IW, 28, INFO ) 00327 CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK ) 00328 INFOT = 12 00329 CALL CSTEDC( 'N', 2, D, E, Z, 1, W, 1, RW, 1, IW, 0, INFO ) 00330 CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK ) 00331 INFOT = 12 00332 CALL CSTEDC( 'I', 2, D, E, Z, 2, W, 1, RW, 23, IW, 0, INFO ) 00333 CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK ) 00334 INFOT = 12 00335 CALL CSTEDC( 'V', 2, D, E, Z, 2, W, 4, RW, 23, IW, 0, INFO ) 00336 CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK ) 00337 NT = NT + 11 00338 * 00339 * CHEEVD 00340 * 00341 SRNAMT = 'CHEEVD' 00342 INFOT = 1 00343 CALL CHEEVD( '/', 'U', 0, A, 1, X, W, 1, RW, 1, IW, 1, INFO ) 00344 CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK ) 00345 INFOT = 2 00346 CALL CHEEVD( 'N', '/', 0, A, 1, X, W, 1, RW, 1, IW, 1, INFO ) 00347 CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK ) 00348 INFOT = 3 00349 CALL CHEEVD( 'N', 'U', -1, A, 1, X, W, 1, RW, 1, IW, 1, INFO ) 00350 CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK ) 00351 INFOT = 5 00352 CALL CHEEVD( 'N', 'U', 2, A, 1, X, W, 3, RW, 2, IW, 1, INFO ) 00353 CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK ) 00354 INFOT = 8 00355 CALL CHEEVD( 'N', 'U', 1, A, 1, X, W, 0, RW, 1, IW, 1, INFO ) 00356 CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK ) 00357 INFOT = 8 00358 CALL CHEEVD( 'N', 'U', 2, A, 2, X, W, 2, RW, 2, IW, 1, INFO ) 00359 CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK ) 00360 INFOT = 8 00361 CALL CHEEVD( 'V', 'U', 2, A, 2, X, W, 3, RW, 25, IW, 12, INFO ) 00362 CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK ) 00363 INFOT = 10 00364 CALL CHEEVD( 'N', 'U', 1, A, 1, X, W, 1, RW, 0, IW, 1, INFO ) 00365 CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK ) 00366 INFOT = 10 00367 CALL CHEEVD( 'N', 'U', 2, A, 2, X, W, 3, RW, 1, IW, 1, INFO ) 00368 CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK ) 00369 INFOT = 10 00370 CALL CHEEVD( 'V', 'U', 2, A, 2, X, W, 8, RW, 18, IW, 12, INFO ) 00371 CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK ) 00372 INFOT = 12 00373 CALL CHEEVD( 'N', 'U', 1, A, 1, X, W, 1, RW, 1, IW, 0, INFO ) 00374 CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK ) 00375 INFOT = 12 00376 CALL CHEEVD( 'V', 'U', 2, A, 2, X, W, 8, RW, 25, IW, 11, INFO ) 00377 CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK ) 00378 NT = NT + 12 00379 * 00380 * CHEEV 00381 * 00382 SRNAMT = 'CHEEV ' 00383 INFOT = 1 00384 CALL CHEEV( '/', 'U', 0, A, 1, X, W, 1, RW, INFO ) 00385 CALL CHKXER( 'CHEEV ', INFOT, NOUT, LERR, OK ) 00386 INFOT = 2 00387 CALL CHEEV( 'N', '/', 0, A, 1, X, W, 1, RW, INFO ) 00388 CALL CHKXER( 'CHEEV ', INFOT, NOUT, LERR, OK ) 00389 INFOT = 3 00390 CALL CHEEV( 'N', 'U', -1, A, 1, X, W, 1, RW, INFO ) 00391 CALL CHKXER( 'CHEEV ', INFOT, NOUT, LERR, OK ) 00392 INFOT = 5 00393 CALL CHEEV( 'N', 'U', 2, A, 1, X, W, 3, RW, INFO ) 00394 CALL CHKXER( 'CHEEV ', INFOT, NOUT, LERR, OK ) 00395 INFOT = 8 00396 CALL CHEEV( 'N', 'U', 2, A, 2, X, W, 2, RW, INFO ) 00397 CALL CHKXER( 'CHEEV ', INFOT, NOUT, LERR, OK ) 00398 NT = NT + 5 00399 * 00400 * CHEEVX 00401 * 00402 SRNAMT = 'CHEEVX' 00403 INFOT = 1 00404 CALL CHEEVX( '/', 'A', 'U', 0, A, 1, 0.0, 0.0, 0, 0, 0.0, M, X, 00405 $ Z, 1, W, 1, RW, IW, I3, INFO ) 00406 CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK ) 00407 INFOT = 2 00408 CALL CHEEVX( 'V', '/', 'U', 0, A, 1, 0.0, 1.0, 1, 0, 0.0, M, X, 00409 $ Z, 1, W, 1, RW, IW, I3, INFO ) 00410 CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK ) 00411 INFOT = 3 00412 CALL CHEEVX( 'V', 'A', '/', 0, A, 1, 0.0, 0.0, 0, 0, 0.0, M, X, 00413 $ Z, 1, W, 1, RW, IW, I3, INFO ) 00414 INFOT = 4 00415 CALL CHEEVX( 'V', 'A', 'U', -1, A, 1, 0.0, 0.0, 0, 0, 0.0, M, 00416 $ X, Z, 1, W, 1, RW, IW, I3, INFO ) 00417 CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK ) 00418 INFOT = 6 00419 CALL CHEEVX( 'V', 'A', 'U', 2, A, 1, 0.0, 0.0, 0, 0, 0.0, M, X, 00420 $ Z, 2, W, 3, RW, IW, I3, INFO ) 00421 CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK ) 00422 INFOT = 8 00423 CALL CHEEVX( 'V', 'V', 'U', 1, A, 1, 0.0, 0.0, 0, 0, 0.0, M, X, 00424 $ Z, 1, W, 1, RW, IW, I3, INFO ) 00425 CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK ) 00426 INFOT = 9 00427 CALL CHEEVX( 'V', 'I', 'U', 1, A, 1, 0.0, 0.0, 0, 0, 0.0, M, X, 00428 $ Z, 1, W, 1, RW, IW, I3, INFO ) 00429 CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK ) 00430 INFOT = 10 00431 CALL CHEEVX( 'V', 'I', 'U', 2, A, 2, 0.0, 0.0, 2, 1, 0.0, M, X, 00432 $ Z, 2, W, 3, RW, IW, I3, INFO ) 00433 CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK ) 00434 INFOT = 15 00435 CALL CHEEVX( 'V', 'A', 'U', 2, A, 2, 0.0, 0.0, 0, 0, 0.0, M, X, 00436 $ Z, 1, W, 3, RW, IW, I3, INFO ) 00437 CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK ) 00438 INFOT = 17 00439 CALL CHEEVX( 'V', 'A', 'U', 2, A, 2, 0.0, 0.0, 0, 0, 0.0, M, X, 00440 $ Z, 2, W, 2, RW, IW, I1, INFO ) 00441 CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK ) 00442 NT = NT + 10 00443 * 00444 * CHEEVR 00445 * 00446 SRNAMT = 'CHEEVR' 00447 N = 1 00448 INFOT = 1 00449 CALL CHEEVR( '/', 'A', 'U', 0, A, 1, 0.0, 0.0, 1, 1, 0.0, M, R, 00450 $ Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N, 00451 $ INFO ) 00452 CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK ) 00453 INFOT = 2 00454 CALL CHEEVR( 'V', '/', 'U', 0, A, 1, 0.0, 0.0, 1, 1, 0.0, M, R, 00455 $ Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N, 00456 $ INFO ) 00457 CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK ) 00458 INFOT = 3 00459 CALL CHEEVR( 'V', 'A', '/', -1, A, 1, 0.0, 0.0, 1, 1, 0.0, M, 00460 $ R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N, 00461 $ INFO ) 00462 CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK ) 00463 INFOT = 4 00464 CALL CHEEVR( 'V', 'A', 'U', -1, A, 1, 0.0, 0.0, 1, 1, 0.0, M, 00465 $ R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N, 00466 $ INFO ) 00467 CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK ) 00468 INFOT = 6 00469 CALL CHEEVR( 'V', 'A', 'U', 2, A, 1, 0.0, 0.0, 1, 1, 0.0, M, R, 00470 $ Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N, 00471 $ INFO ) 00472 CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK ) 00473 INFOT = 8 00474 CALL CHEEVR( 'V', 'V', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0, 00475 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 00476 $ 10*N, INFO ) 00477 CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK ) 00478 INFOT = 9 00479 CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 0, 1, 0.0, 00480 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 00481 $ 10*N, INFO ) 00482 CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK ) 00483 INFOT = 10 00484 * 00485 CALL CHEEVR( 'V', 'I', 'U', 2, A, 2, 0.0E0, 0.0E0, 2, 1, 0.0, 00486 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 00487 $ 10*N, INFO ) 00488 CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK ) 00489 INFOT = 15 00490 CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0, 00491 $ M, R, Z, 0, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 00492 $ 10*N, INFO ) 00493 CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK ) 00494 INFOT = 18 00495 CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0, 00496 $ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ), 00497 $ 10*N, INFO ) 00498 CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK ) 00499 INFOT = 20 00500 CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0, 00501 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N-1, IW( 2*N-1 ), 00502 $ 10*N, INFO ) 00503 CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK ) 00504 INFOT = 22 00505 CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0, 00506 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW, 10*N-1, 00507 $ INFO ) 00508 CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK ) 00509 NT = NT + 12 00510 * 00511 * CHPEVD 00512 * 00513 SRNAMT = 'CHPEVD' 00514 INFOT = 1 00515 CALL CHPEVD( '/', 'U', 0, A, X, Z, 1, W, 1, RW, 1, IW, 1, 00516 $ INFO ) 00517 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00518 INFOT = 2 00519 CALL CHPEVD( 'N', '/', 0, A, X, Z, 1, W, 1, RW, 1, IW, 1, 00520 $ INFO ) 00521 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00522 INFOT = 3 00523 CALL CHPEVD( 'N', 'U', -1, A, X, Z, 1, W, 1, RW, 1, IW, 1, 00524 $ INFO ) 00525 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00526 INFOT = 7 00527 CALL CHPEVD( 'V', 'U', 2, A, X, Z, 1, W, 4, RW, 25, IW, 12, 00528 $ INFO ) 00529 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00530 INFOT = 9 00531 CALL CHPEVD( 'N', 'U', 1, A, X, Z, 1, W, 0, RW, 1, IW, 1, 00532 $ INFO ) 00533 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00534 INFOT = 9 00535 CALL CHPEVD( 'N', 'U', 2, A, X, Z, 2, W, 1, RW, 2, IW, 1, 00536 $ INFO ) 00537 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00538 INFOT = 9 00539 CALL CHPEVD( 'V', 'U', 2, A, X, Z, 2, W, 2, RW, 25, IW, 12, 00540 $ INFO ) 00541 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00542 INFOT = 11 00543 CALL CHPEVD( 'N', 'U', 1, A, X, Z, 1, W, 1, RW, 0, IW, 1, 00544 $ INFO ) 00545 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00546 INFOT = 11 00547 CALL CHPEVD( 'N', 'U', 2, A, X, Z, 2, W, 2, RW, 1, IW, 1, 00548 $ INFO ) 00549 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00550 INFOT = 11 00551 CALL CHPEVD( 'V', 'U', 2, A, X, Z, 2, W, 4, RW, 18, IW, 12, 00552 $ INFO ) 00553 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00554 INFOT = 13 00555 CALL CHPEVD( 'N', 'U', 1, A, X, Z, 1, W, 1, RW, 1, IW, 0, 00556 $ INFO ) 00557 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00558 INFOT = 13 00559 CALL CHPEVD( 'N', 'U', 2, A, X, Z, 2, W, 2, RW, 2, IW, 0, 00560 $ INFO ) 00561 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00562 INFOT = 13 00563 CALL CHPEVD( 'V', 'U', 2, A, X, Z, 2, W, 4, RW, 25, IW, 2, 00564 $ INFO ) 00565 CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK ) 00566 NT = NT + 13 00567 * 00568 * CHPEV 00569 * 00570 SRNAMT = 'CHPEV ' 00571 INFOT = 1 00572 CALL CHPEV( '/', 'U', 0, A, X, Z, 1, W, RW, INFO ) 00573 CALL CHKXER( 'CHPEV ', INFOT, NOUT, LERR, OK ) 00574 INFOT = 2 00575 CALL CHPEV( 'N', '/', 0, A, X, Z, 1, W, RW, INFO ) 00576 CALL CHKXER( 'CHPEV ', INFOT, NOUT, LERR, OK ) 00577 INFOT = 3 00578 CALL CHPEV( 'N', 'U', -1, A, X, Z, 1, W, RW, INFO ) 00579 CALL CHKXER( 'CHPEV ', INFOT, NOUT, LERR, OK ) 00580 INFOT = 7 00581 CALL CHPEV( 'V', 'U', 2, A, X, Z, 1, W, RW, INFO ) 00582 CALL CHKXER( 'CHPEV ', INFOT, NOUT, LERR, OK ) 00583 NT = NT + 4 00584 * 00585 * CHPEVX 00586 * 00587 SRNAMT = 'CHPEVX' 00588 INFOT = 1 00589 CALL CHPEVX( '/', 'A', 'U', 0, A, 0.0, 0.0, 0, 0, 0.0, M, X, Z, 00590 $ 1, W, RW, IW, I3, INFO ) 00591 CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK ) 00592 INFOT = 2 00593 CALL CHPEVX( 'V', '/', 'U', 0, A, 0.0, 1.0, 1, 0, 0.0, M, X, Z, 00594 $ 1, W, RW, IW, I3, INFO ) 00595 CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK ) 00596 INFOT = 3 00597 CALL CHPEVX( 'V', 'A', '/', 0, A, 0.0, 0.0, 0, 0, 0.0, M, X, Z, 00598 $ 1, W, RW, IW, I3, INFO ) 00599 CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK ) 00600 INFOT = 4 00601 CALL CHPEVX( 'V', 'A', 'U', -1, A, 0.0, 0.0, 0, 0, 0.0, M, X, 00602 $ Z, 1, W, RW, IW, I3, INFO ) 00603 CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK ) 00604 INFOT = 7 00605 CALL CHPEVX( 'V', 'V', 'U', 1, A, 0.0, 0.0, 0, 0, 0.0, M, X, Z, 00606 $ 1, W, RW, IW, I3, INFO ) 00607 CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK ) 00608 INFOT = 8 00609 CALL CHPEVX( 'V', 'I', 'U', 1, A, 0.0, 0.0, 0, 0, 0.0, M, X, Z, 00610 $ 1, W, RW, IW, I3, INFO ) 00611 CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK ) 00612 INFOT = 9 00613 CALL CHPEVX( 'V', 'I', 'U', 2, A, 0.0, 0.0, 2, 1, 0.0, M, X, Z, 00614 $ 2, W, RW, IW, I3, INFO ) 00615 CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK ) 00616 INFOT = 14 00617 CALL CHPEVX( 'V', 'A', 'U', 2, A, 0.0, 0.0, 0, 0, 0.0, M, X, Z, 00618 $ 1, W, RW, IW, I3, INFO ) 00619 CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK ) 00620 NT = NT + 8 00621 * 00622 * Test error exits for the HB path. 00623 * 00624 ELSE IF( LSAMEN( 2, C2, 'HB' ) ) THEN 00625 * 00626 * CHBTRD 00627 * 00628 SRNAMT = 'CHBTRD' 00629 INFOT = 1 00630 CALL CHBTRD( '/', 'U', 0, 0, A, 1, D, E, Z, 1, W, INFO ) 00631 CALL CHKXER( 'CHBTRD', INFOT, NOUT, LERR, OK ) 00632 INFOT = 2 00633 CALL CHBTRD( 'N', '/', 0, 0, A, 1, D, E, Z, 1, W, INFO ) 00634 CALL CHKXER( 'CHBTRD', INFOT, NOUT, LERR, OK ) 00635 INFOT = 3 00636 CALL CHBTRD( 'N', 'U', -1, 0, A, 1, D, E, Z, 1, W, INFO ) 00637 CALL CHKXER( 'CHBTRD', INFOT, NOUT, LERR, OK ) 00638 INFOT = 4 00639 CALL CHBTRD( 'N', 'U', 0, -1, A, 1, D, E, Z, 1, W, INFO ) 00640 CALL CHKXER( 'CHBTRD', INFOT, NOUT, LERR, OK ) 00641 INFOT = 6 00642 CALL CHBTRD( 'N', 'U', 1, 1, A, 1, D, E, Z, 1, W, INFO ) 00643 CALL CHKXER( 'CHBTRD', INFOT, NOUT, LERR, OK ) 00644 INFOT = 10 00645 CALL CHBTRD( 'V', 'U', 2, 0, A, 1, D, E, Z, 1, W, INFO ) 00646 CALL CHKXER( 'CHBTRD', INFOT, NOUT, LERR, OK ) 00647 NT = NT + 6 00648 * 00649 * CHBEVD 00650 * 00651 SRNAMT = 'CHBEVD' 00652 INFOT = 1 00653 CALL CHBEVD( '/', 'U', 0, 0, A, 1, X, Z, 1, W, 1, RW, 1, IW, 1, 00654 $ INFO ) 00655 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00656 INFOT = 2 00657 CALL CHBEVD( 'N', '/', 0, 0, A, 1, X, Z, 1, W, 1, RW, 1, IW, 1, 00658 $ INFO ) 00659 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00660 INFOT = 3 00661 CALL CHBEVD( 'N', 'U', -1, 0, A, 1, X, Z, 1, W, 1, RW, 1, IW, 00662 $ 1, INFO ) 00663 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00664 INFOT = 4 00665 CALL CHBEVD( 'N', 'U', 0, -1, A, 1, X, Z, 1, W, 1, RW, 1, IW, 00666 $ 1, INFO ) 00667 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00668 INFOT = 6 00669 CALL CHBEVD( 'N', 'U', 2, 1, A, 1, X, Z, 1, W, 2, RW, 2, IW, 1, 00670 $ INFO ) 00671 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00672 INFOT = 9 00673 CALL CHBEVD( 'V', 'U', 2, 1, A, 2, X, Z, 1, W, 8, RW, 25, IW, 00674 $ 12, INFO ) 00675 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00676 INFOT = 11 00677 CALL CHBEVD( 'N', 'U', 1, 0, A, 1, X, Z, 1, W, 0, RW, 1, IW, 1, 00678 $ INFO ) 00679 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00680 INFOT = 11 00681 CALL CHBEVD( 'N', 'U', 2, 1, A, 2, X, Z, 2, W, 1, RW, 2, IW, 1, 00682 $ INFO ) 00683 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00684 INFOT = 11 00685 CALL CHBEVD( 'V', 'U', 2, 1, A, 2, X, Z, 2, W, 2, RW, 25, IW, 00686 $ 12, INFO ) 00687 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00688 INFOT = 13 00689 CALL CHBEVD( 'N', 'U', 1, 0, A, 1, X, Z, 1, W, 1, RW, 0, IW, 1, 00690 $ INFO ) 00691 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00692 INFOT = 13 00693 CALL CHBEVD( 'N', 'U', 2, 1, A, 2, X, Z, 2, W, 2, RW, 1, IW, 1, 00694 $ INFO ) 00695 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00696 INFOT = 13 00697 CALL CHBEVD( 'V', 'U', 2, 1, A, 2, X, Z, 2, W, 8, RW, 2, IW, 00698 $ 12, INFO ) 00699 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00700 INFOT = 15 00701 CALL CHBEVD( 'N', 'U', 1, 0, A, 1, X, Z, 1, W, 1, RW, 1, IW, 0, 00702 $ INFO ) 00703 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00704 INFOT = 15 00705 CALL CHBEVD( 'N', 'U', 2, 1, A, 2, X, Z, 2, W, 2, RW, 2, IW, 0, 00706 $ INFO ) 00707 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00708 INFOT = 15 00709 CALL CHBEVD( 'V', 'U', 2, 1, A, 2, X, Z, 2, W, 8, RW, 25, IW, 00710 $ 2, INFO ) 00711 CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK ) 00712 NT = NT + 15 00713 * 00714 * CHBEV 00715 * 00716 SRNAMT = 'CHBEV ' 00717 INFOT = 1 00718 CALL CHBEV( '/', 'U', 0, 0, A, 1, X, Z, 1, W, RW, INFO ) 00719 CALL CHKXER( 'CHBEV ', INFOT, NOUT, LERR, OK ) 00720 INFOT = 2 00721 CALL CHBEV( 'N', '/', 0, 0, A, 1, X, Z, 1, W, RW, INFO ) 00722 CALL CHKXER( 'CHBEV ', INFOT, NOUT, LERR, OK ) 00723 INFOT = 3 00724 CALL CHBEV( 'N', 'U', -1, 0, A, 1, X, Z, 1, W, RW, INFO ) 00725 CALL CHKXER( 'CHBEV ', INFOT, NOUT, LERR, OK ) 00726 INFOT = 4 00727 CALL CHBEV( 'N', 'U', 0, -1, A, 1, X, Z, 1, W, RW, INFO ) 00728 CALL CHKXER( 'CHBEV ', INFOT, NOUT, LERR, OK ) 00729 INFOT = 6 00730 CALL CHBEV( 'N', 'U', 2, 1, A, 1, X, Z, 1, W, RW, INFO ) 00731 CALL CHKXER( 'CHBEV ', INFOT, NOUT, LERR, OK ) 00732 INFOT = 9 00733 CALL CHBEV( 'V', 'U', 2, 0, A, 1, X, Z, 1, W, RW, INFO ) 00734 CALL CHKXER( 'CHBEV ', INFOT, NOUT, LERR, OK ) 00735 NT = NT + 6 00736 * 00737 * CHBEVX 00738 * 00739 SRNAMT = 'CHBEVX' 00740 INFOT = 1 00741 CALL CHBEVX( '/', 'A', 'U', 0, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0, 00742 $ 0.0, M, X, Z, 1, W, RW, IW, I3, INFO ) 00743 CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK ) 00744 INFOT = 2 00745 CALL CHBEVX( 'V', '/', 'U', 0, 0, A, 1, Q, 1, 0.0, 1.0, 1, 0, 00746 $ 0.0, M, X, Z, 1, W, RW, IW, I3, INFO ) 00747 CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK ) 00748 INFOT = 3 00749 CALL CHBEVX( 'V', 'A', '/', 0, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0, 00750 $ 0.0, M, X, Z, 1, W, RW, IW, I3, INFO ) 00751 INFOT = 4 00752 CALL CHBEVX( 'V', 'A', 'U', -1, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0, 00753 $ 0.0, M, X, Z, 1, W, RW, IW, I3, INFO ) 00754 CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK ) 00755 INFOT = 5 00756 CALL CHBEVX( 'V', 'A', 'U', 0, -1, A, 1, Q, 1, 0.0, 0.0, 0, 0, 00757 $ 0.0, M, X, Z, 1, W, RW, IW, I3, INFO ) 00758 CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK ) 00759 INFOT = 7 00760 CALL CHBEVX( 'V', 'A', 'U', 2, 1, A, 1, Q, 2, 0.0, 0.0, 0, 0, 00761 $ 0.0, M, X, Z, 2, W, RW, IW, I3, INFO ) 00762 CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK ) 00763 INFOT = 9 00764 CALL CHBEVX( 'V', 'A', 'U', 2, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0, 00765 $ 0.0, M, X, Z, 2, W, RW, IW, I3, INFO ) 00766 CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK ) 00767 INFOT = 11 00768 CALL CHBEVX( 'V', 'V', 'U', 1, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0, 00769 $ 0.0, M, X, Z, 1, W, RW, IW, I3, INFO ) 00770 CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK ) 00771 INFOT = 12 00772 CALL CHBEVX( 'V', 'I', 'U', 1, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0, 00773 $ 0.0, M, X, Z, 1, W, RW, IW, I3, INFO ) 00774 CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK ) 00775 INFOT = 13 00776 CALL CHBEVX( 'V', 'I', 'U', 1, 0, A, 1, Q, 1, 0.0, 0.0, 1, 2, 00777 $ 0.0, M, X, Z, 1, W, RW, IW, I3, INFO ) 00778 CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK ) 00779 INFOT = 18 00780 CALL CHBEVX( 'V', 'A', 'U', 2, 0, A, 1, Q, 2, 0.0, 0.0, 0, 0, 00781 $ 0.0, M, X, Z, 1, W, RW, IW, I3, INFO ) 00782 CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK ) 00783 NT = NT + 11 00784 END IF 00785 * 00786 * Print a summary line. 00787 * 00788 IF( OK ) THEN 00789 WRITE( NOUT, FMT = 9999 )PATH, NT 00790 ELSE 00791 WRITE( NOUT, FMT = 9998 )PATH 00792 END IF 00793 * 00794 9999 FORMAT( 1X, A3, ' routines passed the tests of the error exits', 00795 $ ' (', I3, ' tests done)' ) 00796 9998 FORMAT( ' *** ', A3, ' routines failed the tests of the error ', 00797 $ 'exits ***' ) 00798 * 00799 RETURN 00800 * 00801 * End of CERRST 00802 * 00803 END