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