 |
LAPACK 3.3.1
Linear Algebra PACKage
|
|
LAPACK 3.3.1
Linear Algebra PACKage
|
00001 SUBROUTINE SERRTR( 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 * SERRTR tests the error exits for the REAL triangular 00016 * routines. 00017 * 00018 * Arguments 00019 * ========= 00020 * 00021 * PATH (input) CHARACTER*3 00022 * The LAPACK path name for the routines to be tested. 00023 * 00024 * NUNIT (input) INTEGER 00025 * The unit number for output. 00026 * 00027 * ===================================================================== 00028 * 00029 * .. Parameters .. 00030 INTEGER NMAX 00031 PARAMETER ( NMAX = 2 ) 00032 * .. 00033 * .. Local Scalars .. 00034 CHARACTER*2 C2 00035 INTEGER INFO 00036 REAL RCOND, SCALE 00037 * .. 00038 * .. Local Arrays .. 00039 INTEGER IW( NMAX ) 00040 REAL A( NMAX, NMAX ), B( NMAX ), R1( NMAX ), 00041 $ R2( NMAX ), W( NMAX ), X( NMAX ) 00042 * .. 00043 * .. External Functions .. 00044 LOGICAL LSAMEN 00045 EXTERNAL LSAMEN 00046 * .. 00047 * .. External Subroutines .. 00048 EXTERNAL ALAESM, CHKXER, SLATBS, SLATPS, SLATRS, STBCON, 00049 $ STBRFS, STBTRS, STPCON, STPRFS, STPTRI, STPTRS, 00050 $ STRCON, STRRFS, STRTI2, STRTRI, STRTRS 00051 * .. 00052 * .. Scalars in Common .. 00053 LOGICAL LERR, OK 00054 CHARACTER*32 SRNAMT 00055 INTEGER INFOT, NOUT 00056 * .. 00057 * .. Common blocks .. 00058 COMMON / INFOC / INFOT, NOUT, OK, LERR 00059 COMMON / SRNAMC / SRNAMT 00060 * .. 00061 * .. Executable Statements .. 00062 * 00063 NOUT = NUNIT 00064 WRITE( NOUT, FMT = * ) 00065 C2 = PATH( 2: 3 ) 00066 A( 1, 1 ) = 1. 00067 A( 1, 2 ) = 2. 00068 A( 2, 2 ) = 3. 00069 A( 2, 1 ) = 4. 00070 OK = .TRUE. 00071 * 00072 IF( LSAMEN( 2, C2, 'TR' ) ) THEN 00073 * 00074 * Test error exits for the general triangular routines. 00075 * 00076 * STRTRI 00077 * 00078 SRNAMT = 'STRTRI' 00079 INFOT = 1 00080 CALL STRTRI( '/', 'N', 0, A, 1, INFO ) 00081 CALL CHKXER( 'STRTRI', INFOT, NOUT, LERR, OK ) 00082 INFOT = 2 00083 CALL STRTRI( 'U', '/', 0, A, 1, INFO ) 00084 CALL CHKXER( 'STRTRI', INFOT, NOUT, LERR, OK ) 00085 INFOT = 3 00086 CALL STRTRI( 'U', 'N', -1, A, 1, INFO ) 00087 CALL CHKXER( 'STRTRI', INFOT, NOUT, LERR, OK ) 00088 INFOT = 5 00089 CALL STRTRI( 'U', 'N', 2, A, 1, INFO ) 00090 CALL CHKXER( 'STRTRI', INFOT, NOUT, LERR, OK ) 00091 * 00092 * STRTI2 00093 * 00094 SRNAMT = 'STRTI2' 00095 INFOT = 1 00096 CALL STRTI2( '/', 'N', 0, A, 1, INFO ) 00097 CALL CHKXER( 'STRTI2', INFOT, NOUT, LERR, OK ) 00098 INFOT = 2 00099 CALL STRTI2( 'U', '/', 0, A, 1, INFO ) 00100 CALL CHKXER( 'STRTI2', INFOT, NOUT, LERR, OK ) 00101 INFOT = 3 00102 CALL STRTI2( 'U', 'N', -1, A, 1, INFO ) 00103 CALL CHKXER( 'STRTI2', INFOT, NOUT, LERR, OK ) 00104 INFOT = 5 00105 CALL STRTI2( 'U', 'N', 2, A, 1, INFO ) 00106 CALL CHKXER( 'STRTI2', INFOT, NOUT, LERR, OK ) 00107 * 00108 * STRTRS 00109 * 00110 SRNAMT = 'STRTRS' 00111 INFOT = 1 00112 CALL STRTRS( '/', 'N', 'N', 0, 0, A, 1, X, 1, INFO ) 00113 CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK ) 00114 INFOT = 2 00115 CALL STRTRS( 'U', '/', 'N', 0, 0, A, 1, X, 1, INFO ) 00116 CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK ) 00117 INFOT = 3 00118 CALL STRTRS( 'U', 'N', '/', 0, 0, A, 1, X, 1, INFO ) 00119 CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK ) 00120 INFOT = 4 00121 CALL STRTRS( 'U', 'N', 'N', -1, 0, A, 1, X, 1, INFO ) 00122 CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK ) 00123 INFOT = 5 00124 CALL STRTRS( 'U', 'N', 'N', 0, -1, A, 1, X, 1, INFO ) 00125 CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK ) 00126 INFOT = 7 00127 CALL STRTRS( 'U', 'N', 'N', 2, 1, A, 1, X, 2, INFO ) 00128 CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK ) 00129 INFOT = 9 00130 CALL STRTRS( 'U', 'N', 'N', 2, 1, A, 2, X, 1, INFO ) 00131 CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK ) 00132 * 00133 * STRRFS 00134 * 00135 SRNAMT = 'STRRFS' 00136 INFOT = 1 00137 CALL STRRFS( '/', 'N', 'N', 0, 0, A, 1, B, 1, X, 1, R1, R2, W, 00138 $ IW, INFO ) 00139 CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK ) 00140 INFOT = 2 00141 CALL STRRFS( 'U', '/', 'N', 0, 0, A, 1, B, 1, X, 1, R1, R2, W, 00142 $ IW, INFO ) 00143 CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK ) 00144 INFOT = 3 00145 CALL STRRFS( 'U', 'N', '/', 0, 0, A, 1, B, 1, X, 1, R1, R2, W, 00146 $ IW, INFO ) 00147 CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK ) 00148 INFOT = 4 00149 CALL STRRFS( 'U', 'N', 'N', -1, 0, A, 1, B, 1, X, 1, R1, R2, W, 00150 $ IW, INFO ) 00151 CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK ) 00152 INFOT = 5 00153 CALL STRRFS( 'U', 'N', 'N', 0, -1, A, 1, B, 1, X, 1, R1, R2, W, 00154 $ IW, INFO ) 00155 CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK ) 00156 INFOT = 7 00157 CALL STRRFS( 'U', 'N', 'N', 2, 1, A, 1, B, 2, X, 2, R1, R2, W, 00158 $ IW, INFO ) 00159 CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK ) 00160 INFOT = 9 00161 CALL STRRFS( 'U', 'N', 'N', 2, 1, A, 2, B, 1, X, 2, R1, R2, W, 00162 $ IW, INFO ) 00163 CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK ) 00164 INFOT = 11 00165 CALL STRRFS( 'U', 'N', 'N', 2, 1, A, 2, B, 2, X, 1, R1, R2, W, 00166 $ IW, INFO ) 00167 CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK ) 00168 * 00169 * STRCON 00170 * 00171 SRNAMT = 'STRCON' 00172 INFOT = 1 00173 CALL STRCON( '/', 'U', 'N', 0, A, 1, RCOND, W, IW, INFO ) 00174 CALL CHKXER( 'STRCON', INFOT, NOUT, LERR, OK ) 00175 INFOT = 2 00176 CALL STRCON( '1', '/', 'N', 0, A, 1, RCOND, W, IW, INFO ) 00177 CALL CHKXER( 'STRCON', INFOT, NOUT, LERR, OK ) 00178 INFOT = 3 00179 CALL STRCON( '1', 'U', '/', 0, A, 1, RCOND, W, IW, INFO ) 00180 CALL CHKXER( 'STRCON', INFOT, NOUT, LERR, OK ) 00181 INFOT = 4 00182 CALL STRCON( '1', 'U', 'N', -1, A, 1, RCOND, W, IW, INFO ) 00183 CALL CHKXER( 'STRCON', INFOT, NOUT, LERR, OK ) 00184 INFOT = 6 00185 CALL STRCON( '1', 'U', 'N', 2, A, 1, RCOND, W, IW, INFO ) 00186 CALL CHKXER( 'STRCON', INFOT, NOUT, LERR, OK ) 00187 * 00188 * SLATRS 00189 * 00190 SRNAMT = 'SLATRS' 00191 INFOT = 1 00192 CALL SLATRS( '/', 'N', 'N', 'N', 0, A, 1, X, SCALE, W, INFO ) 00193 CALL CHKXER( 'SLATRS', INFOT, NOUT, LERR, OK ) 00194 INFOT = 2 00195 CALL SLATRS( 'U', '/', 'N', 'N', 0, A, 1, X, SCALE, W, INFO ) 00196 CALL CHKXER( 'SLATRS', INFOT, NOUT, LERR, OK ) 00197 INFOT = 3 00198 CALL SLATRS( 'U', 'N', '/', 'N', 0, A, 1, X, SCALE, W, INFO ) 00199 CALL CHKXER( 'SLATRS', INFOT, NOUT, LERR, OK ) 00200 INFOT = 4 00201 CALL SLATRS( 'U', 'N', 'N', '/', 0, A, 1, X, SCALE, W, INFO ) 00202 CALL CHKXER( 'SLATRS', INFOT, NOUT, LERR, OK ) 00203 INFOT = 5 00204 CALL SLATRS( 'U', 'N', 'N', 'N', -1, A, 1, X, SCALE, W, INFO ) 00205 CALL CHKXER( 'SLATRS', INFOT, NOUT, LERR, OK ) 00206 INFOT = 7 00207 CALL SLATRS( 'U', 'N', 'N', 'N', 2, A, 1, X, SCALE, W, INFO ) 00208 CALL CHKXER( 'SLATRS', INFOT, NOUT, LERR, OK ) 00209 * 00210 ELSE IF( LSAMEN( 2, C2, 'TP' ) ) THEN 00211 * 00212 * Test error exits for the packed triangular routines. 00213 * 00214 * STPTRI 00215 * 00216 SRNAMT = 'STPTRI' 00217 INFOT = 1 00218 CALL STPTRI( '/', 'N', 0, A, INFO ) 00219 CALL CHKXER( 'STPTRI', INFOT, NOUT, LERR, OK ) 00220 INFOT = 2 00221 CALL STPTRI( 'U', '/', 0, A, INFO ) 00222 CALL CHKXER( 'STPTRI', INFOT, NOUT, LERR, OK ) 00223 INFOT = 3 00224 CALL STPTRI( 'U', 'N', -1, A, INFO ) 00225 CALL CHKXER( 'STPTRI', INFOT, NOUT, LERR, OK ) 00226 * 00227 * STPTRS 00228 * 00229 SRNAMT = 'STPTRS' 00230 INFOT = 1 00231 CALL STPTRS( '/', 'N', 'N', 0, 0, A, X, 1, INFO ) 00232 CALL CHKXER( 'STPTRS', INFOT, NOUT, LERR, OK ) 00233 INFOT = 2 00234 CALL STPTRS( 'U', '/', 'N', 0, 0, A, X, 1, INFO ) 00235 CALL CHKXER( 'STPTRS', INFOT, NOUT, LERR, OK ) 00236 INFOT = 3 00237 CALL STPTRS( 'U', 'N', '/', 0, 0, A, X, 1, INFO ) 00238 CALL CHKXER( 'STPTRS', INFOT, NOUT, LERR, OK ) 00239 INFOT = 4 00240 CALL STPTRS( 'U', 'N', 'N', -1, 0, A, X, 1, INFO ) 00241 CALL CHKXER( 'STPTRS', INFOT, NOUT, LERR, OK ) 00242 INFOT = 5 00243 CALL STPTRS( 'U', 'N', 'N', 0, -1, A, X, 1, INFO ) 00244 CALL CHKXER( 'STPTRS', INFOT, NOUT, LERR, OK ) 00245 INFOT = 8 00246 CALL STPTRS( 'U', 'N', 'N', 2, 1, A, X, 1, INFO ) 00247 CALL CHKXER( 'STPTRS', INFOT, NOUT, LERR, OK ) 00248 * 00249 * STPRFS 00250 * 00251 SRNAMT = 'STPRFS' 00252 INFOT = 1 00253 CALL STPRFS( '/', 'N', 'N', 0, 0, A, B, 1, X, 1, R1, R2, W, IW, 00254 $ INFO ) 00255 CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK ) 00256 INFOT = 2 00257 CALL STPRFS( 'U', '/', 'N', 0, 0, A, B, 1, X, 1, R1, R2, W, IW, 00258 $ INFO ) 00259 CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK ) 00260 INFOT = 3 00261 CALL STPRFS( 'U', 'N', '/', 0, 0, A, B, 1, X, 1, R1, R2, W, IW, 00262 $ INFO ) 00263 CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK ) 00264 INFOT = 4 00265 CALL STPRFS( 'U', 'N', 'N', -1, 0, A, B, 1, X, 1, R1, R2, W, 00266 $ IW, INFO ) 00267 CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK ) 00268 INFOT = 5 00269 CALL STPRFS( 'U', 'N', 'N', 0, -1, A, B, 1, X, 1, R1, R2, W, 00270 $ IW, INFO ) 00271 CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK ) 00272 INFOT = 8 00273 CALL STPRFS( 'U', 'N', 'N', 2, 1, A, B, 1, X, 2, R1, R2, W, IW, 00274 $ INFO ) 00275 CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK ) 00276 INFOT = 10 00277 CALL STPRFS( 'U', 'N', 'N', 2, 1, A, B, 2, X, 1, R1, R2, W, IW, 00278 $ INFO ) 00279 CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK ) 00280 * 00281 * STPCON 00282 * 00283 SRNAMT = 'STPCON' 00284 INFOT = 1 00285 CALL STPCON( '/', 'U', 'N', 0, A, RCOND, W, IW, INFO ) 00286 CALL CHKXER( 'STPCON', INFOT, NOUT, LERR, OK ) 00287 INFOT = 2 00288 CALL STPCON( '1', '/', 'N', 0, A, RCOND, W, IW, INFO ) 00289 CALL CHKXER( 'STPCON', INFOT, NOUT, LERR, OK ) 00290 INFOT = 3 00291 CALL STPCON( '1', 'U', '/', 0, A, RCOND, W, IW, INFO ) 00292 CALL CHKXER( 'STPCON', INFOT, NOUT, LERR, OK ) 00293 INFOT = 4 00294 CALL STPCON( '1', 'U', 'N', -1, A, RCOND, W, IW, INFO ) 00295 CALL CHKXER( 'STPCON', INFOT, NOUT, LERR, OK ) 00296 * 00297 * SLATPS 00298 * 00299 SRNAMT = 'SLATPS' 00300 INFOT = 1 00301 CALL SLATPS( '/', 'N', 'N', 'N', 0, A, X, SCALE, W, INFO ) 00302 CALL CHKXER( 'SLATPS', INFOT, NOUT, LERR, OK ) 00303 INFOT = 2 00304 CALL SLATPS( 'U', '/', 'N', 'N', 0, A, X, SCALE, W, INFO ) 00305 CALL CHKXER( 'SLATPS', INFOT, NOUT, LERR, OK ) 00306 INFOT = 3 00307 CALL SLATPS( 'U', 'N', '/', 'N', 0, A, X, SCALE, W, INFO ) 00308 CALL CHKXER( 'SLATPS', INFOT, NOUT, LERR, OK ) 00309 INFOT = 4 00310 CALL SLATPS( 'U', 'N', 'N', '/', 0, A, X, SCALE, W, INFO ) 00311 CALL CHKXER( 'SLATPS', INFOT, NOUT, LERR, OK ) 00312 INFOT = 5 00313 CALL SLATPS( 'U', 'N', 'N', 'N', -1, A, X, SCALE, W, INFO ) 00314 CALL CHKXER( 'SLATPS', INFOT, NOUT, LERR, OK ) 00315 * 00316 ELSE IF( LSAMEN( 2, C2, 'TB' ) ) THEN 00317 * 00318 * Test error exits for the banded triangular routines. 00319 * 00320 * STBTRS 00321 * 00322 SRNAMT = 'STBTRS' 00323 INFOT = 1 00324 CALL STBTRS( '/', 'N', 'N', 0, 0, 0, A, 1, X, 1, INFO ) 00325 CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK ) 00326 INFOT = 2 00327 CALL STBTRS( 'U', '/', 'N', 0, 0, 0, A, 1, X, 1, INFO ) 00328 CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK ) 00329 INFOT = 3 00330 CALL STBTRS( 'U', 'N', '/', 0, 0, 0, A, 1, X, 1, INFO ) 00331 CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK ) 00332 INFOT = 4 00333 CALL STBTRS( 'U', 'N', 'N', -1, 0, 0, A, 1, X, 1, INFO ) 00334 CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK ) 00335 INFOT = 5 00336 CALL STBTRS( 'U', 'N', 'N', 0, -1, 0, A, 1, X, 1, INFO ) 00337 CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK ) 00338 INFOT = 6 00339 CALL STBTRS( 'U', 'N', 'N', 0, 0, -1, A, 1, X, 1, INFO ) 00340 CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK ) 00341 INFOT = 8 00342 CALL STBTRS( 'U', 'N', 'N', 2, 1, 1, A, 1, X, 2, INFO ) 00343 CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK ) 00344 INFOT = 10 00345 CALL STBTRS( 'U', 'N', 'N', 2, 0, 1, A, 1, X, 1, INFO ) 00346 CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK ) 00347 * 00348 * STBRFS 00349 * 00350 SRNAMT = 'STBRFS' 00351 INFOT = 1 00352 CALL STBRFS( '/', 'N', 'N', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2, 00353 $ W, IW, INFO ) 00354 CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK ) 00355 INFOT = 2 00356 CALL STBRFS( 'U', '/', 'N', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2, 00357 $ W, IW, INFO ) 00358 CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK ) 00359 INFOT = 3 00360 CALL STBRFS( 'U', 'N', '/', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2, 00361 $ W, IW, INFO ) 00362 CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK ) 00363 INFOT = 4 00364 CALL STBRFS( 'U', 'N', 'N', -1, 0, 0, A, 1, B, 1, X, 1, R1, R2, 00365 $ W, IW, INFO ) 00366 CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK ) 00367 INFOT = 5 00368 CALL STBRFS( 'U', 'N', 'N', 0, -1, 0, A, 1, B, 1, X, 1, R1, R2, 00369 $ W, IW, INFO ) 00370 CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK ) 00371 INFOT = 6 00372 CALL STBRFS( 'U', 'N', 'N', 0, 0, -1, A, 1, B, 1, X, 1, R1, R2, 00373 $ W, IW, INFO ) 00374 CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK ) 00375 INFOT = 8 00376 CALL STBRFS( 'U', 'N', 'N', 2, 1, 1, A, 1, B, 2, X, 2, R1, R2, 00377 $ W, IW, INFO ) 00378 CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK ) 00379 INFOT = 10 00380 CALL STBRFS( 'U', 'N', 'N', 2, 1, 1, A, 2, B, 1, X, 2, R1, R2, 00381 $ W, IW, INFO ) 00382 CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK ) 00383 INFOT = 12 00384 CALL STBRFS( 'U', 'N', 'N', 2, 1, 1, A, 2, B, 2, X, 1, R1, R2, 00385 $ W, IW, INFO ) 00386 CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK ) 00387 * 00388 * STBCON 00389 * 00390 SRNAMT = 'STBCON' 00391 INFOT = 1 00392 CALL STBCON( '/', 'U', 'N', 0, 0, A, 1, RCOND, W, IW, INFO ) 00393 CALL CHKXER( 'STBCON', INFOT, NOUT, LERR, OK ) 00394 INFOT = 2 00395 CALL STBCON( '1', '/', 'N', 0, 0, A, 1, RCOND, W, IW, INFO ) 00396 CALL CHKXER( 'STBCON', INFOT, NOUT, LERR, OK ) 00397 INFOT = 3 00398 CALL STBCON( '1', 'U', '/', 0, 0, A, 1, RCOND, W, IW, INFO ) 00399 CALL CHKXER( 'STBCON', INFOT, NOUT, LERR, OK ) 00400 INFOT = 4 00401 CALL STBCON( '1', 'U', 'N', -1, 0, A, 1, RCOND, W, IW, INFO ) 00402 CALL CHKXER( 'STBCON', INFOT, NOUT, LERR, OK ) 00403 INFOT = 5 00404 CALL STBCON( '1', 'U', 'N', 0, -1, A, 1, RCOND, W, IW, INFO ) 00405 CALL CHKXER( 'STBCON', INFOT, NOUT, LERR, OK ) 00406 INFOT = 7 00407 CALL STBCON( '1', 'U', 'N', 2, 1, A, 1, RCOND, W, IW, INFO ) 00408 CALL CHKXER( 'STBCON', INFOT, NOUT, LERR, OK ) 00409 * 00410 * SLATBS 00411 * 00412 SRNAMT = 'SLATBS' 00413 INFOT = 1 00414 CALL SLATBS( '/', 'N', 'N', 'N', 0, 0, A, 1, X, SCALE, W, 00415 $ INFO ) 00416 CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK ) 00417 INFOT = 2 00418 CALL SLATBS( 'U', '/', 'N', 'N', 0, 0, A, 1, X, SCALE, W, 00419 $ INFO ) 00420 CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK ) 00421 INFOT = 3 00422 CALL SLATBS( 'U', 'N', '/', 'N', 0, 0, A, 1, X, SCALE, W, 00423 $ INFO ) 00424 CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK ) 00425 INFOT = 4 00426 CALL SLATBS( 'U', 'N', 'N', '/', 0, 0, A, 1, X, SCALE, W, 00427 $ INFO ) 00428 CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK ) 00429 INFOT = 5 00430 CALL SLATBS( 'U', 'N', 'N', 'N', -1, 0, A, 1, X, SCALE, W, 00431 $ INFO ) 00432 CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK ) 00433 INFOT = 6 00434 CALL SLATBS( 'U', 'N', 'N', 'N', 1, -1, A, 1, X, SCALE, W, 00435 $ INFO ) 00436 CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK ) 00437 INFOT = 8 00438 CALL SLATBS( 'U', 'N', 'N', 'N', 2, 1, A, 1, X, SCALE, W, 00439 $ INFO ) 00440 CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK ) 00441 END IF 00442 * 00443 * Print a summary line. 00444 * 00445 CALL ALAESM( PATH, OK, NOUT ) 00446 * 00447 RETURN 00448 * 00449 * End of SERRTR 00450 * 00451 END
1.7.3 
