 |
LAPACK 3.3.1
Linear Algebra PACKage
|
|
LAPACK 3.3.1
Linear Algebra PACKage
|
00001 SUBROUTINE ZERRTR( 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 * ZERRTR tests the error exits for the COMPLEX*16 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 DOUBLE PRECISION RCOND, SCALE 00036 * .. 00037 * .. Local Arrays .. 00038 DOUBLE PRECISION R1( NMAX ), R2( NMAX ), RW( NMAX ) 00039 COMPLEX*16 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, ZLATBS, ZLATPS, ZLATRS, ZTBCON, 00048 $ ZTBRFS, ZTBTRS, ZTPCON, ZTPRFS, ZTPTRI, ZTPTRS, 00049 $ ZTRCON, ZTRRFS, ZTRTI2, ZTRTRI, ZTRTRS 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.D0 00066 A( 1, 2 ) = 2.D0 00067 A( 2, 2 ) = 3.D0 00068 A( 2, 1 ) = 4.D0 00069 OK = .TRUE. 00070 * 00071 * Test error exits for the general triangular routines. 00072 * 00073 IF( LSAMEN( 2, C2, 'TR' ) ) THEN 00074 * 00075 * ZTRTRI 00076 * 00077 SRNAMT = 'ZTRTRI' 00078 INFOT = 1 00079 CALL ZTRTRI( '/', 'N', 0, A, 1, INFO ) 00080 CALL CHKXER( 'ZTRTRI', INFOT, NOUT, LERR, OK ) 00081 INFOT = 2 00082 CALL ZTRTRI( 'U', '/', 0, A, 1, INFO ) 00083 CALL CHKXER( 'ZTRTRI', INFOT, NOUT, LERR, OK ) 00084 INFOT = 3 00085 CALL ZTRTRI( 'U', 'N', -1, A, 1, INFO ) 00086 CALL CHKXER( 'ZTRTRI', INFOT, NOUT, LERR, OK ) 00087 INFOT = 5 00088 CALL ZTRTRI( 'U', 'N', 2, A, 1, INFO ) 00089 CALL CHKXER( 'ZTRTRI', INFOT, NOUT, LERR, OK ) 00090 * 00091 * ZTRTI2 00092 * 00093 SRNAMT = 'ZTRTI2' 00094 INFOT = 1 00095 CALL ZTRTI2( '/', 'N', 0, A, 1, INFO ) 00096 CALL CHKXER( 'ZTRTI2', INFOT, NOUT, LERR, OK ) 00097 INFOT = 2 00098 CALL ZTRTI2( 'U', '/', 0, A, 1, INFO ) 00099 CALL CHKXER( 'ZTRTI2', INFOT, NOUT, LERR, OK ) 00100 INFOT = 3 00101 CALL ZTRTI2( 'U', 'N', -1, A, 1, INFO ) 00102 CALL CHKXER( 'ZTRTI2', INFOT, NOUT, LERR, OK ) 00103 INFOT = 5 00104 CALL ZTRTI2( 'U', 'N', 2, A, 1, INFO ) 00105 CALL CHKXER( 'ZTRTI2', INFOT, NOUT, LERR, OK ) 00106 * 00107 * 00108 * ZTRTRS 00109 * 00110 SRNAMT = 'ZTRTRS' 00111 INFOT = 1 00112 CALL ZTRTRS( '/', 'N', 'N', 0, 0, A, 1, X, 1, INFO ) 00113 CALL CHKXER( 'ZTRTRS', INFOT, NOUT, LERR, OK ) 00114 INFOT = 2 00115 CALL ZTRTRS( 'U', '/', 'N', 0, 0, A, 1, X, 1, INFO ) 00116 CALL CHKXER( 'ZTRTRS', INFOT, NOUT, LERR, OK ) 00117 INFOT = 3 00118 CALL ZTRTRS( 'U', 'N', '/', 0, 0, A, 1, X, 1, INFO ) 00119 CALL CHKXER( 'ZTRTRS', INFOT, NOUT, LERR, OK ) 00120 INFOT = 4 00121 CALL ZTRTRS( 'U', 'N', 'N', -1, 0, A, 1, X, 1, INFO ) 00122 CALL CHKXER( 'ZTRTRS', INFOT, NOUT, LERR, OK ) 00123 INFOT = 5 00124 CALL ZTRTRS( 'U', 'N', 'N', 0, -1, A, 1, X, 1, INFO ) 00125 CALL CHKXER( 'ZTRTRS', INFOT, NOUT, LERR, OK ) 00126 INFOT = 7 00127 * 00128 * ZTRRFS 00129 * 00130 SRNAMT = 'ZTRRFS' 00131 INFOT = 1 00132 CALL ZTRRFS( '/', 'N', 'N', 0, 0, A, 1, B, 1, X, 1, R1, R2, W, 00133 $ RW, INFO ) 00134 CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK ) 00135 INFOT = 2 00136 CALL ZTRRFS( 'U', '/', 'N', 0, 0, A, 1, B, 1, X, 1, R1, R2, W, 00137 $ RW, INFO ) 00138 CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK ) 00139 INFOT = 3 00140 CALL ZTRRFS( 'U', 'N', '/', 0, 0, A, 1, B, 1, X, 1, R1, R2, W, 00141 $ RW, INFO ) 00142 CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK ) 00143 INFOT = 4 00144 CALL ZTRRFS( 'U', 'N', 'N', -1, 0, A, 1, B, 1, X, 1, R1, R2, W, 00145 $ RW, INFO ) 00146 CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK ) 00147 INFOT = 5 00148 CALL ZTRRFS( 'U', 'N', 'N', 0, -1, A, 1, B, 1, X, 1, R1, R2, W, 00149 $ RW, INFO ) 00150 CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK ) 00151 INFOT = 7 00152 CALL ZTRRFS( 'U', 'N', 'N', 2, 1, A, 1, B, 2, X, 2, R1, R2, W, 00153 $ RW, INFO ) 00154 CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK ) 00155 INFOT = 9 00156 CALL ZTRRFS( 'U', 'N', 'N', 2, 1, A, 2, B, 1, X, 2, R1, R2, W, 00157 $ RW, INFO ) 00158 CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK ) 00159 INFOT = 11 00160 CALL ZTRRFS( 'U', 'N', 'N', 2, 1, A, 2, B, 2, X, 1, R1, R2, W, 00161 $ RW, INFO ) 00162 CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK ) 00163 * 00164 * ZTRCON 00165 * 00166 SRNAMT = 'ZTRCON' 00167 INFOT = 1 00168 CALL ZTRCON( '/', 'U', 'N', 0, A, 1, RCOND, W, RW, INFO ) 00169 CALL CHKXER( 'ZTRCON', INFOT, NOUT, LERR, OK ) 00170 INFOT = 2 00171 CALL ZTRCON( '1', '/', 'N', 0, A, 1, RCOND, W, RW, INFO ) 00172 CALL CHKXER( 'ZTRCON', INFOT, NOUT, LERR, OK ) 00173 INFOT = 3 00174 CALL ZTRCON( '1', 'U', '/', 0, A, 1, RCOND, W, RW, INFO ) 00175 CALL CHKXER( 'ZTRCON', INFOT, NOUT, LERR, OK ) 00176 INFOT = 4 00177 CALL ZTRCON( '1', 'U', 'N', -1, A, 1, RCOND, W, RW, INFO ) 00178 CALL CHKXER( 'ZTRCON', INFOT, NOUT, LERR, OK ) 00179 INFOT = 6 00180 CALL ZTRCON( '1', 'U', 'N', 2, A, 1, RCOND, W, RW, INFO ) 00181 CALL CHKXER( 'ZTRCON', INFOT, NOUT, LERR, OK ) 00182 * 00183 * ZLATRS 00184 * 00185 SRNAMT = 'ZLATRS' 00186 INFOT = 1 00187 CALL ZLATRS( '/', 'N', 'N', 'N', 0, A, 1, X, SCALE, RW, INFO ) 00188 CALL CHKXER( 'ZLATRS', INFOT, NOUT, LERR, OK ) 00189 INFOT = 2 00190 CALL ZLATRS( 'U', '/', 'N', 'N', 0, A, 1, X, SCALE, RW, INFO ) 00191 CALL CHKXER( 'ZLATRS', INFOT, NOUT, LERR, OK ) 00192 INFOT = 3 00193 CALL ZLATRS( 'U', 'N', '/', 'N', 0, A, 1, X, SCALE, RW, INFO ) 00194 CALL CHKXER( 'ZLATRS', INFOT, NOUT, LERR, OK ) 00195 INFOT = 4 00196 CALL ZLATRS( 'U', 'N', 'N', '/', 0, A, 1, X, SCALE, RW, INFO ) 00197 CALL CHKXER( 'ZLATRS', INFOT, NOUT, LERR, OK ) 00198 INFOT = 5 00199 CALL ZLATRS( 'U', 'N', 'N', 'N', -1, A, 1, X, SCALE, RW, INFO ) 00200 CALL CHKXER( 'ZLATRS', INFOT, NOUT, LERR, OK ) 00201 INFOT = 7 00202 CALL ZLATRS( 'U', 'N', 'N', 'N', 2, A, 1, X, SCALE, RW, INFO ) 00203 CALL CHKXER( 'ZLATRS', 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 * ZTPTRI 00210 * 00211 SRNAMT = 'ZTPTRI' 00212 INFOT = 1 00213 CALL ZTPTRI( '/', 'N', 0, A, INFO ) 00214 CALL CHKXER( 'ZTPTRI', INFOT, NOUT, LERR, OK ) 00215 INFOT = 2 00216 CALL ZTPTRI( 'U', '/', 0, A, INFO ) 00217 CALL CHKXER( 'ZTPTRI', INFOT, NOUT, LERR, OK ) 00218 INFOT = 3 00219 CALL ZTPTRI( 'U', 'N', -1, A, INFO ) 00220 CALL CHKXER( 'ZTPTRI', INFOT, NOUT, LERR, OK ) 00221 * 00222 * ZTPTRS 00223 * 00224 SRNAMT = 'ZTPTRS' 00225 INFOT = 1 00226 CALL ZTPTRS( '/', 'N', 'N', 0, 0, A, X, 1, INFO ) 00227 CALL CHKXER( 'ZTPTRS', INFOT, NOUT, LERR, OK ) 00228 INFOT = 2 00229 CALL ZTPTRS( 'U', '/', 'N', 0, 0, A, X, 1, INFO ) 00230 CALL CHKXER( 'ZTPTRS', INFOT, NOUT, LERR, OK ) 00231 INFOT = 3 00232 CALL ZTPTRS( 'U', 'N', '/', 0, 0, A, X, 1, INFO ) 00233 CALL CHKXER( 'ZTPTRS', INFOT, NOUT, LERR, OK ) 00234 INFOT = 4 00235 CALL ZTPTRS( 'U', 'N', 'N', -1, 0, A, X, 1, INFO ) 00236 CALL CHKXER( 'ZTPTRS', INFOT, NOUT, LERR, OK ) 00237 INFOT = 5 00238 CALL ZTPTRS( 'U', 'N', 'N', 0, -1, A, X, 1, INFO ) 00239 CALL CHKXER( 'ZTPTRS', INFOT, NOUT, LERR, OK ) 00240 INFOT = 8 00241 CALL ZTPTRS( 'U', 'N', 'N', 2, 1, A, X, 1, INFO ) 00242 CALL CHKXER( 'ZTPTRS', INFOT, NOUT, LERR, OK ) 00243 * 00244 * ZTPRFS 00245 * 00246 SRNAMT = 'ZTPRFS' 00247 INFOT = 1 00248 CALL ZTPRFS( '/', 'N', 'N', 0, 0, A, B, 1, X, 1, R1, R2, W, RW, 00249 $ INFO ) 00250 CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK ) 00251 INFOT = 2 00252 CALL ZTPRFS( 'U', '/', 'N', 0, 0, A, B, 1, X, 1, R1, R2, W, RW, 00253 $ INFO ) 00254 CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK ) 00255 INFOT = 3 00256 CALL ZTPRFS( 'U', 'N', '/', 0, 0, A, B, 1, X, 1, R1, R2, W, RW, 00257 $ INFO ) 00258 CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK ) 00259 INFOT = 4 00260 CALL ZTPRFS( 'U', 'N', 'N', -1, 0, A, B, 1, X, 1, R1, R2, W, 00261 $ RW, INFO ) 00262 CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK ) 00263 INFOT = 5 00264 CALL ZTPRFS( 'U', 'N', 'N', 0, -1, A, B, 1, X, 1, R1, R2, W, 00265 $ RW, INFO ) 00266 CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK ) 00267 INFOT = 8 00268 CALL ZTPRFS( 'U', 'N', 'N', 2, 1, A, B, 1, X, 2, R1, R2, W, RW, 00269 $ INFO ) 00270 CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK ) 00271 INFOT = 10 00272 CALL ZTPRFS( 'U', 'N', 'N', 2, 1, A, B, 2, X, 1, R1, R2, W, RW, 00273 $ INFO ) 00274 CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK ) 00275 * 00276 * ZTPCON 00277 * 00278 SRNAMT = 'ZTPCON' 00279 INFOT = 1 00280 CALL ZTPCON( '/', 'U', 'N', 0, A, RCOND, W, RW, INFO ) 00281 CALL CHKXER( 'ZTPCON', INFOT, NOUT, LERR, OK ) 00282 INFOT = 2 00283 CALL ZTPCON( '1', '/', 'N', 0, A, RCOND, W, RW, INFO ) 00284 CALL CHKXER( 'ZTPCON', INFOT, NOUT, LERR, OK ) 00285 INFOT = 3 00286 CALL ZTPCON( '1', 'U', '/', 0, A, RCOND, W, RW, INFO ) 00287 CALL CHKXER( 'ZTPCON', INFOT, NOUT, LERR, OK ) 00288 INFOT = 4 00289 CALL ZTPCON( '1', 'U', 'N', -1, A, RCOND, W, RW, INFO ) 00290 CALL CHKXER( 'ZTPCON', INFOT, NOUT, LERR, OK ) 00291 * 00292 * ZLATPS 00293 * 00294 SRNAMT = 'ZLATPS' 00295 INFOT = 1 00296 CALL ZLATPS( '/', 'N', 'N', 'N', 0, A, X, SCALE, RW, INFO ) 00297 CALL CHKXER( 'ZLATPS', INFOT, NOUT, LERR, OK ) 00298 INFOT = 2 00299 CALL ZLATPS( 'U', '/', 'N', 'N', 0, A, X, SCALE, RW, INFO ) 00300 CALL CHKXER( 'ZLATPS', INFOT, NOUT, LERR, OK ) 00301 INFOT = 3 00302 CALL ZLATPS( 'U', 'N', '/', 'N', 0, A, X, SCALE, RW, INFO ) 00303 CALL CHKXER( 'ZLATPS', INFOT, NOUT, LERR, OK ) 00304 INFOT = 4 00305 CALL ZLATPS( 'U', 'N', 'N', '/', 0, A, X, SCALE, RW, INFO ) 00306 CALL CHKXER( 'ZLATPS', INFOT, NOUT, LERR, OK ) 00307 INFOT = 5 00308 CALL ZLATPS( 'U', 'N', 'N', 'N', -1, A, X, SCALE, RW, INFO ) 00309 CALL CHKXER( 'ZLATPS', 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 * ZTBTRS 00316 * 00317 SRNAMT = 'ZTBTRS' 00318 INFOT = 1 00319 CALL ZTBTRS( '/', 'N', 'N', 0, 0, 0, A, 1, X, 1, INFO ) 00320 CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK ) 00321 INFOT = 2 00322 CALL ZTBTRS( 'U', '/', 'N', 0, 0, 0, A, 1, X, 1, INFO ) 00323 CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK ) 00324 INFOT = 3 00325 CALL ZTBTRS( 'U', 'N', '/', 0, 0, 0, A, 1, X, 1, INFO ) 00326 CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK ) 00327 INFOT = 4 00328 CALL ZTBTRS( 'U', 'N', 'N', -1, 0, 0, A, 1, X, 1, INFO ) 00329 CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK ) 00330 INFOT = 5 00331 CALL ZTBTRS( 'U', 'N', 'N', 0, -1, 0, A, 1, X, 1, INFO ) 00332 CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK ) 00333 INFOT = 6 00334 CALL ZTBTRS( 'U', 'N', 'N', 0, 0, -1, A, 1, X, 1, INFO ) 00335 CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK ) 00336 INFOT = 8 00337 CALL ZTBTRS( 'U', 'N', 'N', 2, 1, 1, A, 1, X, 2, INFO ) 00338 CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK ) 00339 INFOT = 10 00340 CALL ZTBTRS( 'U', 'N', 'N', 2, 0, 1, A, 1, X, 1, INFO ) 00341 CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK ) 00342 * 00343 * ZTBRFS 00344 * 00345 SRNAMT = 'ZTBRFS' 00346 INFOT = 1 00347 CALL ZTBRFS( '/', 'N', 'N', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2, 00348 $ W, RW, INFO ) 00349 CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK ) 00350 INFOT = 2 00351 CALL ZTBRFS( 'U', '/', 'N', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2, 00352 $ W, RW, INFO ) 00353 CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK ) 00354 INFOT = 3 00355 CALL ZTBRFS( 'U', 'N', '/', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2, 00356 $ W, RW, INFO ) 00357 CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK ) 00358 INFOT = 4 00359 CALL ZTBRFS( 'U', 'N', 'N', -1, 0, 0, A, 1, B, 1, X, 1, R1, R2, 00360 $ W, RW, INFO ) 00361 CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK ) 00362 INFOT = 5 00363 CALL ZTBRFS( 'U', 'N', 'N', 0, -1, 0, A, 1, B, 1, X, 1, R1, R2, 00364 $ W, RW, INFO ) 00365 CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK ) 00366 INFOT = 6 00367 CALL ZTBRFS( 'U', 'N', 'N', 0, 0, -1, A, 1, B, 1, X, 1, R1, R2, 00368 $ W, RW, INFO ) 00369 CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK ) 00370 INFOT = 8 00371 CALL ZTBRFS( 'U', 'N', 'N', 2, 1, 1, A, 1, B, 2, X, 2, R1, R2, 00372 $ W, RW, INFO ) 00373 CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK ) 00374 INFOT = 10 00375 CALL ZTBRFS( 'U', 'N', 'N', 2, 1, 1, A, 2, B, 1, X, 2, R1, R2, 00376 $ W, RW, INFO ) 00377 CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK ) 00378 INFOT = 12 00379 CALL ZTBRFS( 'U', 'N', 'N', 2, 1, 1, A, 2, B, 2, X, 1, R1, R2, 00380 $ W, RW, INFO ) 00381 CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK ) 00382 * 00383 * ZTBCON 00384 * 00385 SRNAMT = 'ZTBCON' 00386 INFOT = 1 00387 CALL ZTBCON( '/', 'U', 'N', 0, 0, A, 1, RCOND, W, RW, INFO ) 00388 CALL CHKXER( 'ZTBCON', INFOT, NOUT, LERR, OK ) 00389 INFOT = 2 00390 CALL ZTBCON( '1', '/', 'N', 0, 0, A, 1, RCOND, W, RW, INFO ) 00391 CALL CHKXER( 'ZTBCON', INFOT, NOUT, LERR, OK ) 00392 INFOT = 3 00393 CALL ZTBCON( '1', 'U', '/', 0, 0, A, 1, RCOND, W, RW, INFO ) 00394 CALL CHKXER( 'ZTBCON', INFOT, NOUT, LERR, OK ) 00395 INFOT = 4 00396 CALL ZTBCON( '1', 'U', 'N', -1, 0, A, 1, RCOND, W, RW, INFO ) 00397 CALL CHKXER( 'ZTBCON', INFOT, NOUT, LERR, OK ) 00398 INFOT = 5 00399 CALL ZTBCON( '1', 'U', 'N', 0, -1, A, 1, RCOND, W, RW, INFO ) 00400 CALL CHKXER( 'ZTBCON', INFOT, NOUT, LERR, OK ) 00401 INFOT = 7 00402 CALL ZTBCON( '1', 'U', 'N', 2, 1, A, 1, RCOND, W, RW, INFO ) 00403 CALL CHKXER( 'ZTBCON', INFOT, NOUT, LERR, OK ) 00404 * 00405 * ZLATBS 00406 * 00407 SRNAMT = 'ZLATBS' 00408 INFOT = 1 00409 CALL ZLATBS( '/', 'N', 'N', 'N', 0, 0, A, 1, X, SCALE, RW, 00410 $ INFO ) 00411 CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK ) 00412 INFOT = 2 00413 CALL ZLATBS( 'U', '/', 'N', 'N', 0, 0, A, 1, X, SCALE, RW, 00414 $ INFO ) 00415 CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK ) 00416 INFOT = 3 00417 CALL ZLATBS( 'U', 'N', '/', 'N', 0, 0, A, 1, X, SCALE, RW, 00418 $ INFO ) 00419 CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK ) 00420 INFOT = 4 00421 CALL ZLATBS( 'U', 'N', 'N', '/', 0, 0, A, 1, X, SCALE, RW, 00422 $ INFO ) 00423 CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK ) 00424 INFOT = 5 00425 CALL ZLATBS( 'U', 'N', 'N', 'N', -1, 0, A, 1, X, SCALE, RW, 00426 $ INFO ) 00427 CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK ) 00428 INFOT = 6 00429 CALL ZLATBS( 'U', 'N', 'N', 'N', 1, -1, A, 1, X, SCALE, RW, 00430 $ INFO ) 00431 CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK ) 00432 INFOT = 8 00433 CALL ZLATBS( 'U', 'N', 'N', 'N', 2, 1, A, 1, X, SCALE, RW, 00434 $ INFO ) 00435 CALL CHKXER( 'ZLATBS', 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 ZERRTR 00445 * 00446 END
1.7.3 
