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