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