![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b ZERRVX 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 ZERRVX( 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 *> ZERRVX tests the error exits for the COMPLEX*16 driver routines 00025 *> for solving linear systems of equations. 00026 *> \endverbatim 00027 * 00028 * Arguments: 00029 * ========== 00030 * 00031 *> \param[in] PATH 00032 *> \verbatim 00033 *> PATH is CHARACTER*3 00034 *> The LAPACK path name for the routines to be tested. 00035 *> \endverbatim 00036 *> 00037 *> \param[in] NUNIT 00038 *> \verbatim 00039 *> NUNIT is INTEGER 00040 *> The unit number for output. 00041 *> \endverbatim 00042 * 00043 * Authors: 00044 * ======== 00045 * 00046 *> \author Univ. of Tennessee 00047 *> \author Univ. of California Berkeley 00048 *> \author Univ. of Colorado Denver 00049 *> \author NAG Ltd. 00050 * 00051 *> \date April 2012 00052 * 00053 *> \ingroup complex16_lin 00054 * 00055 * ===================================================================== 00056 SUBROUTINE ZERRVX( PATH, NUNIT ) 00057 * 00058 * -- LAPACK test routine (version 3.4.1) -- 00059 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00060 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00061 * April 2012 00062 * 00063 * .. Scalar Arguments .. 00064 CHARACTER*3 PATH 00065 INTEGER NUNIT 00066 * .. 00067 * 00068 * ===================================================================== 00069 * 00070 * .. Parameters .. 00071 INTEGER NMAX 00072 PARAMETER ( NMAX = 4 ) 00073 * .. 00074 * .. Local Scalars .. 00075 CHARACTER EQ 00076 CHARACTER*2 C2 00077 INTEGER I, INFO, J 00078 DOUBLE PRECISION RCOND 00079 * .. 00080 * .. Local Arrays .. 00081 INTEGER IP( NMAX ) 00082 DOUBLE PRECISION C( NMAX ), R( NMAX ), R1( NMAX ), R2( NMAX ), 00083 $ RF( NMAX ), RW( NMAX ) 00084 COMPLEX*16 A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ), 00085 $ W( 2*NMAX ), X( NMAX ) 00086 * .. 00087 * .. External Functions .. 00088 LOGICAL LSAMEN 00089 EXTERNAL LSAMEN 00090 * .. 00091 * .. External Subroutines .. 00092 EXTERNAL CHKXER, ZGBSV, ZGBSVX, ZGESV, ZGESVX, ZGTSV, 00093 $ ZGTSVX, ZHESV, ZHESVX, ZHPSV, ZHPSVX, ZPBSV, 00094 $ ZPBSVX, ZPOSV, ZPOSVX, ZPPSV, ZPPSVX, ZPTSV, 00095 $ ZPTSVX, ZSPSV, ZSPSVX, ZSYSV, 00096 $ ZSYSVX 00097 * .. 00098 * .. Scalars in Common .. 00099 LOGICAL LERR, OK 00100 CHARACTER*32 SRNAMT 00101 INTEGER INFOT, NOUT 00102 * .. 00103 * .. Common blocks .. 00104 COMMON / INFOC / INFOT, NOUT, OK, LERR 00105 COMMON / SRNAMC / SRNAMT 00106 * .. 00107 * .. Intrinsic Functions .. 00108 INTRINSIC DBLE, DCMPLX 00109 * .. 00110 * .. Executable Statements .. 00111 * 00112 NOUT = NUNIT 00113 WRITE( NOUT, FMT = * ) 00114 C2 = PATH( 2: 3 ) 00115 * 00116 * Set the variables to innocuous values. 00117 * 00118 DO 20 J = 1, NMAX 00119 DO 10 I = 1, NMAX 00120 A( I, J ) = DCMPLX( 1.D0 / DBLE( I+J ), 00121 $ -1.D0 / DBLE( I+J ) ) 00122 AF( I, J ) = DCMPLX( 1.D0 / DBLE( I+J ), 00123 $ -1.D0 / DBLE( I+J ) ) 00124 10 CONTINUE 00125 B( J ) = 0.D0 00126 R1( J ) = 0.D0 00127 R2( J ) = 0.D0 00128 W( J ) = 0.D0 00129 X( J ) = 0.D0 00130 C( J ) = 0.D0 00131 R( J ) = 0.D0 00132 IP( J ) = J 00133 20 CONTINUE 00134 EQ = ' ' 00135 OK = .TRUE. 00136 * 00137 IF( LSAMEN( 2, C2, 'GE' ) ) THEN 00138 * 00139 * ZGESV 00140 * 00141 SRNAMT = 'ZGESV ' 00142 INFOT = 1 00143 CALL ZGESV( -1, 0, A, 1, IP, B, 1, INFO ) 00144 CALL CHKXER( 'ZGESV ', INFOT, NOUT, LERR, OK ) 00145 INFOT = 2 00146 CALL ZGESV( 0, -1, A, 1, IP, B, 1, INFO ) 00147 CALL CHKXER( 'ZGESV ', INFOT, NOUT, LERR, OK ) 00148 INFOT = 4 00149 CALL ZGESV( 2, 1, A, 1, IP, B, 2, INFO ) 00150 CALL CHKXER( 'ZGESV ', INFOT, NOUT, LERR, OK ) 00151 INFOT = 7 00152 CALL ZGESV( 2, 1, A, 2, IP, B, 1, INFO ) 00153 CALL CHKXER( 'ZGESV ', INFOT, NOUT, LERR, OK ) 00154 * 00155 * ZGESVX 00156 * 00157 SRNAMT = 'ZGESVX' 00158 INFOT = 1 00159 CALL ZGESVX( '/', 'N', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00160 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00161 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00162 INFOT = 2 00163 CALL ZGESVX( 'N', '/', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00164 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00165 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00166 INFOT = 3 00167 CALL ZGESVX( 'N', 'N', -1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00168 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00169 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00170 INFOT = 4 00171 CALL ZGESVX( 'N', 'N', 0, -1, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00172 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00173 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00174 INFOT = 6 00175 CALL ZGESVX( 'N', 'N', 2, 1, A, 1, AF, 2, IP, EQ, R, C, B, 2, 00176 $ X, 2, RCOND, R1, R2, W, RW, INFO ) 00177 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00178 INFOT = 8 00179 CALL ZGESVX( 'N', 'N', 2, 1, A, 2, AF, 1, IP, EQ, R, C, B, 2, 00180 $ X, 2, RCOND, R1, R2, W, RW, INFO ) 00181 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00182 INFOT = 10 00183 EQ = '/' 00184 CALL ZGESVX( 'F', 'N', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00185 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00186 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00187 INFOT = 11 00188 EQ = 'R' 00189 CALL ZGESVX( 'F', 'N', 1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00190 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00191 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00192 INFOT = 12 00193 EQ = 'C' 00194 CALL ZGESVX( 'F', 'N', 1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00195 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00196 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00197 INFOT = 14 00198 CALL ZGESVX( 'N', 'N', 2, 1, A, 2, AF, 2, IP, EQ, R, C, B, 1, 00199 $ X, 2, RCOND, R1, R2, W, RW, INFO ) 00200 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00201 INFOT = 16 00202 CALL ZGESVX( 'N', 'N', 2, 1, A, 2, AF, 2, IP, EQ, R, C, B, 2, 00203 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00204 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00205 * 00206 ELSE IF( LSAMEN( 2, C2, 'GB' ) ) THEN 00207 * 00208 * ZGBSV 00209 * 00210 SRNAMT = 'ZGBSV ' 00211 INFOT = 1 00212 CALL ZGBSV( -1, 0, 0, 0, A, 1, IP, B, 1, INFO ) 00213 CALL CHKXER( 'ZGBSV ', INFOT, NOUT, LERR, OK ) 00214 INFOT = 2 00215 CALL ZGBSV( 1, -1, 0, 0, A, 1, IP, B, 1, INFO ) 00216 CALL CHKXER( 'ZGBSV ', INFOT, NOUT, LERR, OK ) 00217 INFOT = 3 00218 CALL ZGBSV( 1, 0, -1, 0, A, 1, IP, B, 1, INFO ) 00219 CALL CHKXER( 'ZGBSV ', INFOT, NOUT, LERR, OK ) 00220 INFOT = 4 00221 CALL ZGBSV( 0, 0, 0, -1, A, 1, IP, B, 1, INFO ) 00222 CALL CHKXER( 'ZGBSV ', INFOT, NOUT, LERR, OK ) 00223 INFOT = 6 00224 CALL ZGBSV( 1, 1, 1, 0, A, 3, IP, B, 1, INFO ) 00225 CALL CHKXER( 'ZGBSV ', INFOT, NOUT, LERR, OK ) 00226 INFOT = 9 00227 CALL ZGBSV( 2, 0, 0, 0, A, 1, IP, B, 1, INFO ) 00228 CALL CHKXER( 'ZGBSV ', INFOT, NOUT, LERR, OK ) 00229 * 00230 * ZGBSVX 00231 * 00232 SRNAMT = 'ZGBSVX' 00233 INFOT = 1 00234 CALL ZGBSVX( '/', 'N', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00235 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00236 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00237 INFOT = 2 00238 CALL ZGBSVX( 'N', '/', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00239 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00240 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00241 INFOT = 3 00242 CALL ZGBSVX( 'N', 'N', -1, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00243 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00244 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00245 INFOT = 4 00246 CALL ZGBSVX( 'N', 'N', 1, -1, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00247 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00248 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00249 INFOT = 5 00250 CALL ZGBSVX( 'N', 'N', 1, 0, -1, 0, A, 1, AF, 1, IP, EQ, R, C, 00251 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00252 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00253 INFOT = 6 00254 CALL ZGBSVX( 'N', 'N', 0, 0, 0, -1, A, 1, AF, 1, IP, EQ, R, C, 00255 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00256 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00257 INFOT = 8 00258 CALL ZGBSVX( 'N', 'N', 1, 1, 1, 0, A, 2, AF, 4, IP, EQ, R, C, 00259 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00260 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00261 INFOT = 10 00262 CALL ZGBSVX( 'N', 'N', 1, 1, 1, 0, A, 3, AF, 3, IP, EQ, R, C, 00263 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00264 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00265 INFOT = 12 00266 EQ = '/' 00267 CALL ZGBSVX( 'F', 'N', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00268 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00269 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00270 INFOT = 13 00271 EQ = 'R' 00272 CALL ZGBSVX( 'F', 'N', 1, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00273 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00274 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00275 INFOT = 14 00276 EQ = 'C' 00277 CALL ZGBSVX( 'F', 'N', 1, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00278 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00279 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00280 INFOT = 16 00281 CALL ZGBSVX( 'N', 'N', 2, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00282 $ B, 1, X, 2, RCOND, R1, R2, W, RW, INFO ) 00283 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00284 INFOT = 18 00285 CALL ZGBSVX( 'N', 'N', 2, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00286 $ B, 2, X, 1, RCOND, R1, R2, W, RW, INFO ) 00287 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00288 * 00289 ELSE IF( LSAMEN( 2, C2, 'GT' ) ) THEN 00290 * 00291 * ZGTSV 00292 * 00293 SRNAMT = 'ZGTSV ' 00294 INFOT = 1 00295 CALL ZGTSV( -1, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), B, 1, 00296 $ INFO ) 00297 CALL CHKXER( 'ZGTSV ', INFOT, NOUT, LERR, OK ) 00298 INFOT = 2 00299 CALL ZGTSV( 0, -1, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), B, 1, 00300 $ INFO ) 00301 CALL CHKXER( 'ZGTSV ', INFOT, NOUT, LERR, OK ) 00302 INFOT = 7 00303 CALL ZGTSV( 2, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), B, 1, INFO ) 00304 CALL CHKXER( 'ZGTSV ', INFOT, NOUT, LERR, OK ) 00305 * 00306 * ZGTSVX 00307 * 00308 SRNAMT = 'ZGTSVX' 00309 INFOT = 1 00310 CALL ZGTSVX( '/', 'N', 0, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 00311 $ AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ), 00312 $ IP, B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00313 CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) 00314 INFOT = 2 00315 CALL ZGTSVX( 'N', '/', 0, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 00316 $ AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ), 00317 $ IP, B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00318 CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) 00319 INFOT = 3 00320 CALL ZGTSVX( 'N', 'N', -1, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 00321 $ AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ), 00322 $ IP, B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00323 CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) 00324 INFOT = 4 00325 CALL ZGTSVX( 'N', 'N', 0, -1, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 00326 $ AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ), 00327 $ IP, B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00328 CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) 00329 INFOT = 14 00330 CALL ZGTSVX( 'N', 'N', 2, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 00331 $ AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ), 00332 $ IP, B, 1, X, 2, RCOND, R1, R2, W, RW, INFO ) 00333 CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) 00334 INFOT = 16 00335 CALL ZGTSVX( 'N', 'N', 2, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 00336 $ AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ), 00337 $ IP, B, 2, X, 1, RCOND, R1, R2, W, RW, INFO ) 00338 CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) 00339 * 00340 ELSE IF( LSAMEN( 2, C2, 'PO' ) ) THEN 00341 * 00342 * ZPOSV 00343 * 00344 SRNAMT = 'ZPOSV ' 00345 INFOT = 1 00346 CALL ZPOSV( '/', 0, 0, A, 1, B, 1, INFO ) 00347 CALL CHKXER( 'ZPOSV ', INFOT, NOUT, LERR, OK ) 00348 INFOT = 2 00349 CALL ZPOSV( 'U', -1, 0, A, 1, B, 1, INFO ) 00350 CALL CHKXER( 'ZPOSV ', INFOT, NOUT, LERR, OK ) 00351 INFOT = 3 00352 CALL ZPOSV( 'U', 0, -1, A, 1, B, 1, INFO ) 00353 CALL CHKXER( 'ZPOSV ', INFOT, NOUT, LERR, OK ) 00354 INFOT = 5 00355 CALL ZPOSV( 'U', 2, 0, A, 1, B, 2, INFO ) 00356 CALL CHKXER( 'ZPOSV ', INFOT, NOUT, LERR, OK ) 00357 INFOT = 7 00358 CALL ZPOSV( 'U', 2, 0, A, 2, B, 1, INFO ) 00359 CALL CHKXER( 'ZPOSV ', INFOT, NOUT, LERR, OK ) 00360 * 00361 * ZPOSVX 00362 * 00363 SRNAMT = 'ZPOSVX' 00364 INFOT = 1 00365 CALL ZPOSVX( '/', 'U', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00366 $ RCOND, R1, R2, W, RW, INFO ) 00367 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00368 INFOT = 2 00369 CALL ZPOSVX( 'N', '/', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00370 $ RCOND, R1, R2, W, RW, INFO ) 00371 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00372 INFOT = 3 00373 CALL ZPOSVX( 'N', 'U', -1, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00374 $ RCOND, R1, R2, W, RW, INFO ) 00375 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00376 INFOT = 4 00377 CALL ZPOSVX( 'N', 'U', 0, -1, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00378 $ RCOND, R1, R2, W, RW, INFO ) 00379 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00380 INFOT = 6 00381 CALL ZPOSVX( 'N', 'U', 2, 0, A, 1, AF, 2, EQ, C, B, 2, X, 2, 00382 $ RCOND, R1, R2, W, RW, INFO ) 00383 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00384 INFOT = 8 00385 CALL ZPOSVX( 'N', 'U', 2, 0, A, 2, AF, 1, EQ, C, B, 2, X, 2, 00386 $ RCOND, R1, R2, W, RW, INFO ) 00387 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00388 INFOT = 9 00389 EQ = '/' 00390 CALL ZPOSVX( 'F', 'U', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00391 $ RCOND, R1, R2, W, RW, INFO ) 00392 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00393 INFOT = 10 00394 EQ = 'Y' 00395 CALL ZPOSVX( 'F', 'U', 1, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00396 $ RCOND, R1, R2, W, RW, INFO ) 00397 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00398 INFOT = 12 00399 CALL ZPOSVX( 'N', 'U', 2, 0, A, 2, AF, 2, EQ, C, B, 1, X, 2, 00400 $ RCOND, R1, R2, W, RW, INFO ) 00401 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00402 INFOT = 14 00403 CALL ZPOSVX( 'N', 'U', 2, 0, A, 2, AF, 2, EQ, C, B, 2, X, 1, 00404 $ RCOND, R1, R2, W, RW, INFO ) 00405 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00406 * 00407 ELSE IF( LSAMEN( 2, C2, 'PP' ) ) THEN 00408 * 00409 * ZPPSV 00410 * 00411 SRNAMT = 'ZPPSV ' 00412 INFOT = 1 00413 CALL ZPPSV( '/', 0, 0, A, B, 1, INFO ) 00414 CALL CHKXER( 'ZPPSV ', INFOT, NOUT, LERR, OK ) 00415 INFOT = 2 00416 CALL ZPPSV( 'U', -1, 0, A, B, 1, INFO ) 00417 CALL CHKXER( 'ZPPSV ', INFOT, NOUT, LERR, OK ) 00418 INFOT = 3 00419 CALL ZPPSV( 'U', 0, -1, A, B, 1, INFO ) 00420 CALL CHKXER( 'ZPPSV ', INFOT, NOUT, LERR, OK ) 00421 INFOT = 6 00422 CALL ZPPSV( 'U', 2, 0, A, B, 1, INFO ) 00423 CALL CHKXER( 'ZPPSV ', INFOT, NOUT, LERR, OK ) 00424 * 00425 * ZPPSVX 00426 * 00427 SRNAMT = 'ZPPSVX' 00428 INFOT = 1 00429 CALL ZPPSVX( '/', 'U', 0, 0, A, AF, EQ, C, B, 1, X, 1, RCOND, 00430 $ R1, R2, W, RW, INFO ) 00431 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00432 INFOT = 2 00433 CALL ZPPSVX( 'N', '/', 0, 0, A, AF, EQ, C, B, 1, X, 1, RCOND, 00434 $ R1, R2, W, RW, INFO ) 00435 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00436 INFOT = 3 00437 CALL ZPPSVX( 'N', 'U', -1, 0, A, AF, EQ, C, B, 1, X, 1, RCOND, 00438 $ R1, R2, W, RW, INFO ) 00439 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00440 INFOT = 4 00441 CALL ZPPSVX( 'N', 'U', 0, -1, A, AF, EQ, C, B, 1, X, 1, RCOND, 00442 $ R1, R2, W, RW, INFO ) 00443 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00444 INFOT = 7 00445 EQ = '/' 00446 CALL ZPPSVX( 'F', 'U', 0, 0, A, AF, EQ, C, B, 1, X, 1, RCOND, 00447 $ R1, R2, W, RW, INFO ) 00448 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00449 INFOT = 8 00450 EQ = 'Y' 00451 CALL ZPPSVX( 'F', 'U', 1, 0, A, AF, EQ, C, B, 1, X, 1, RCOND, 00452 $ R1, R2, W, RW, INFO ) 00453 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00454 INFOT = 10 00455 CALL ZPPSVX( 'N', 'U', 2, 0, A, AF, EQ, C, B, 1, X, 2, RCOND, 00456 $ R1, R2, W, RW, INFO ) 00457 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00458 INFOT = 12 00459 CALL ZPPSVX( 'N', 'U', 2, 0, A, AF, EQ, C, B, 2, X, 1, RCOND, 00460 $ R1, R2, W, RW, INFO ) 00461 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00462 * 00463 ELSE IF( LSAMEN( 2, C2, 'PB' ) ) THEN 00464 * 00465 * ZPBSV 00466 * 00467 SRNAMT = 'ZPBSV ' 00468 INFOT = 1 00469 CALL ZPBSV( '/', 0, 0, 0, A, 1, B, 1, INFO ) 00470 CALL CHKXER( 'ZPBSV ', INFOT, NOUT, LERR, OK ) 00471 INFOT = 2 00472 CALL ZPBSV( 'U', -1, 0, 0, A, 1, B, 1, INFO ) 00473 CALL CHKXER( 'ZPBSV ', INFOT, NOUT, LERR, OK ) 00474 INFOT = 3 00475 CALL ZPBSV( 'U', 1, -1, 0, A, 1, B, 1, INFO ) 00476 CALL CHKXER( 'ZPBSV ', INFOT, NOUT, LERR, OK ) 00477 INFOT = 4 00478 CALL ZPBSV( 'U', 0, 0, -1, A, 1, B, 1, INFO ) 00479 CALL CHKXER( 'ZPBSV ', INFOT, NOUT, LERR, OK ) 00480 INFOT = 6 00481 CALL ZPBSV( 'U', 1, 1, 0, A, 1, B, 2, INFO ) 00482 CALL CHKXER( 'ZPBSV ', INFOT, NOUT, LERR, OK ) 00483 INFOT = 8 00484 CALL ZPBSV( 'U', 2, 0, 0, A, 1, B, 1, INFO ) 00485 CALL CHKXER( 'ZPBSV ', INFOT, NOUT, LERR, OK ) 00486 * 00487 * ZPBSVX 00488 * 00489 SRNAMT = 'ZPBSVX' 00490 INFOT = 1 00491 CALL ZPBSVX( '/', 'U', 0, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00492 $ RCOND, R1, R2, W, RW, INFO ) 00493 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00494 INFOT = 2 00495 CALL ZPBSVX( 'N', '/', 0, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00496 $ RCOND, R1, R2, W, RW, INFO ) 00497 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00498 INFOT = 3 00499 CALL ZPBSVX( 'N', 'U', -1, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 00500 $ 1, RCOND, R1, R2, W, RW, INFO ) 00501 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00502 INFOT = 4 00503 CALL ZPBSVX( 'N', 'U', 1, -1, 0, A, 1, AF, 1, EQ, C, B, 1, X, 00504 $ 1, RCOND, R1, R2, W, RW, INFO ) 00505 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00506 INFOT = 5 00507 CALL ZPBSVX( 'N', 'U', 0, 0, -1, A, 1, AF, 1, EQ, C, B, 1, X, 00508 $ 1, RCOND, R1, R2, W, RW, INFO ) 00509 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00510 INFOT = 7 00511 CALL ZPBSVX( 'N', 'U', 1, 1, 0, A, 1, AF, 2, EQ, C, B, 2, X, 2, 00512 $ RCOND, R1, R2, W, RW, INFO ) 00513 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00514 INFOT = 9 00515 CALL ZPBSVX( 'N', 'U', 1, 1, 0, A, 2, AF, 1, EQ, C, B, 2, X, 2, 00516 $ RCOND, R1, R2, W, RW, INFO ) 00517 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00518 INFOT = 10 00519 EQ = '/' 00520 CALL ZPBSVX( 'F', 'U', 0, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00521 $ RCOND, R1, R2, W, RW, INFO ) 00522 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00523 INFOT = 11 00524 EQ = 'Y' 00525 CALL ZPBSVX( 'F', 'U', 1, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00526 $ RCOND, R1, R2, W, RW, INFO ) 00527 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00528 INFOT = 13 00529 CALL ZPBSVX( 'N', 'U', 2, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 2, 00530 $ RCOND, R1, R2, W, RW, INFO ) 00531 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00532 INFOT = 15 00533 CALL ZPBSVX( 'N', 'U', 2, 0, 0, A, 1, AF, 1, EQ, C, B, 2, X, 1, 00534 $ RCOND, R1, R2, W, RW, INFO ) 00535 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00536 * 00537 ELSE IF( LSAMEN( 2, C2, 'PT' ) ) THEN 00538 * 00539 * ZPTSV 00540 * 00541 SRNAMT = 'ZPTSV ' 00542 INFOT = 1 00543 CALL ZPTSV( -1, 0, R, A( 1, 1 ), B, 1, INFO ) 00544 CALL CHKXER( 'ZPTSV ', INFOT, NOUT, LERR, OK ) 00545 INFOT = 2 00546 CALL ZPTSV( 0, -1, R, A( 1, 1 ), B, 1, INFO ) 00547 CALL CHKXER( 'ZPTSV ', INFOT, NOUT, LERR, OK ) 00548 INFOT = 6 00549 CALL ZPTSV( 2, 0, R, A( 1, 1 ), B, 1, INFO ) 00550 CALL CHKXER( 'ZPTSV ', INFOT, NOUT, LERR, OK ) 00551 * 00552 * ZPTSVX 00553 * 00554 SRNAMT = 'ZPTSVX' 00555 INFOT = 1 00556 CALL ZPTSVX( '/', 0, 0, R, A( 1, 1 ), RF, AF( 1, 1 ), B, 1, X, 00557 $ 1, RCOND, R1, R2, W, RW, INFO ) 00558 CALL CHKXER( 'ZPTSVX', INFOT, NOUT, LERR, OK ) 00559 INFOT = 2 00560 CALL ZPTSVX( 'N', -1, 0, R, A( 1, 1 ), RF, AF( 1, 1 ), B, 1, X, 00561 $ 1, RCOND, R1, R2, W, RW, INFO ) 00562 CALL CHKXER( 'ZPTSVX', INFOT, NOUT, LERR, OK ) 00563 INFOT = 3 00564 CALL ZPTSVX( 'N', 0, -1, R, A( 1, 1 ), RF, AF( 1, 1 ), B, 1, X, 00565 $ 1, RCOND, R1, R2, W, RW, INFO ) 00566 CALL CHKXER( 'ZPTSVX', INFOT, NOUT, LERR, OK ) 00567 INFOT = 9 00568 CALL ZPTSVX( 'N', 2, 0, R, A( 1, 1 ), RF, AF( 1, 1 ), B, 1, X, 00569 $ 2, RCOND, R1, R2, W, RW, INFO ) 00570 CALL CHKXER( 'ZPTSVX', INFOT, NOUT, LERR, OK ) 00571 INFOT = 11 00572 CALL ZPTSVX( 'N', 2, 0, R, A( 1, 1 ), RF, AF( 1, 1 ), B, 2, X, 00573 $ 1, RCOND, R1, R2, W, RW, INFO ) 00574 CALL CHKXER( 'ZPTSVX', INFOT, NOUT, LERR, OK ) 00575 * 00576 ELSE IF( LSAMEN( 2, C2, 'HE' ) ) THEN 00577 * 00578 * ZHESV 00579 * 00580 SRNAMT = 'ZHESV ' 00581 INFOT = 1 00582 CALL ZHESV( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO ) 00583 CALL CHKXER( 'ZHESV ', INFOT, NOUT, LERR, OK ) 00584 INFOT = 2 00585 CALL ZHESV( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO ) 00586 CALL CHKXER( 'ZHESV ', INFOT, NOUT, LERR, OK ) 00587 INFOT = 3 00588 CALL ZHESV( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) 00589 CALL CHKXER( 'ZHESV ', INFOT, NOUT, LERR, OK ) 00590 INFOT = 5 00591 CALL ZHESV( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO ) 00592 CALL CHKXER( 'ZHESV ', INFOT, NOUT, LERR, OK ) 00593 INFOT = 8 00594 CALL ZHESV( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) 00595 CALL CHKXER( 'ZHESV ', INFOT, NOUT, LERR, OK ) 00596 * 00597 * ZHESVX 00598 * 00599 SRNAMT = 'ZHESVX' 00600 INFOT = 1 00601 CALL ZHESVX( '/', 'U', 0, 0, A, 1, AF, 1, IP, B, 1, X, 1, 00602 $ RCOND, R1, R2, W, 1, RW, INFO ) 00603 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00604 INFOT = 2 00605 CALL ZHESVX( 'N', '/', 0, 0, A, 1, AF, 1, IP, B, 1, X, 1, 00606 $ RCOND, R1, R2, W, 1, RW, INFO ) 00607 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00608 INFOT = 3 00609 CALL ZHESVX( 'N', 'U', -1, 0, A, 1, AF, 1, IP, B, 1, X, 1, 00610 $ RCOND, R1, R2, W, 1, RW, INFO ) 00611 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00612 INFOT = 4 00613 CALL ZHESVX( 'N', 'U', 0, -1, A, 1, AF, 1, IP, B, 1, X, 1, 00614 $ RCOND, R1, R2, W, 1, RW, INFO ) 00615 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00616 INFOT = 6 00617 CALL ZHESVX( 'N', 'U', 2, 0, A, 1, AF, 2, IP, B, 2, X, 2, 00618 $ RCOND, R1, R2, W, 4, RW, INFO ) 00619 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00620 INFOT = 8 00621 CALL ZHESVX( 'N', 'U', 2, 0, A, 2, AF, 1, IP, B, 2, X, 2, 00622 $ RCOND, R1, R2, W, 4, RW, INFO ) 00623 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00624 INFOT = 11 00625 CALL ZHESVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 1, X, 2, 00626 $ RCOND, R1, R2, W, 4, RW, INFO ) 00627 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00628 INFOT = 13 00629 CALL ZHESVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 2, X, 1, 00630 $ RCOND, R1, R2, W, 4, RW, INFO ) 00631 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00632 INFOT = 18 00633 CALL ZHESVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 2, X, 2, 00634 $ RCOND, R1, R2, W, 3, RW, INFO ) 00635 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00636 * 00637 ELSE IF( LSAMEN( 2, C2, 'HP' ) ) THEN 00638 * 00639 * ZHPSV 00640 * 00641 SRNAMT = 'ZHPSV ' 00642 INFOT = 1 00643 CALL ZHPSV( '/', 0, 0, A, IP, B, 1, INFO ) 00644 CALL CHKXER( 'ZHPSV ', INFOT, NOUT, LERR, OK ) 00645 INFOT = 2 00646 CALL ZHPSV( 'U', -1, 0, A, IP, B, 1, INFO ) 00647 CALL CHKXER( 'ZHPSV ', INFOT, NOUT, LERR, OK ) 00648 INFOT = 3 00649 CALL ZHPSV( 'U', 0, -1, A, IP, B, 1, INFO ) 00650 CALL CHKXER( 'ZHPSV ', INFOT, NOUT, LERR, OK ) 00651 INFOT = 7 00652 CALL ZHPSV( 'U', 2, 0, A, IP, B, 1, INFO ) 00653 CALL CHKXER( 'ZHPSV ', INFOT, NOUT, LERR, OK ) 00654 * 00655 * ZHPSVX 00656 * 00657 SRNAMT = 'ZHPSVX' 00658 INFOT = 1 00659 CALL ZHPSVX( '/', 'U', 0, 0, A, AF, IP, B, 1, X, 1, RCOND, R1, 00660 $ R2, W, RW, INFO ) 00661 CALL CHKXER( 'ZHPSVX', INFOT, NOUT, LERR, OK ) 00662 INFOT = 2 00663 CALL ZHPSVX( 'N', '/', 0, 0, A, AF, IP, B, 1, X, 1, RCOND, R1, 00664 $ R2, W, RW, INFO ) 00665 CALL CHKXER( 'ZHPSVX', INFOT, NOUT, LERR, OK ) 00666 INFOT = 3 00667 CALL ZHPSVX( 'N', 'U', -1, 0, A, AF, IP, B, 1, X, 1, RCOND, R1, 00668 $ R2, W, RW, INFO ) 00669 CALL CHKXER( 'ZHPSVX', INFOT, NOUT, LERR, OK ) 00670 INFOT = 4 00671 CALL ZHPSVX( 'N', 'U', 0, -1, A, AF, IP, B, 1, X, 1, RCOND, R1, 00672 $ R2, W, RW, INFO ) 00673 CALL CHKXER( 'ZHPSVX', INFOT, NOUT, LERR, OK ) 00674 INFOT = 9 00675 CALL ZHPSVX( 'N', 'U', 2, 0, A, AF, IP, B, 1, X, 2, RCOND, R1, 00676 $ R2, W, RW, INFO ) 00677 CALL CHKXER( 'ZHPSVX', INFOT, NOUT, LERR, OK ) 00678 INFOT = 11 00679 CALL ZHPSVX( 'N', 'U', 2, 0, A, AF, IP, B, 2, X, 1, RCOND, R1, 00680 $ R2, W, RW, INFO ) 00681 CALL CHKXER( 'ZHPSVX', INFOT, NOUT, LERR, OK ) 00682 * 00683 ELSE IF( LSAMEN( 2, C2, 'SY' ) ) THEN 00684 * 00685 * ZSYSV 00686 * 00687 SRNAMT = 'ZSYSV ' 00688 INFOT = 1 00689 CALL ZSYSV( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO ) 00690 CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK ) 00691 INFOT = 2 00692 CALL ZSYSV( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO ) 00693 CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK ) 00694 INFOT = 3 00695 CALL ZSYSV( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) 00696 CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK ) 00697 INFOT = 8 00698 CALL ZSYSV( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) 00699 CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK ) 00700 * 00701 * ZSYSVX 00702 * 00703 SRNAMT = 'ZSYSVX' 00704 INFOT = 1 00705 CALL ZSYSVX( '/', 'U', 0, 0, A, 1, AF, 1, IP, B, 1, X, 1, 00706 $ RCOND, R1, R2, W, 1, RW, INFO ) 00707 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00708 INFOT = 2 00709 CALL ZSYSVX( 'N', '/', 0, 0, A, 1, AF, 1, IP, B, 1, X, 1, 00710 $ RCOND, R1, R2, W, 1, RW, INFO ) 00711 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00712 INFOT = 3 00713 CALL ZSYSVX( 'N', 'U', -1, 0, A, 1, AF, 1, IP, B, 1, X, 1, 00714 $ RCOND, R1, R2, W, 1, RW, INFO ) 00715 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00716 INFOT = 4 00717 CALL ZSYSVX( 'N', 'U', 0, -1, A, 1, AF, 1, IP, B, 1, X, 1, 00718 $ RCOND, R1, R2, W, 1, RW, INFO ) 00719 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00720 INFOT = 6 00721 CALL ZSYSVX( 'N', 'U', 2, 0, A, 1, AF, 2, IP, B, 2, X, 2, 00722 $ RCOND, R1, R2, W, 4, RW, INFO ) 00723 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00724 INFOT = 8 00725 CALL ZSYSVX( 'N', 'U', 2, 0, A, 2, AF, 1, IP, B, 2, X, 2, 00726 $ RCOND, R1, R2, W, 4, RW, INFO ) 00727 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00728 INFOT = 11 00729 CALL ZSYSVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 1, X, 2, 00730 $ RCOND, R1, R2, W, 4, RW, INFO ) 00731 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00732 INFOT = 13 00733 CALL ZSYSVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 2, X, 1, 00734 $ RCOND, R1, R2, W, 4, RW, INFO ) 00735 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00736 INFOT = 18 00737 CALL ZSYSVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 2, X, 2, 00738 $ RCOND, R1, R2, W, 3, RW, INFO ) 00739 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00740 * 00741 ELSE IF( LSAMEN( 2, C2, 'SP' ) ) THEN 00742 * 00743 * ZSPSV 00744 * 00745 SRNAMT = 'ZSPSV ' 00746 INFOT = 1 00747 CALL ZSPSV( '/', 0, 0, A, IP, B, 1, INFO ) 00748 CALL CHKXER( 'ZSPSV ', INFOT, NOUT, LERR, OK ) 00749 INFOT = 2 00750 CALL ZSPSV( 'U', -1, 0, A, IP, B, 1, INFO ) 00751 CALL CHKXER( 'ZSPSV ', INFOT, NOUT, LERR, OK ) 00752 INFOT = 3 00753 CALL ZSPSV( 'U', 0, -1, A, IP, B, 1, INFO ) 00754 CALL CHKXER( 'ZSPSV ', INFOT, NOUT, LERR, OK ) 00755 INFOT = 7 00756 CALL ZSPSV( 'U', 2, 0, A, IP, B, 1, INFO ) 00757 CALL CHKXER( 'ZSPSV ', INFOT, NOUT, LERR, OK ) 00758 * 00759 * ZSPSVX 00760 * 00761 SRNAMT = 'ZSPSVX' 00762 INFOT = 1 00763 CALL ZSPSVX( '/', 'U', 0, 0, A, AF, IP, B, 1, X, 1, RCOND, R1, 00764 $ R2, W, RW, INFO ) 00765 CALL CHKXER( 'ZSPSVX', INFOT, NOUT, LERR, OK ) 00766 INFOT = 2 00767 CALL ZSPSVX( 'N', '/', 0, 0, A, AF, IP, B, 1, X, 1, RCOND, R1, 00768 $ R2, W, RW, INFO ) 00769 CALL CHKXER( 'ZSPSVX', INFOT, NOUT, LERR, OK ) 00770 INFOT = 3 00771 CALL ZSPSVX( 'N', 'U', -1, 0, A, AF, IP, B, 1, X, 1, RCOND, R1, 00772 $ R2, W, RW, INFO ) 00773 CALL CHKXER( 'ZSPSVX', INFOT, NOUT, LERR, OK ) 00774 INFOT = 4 00775 CALL ZSPSVX( 'N', 'U', 0, -1, A, AF, IP, B, 1, X, 1, RCOND, R1, 00776 $ R2, W, RW, INFO ) 00777 CALL CHKXER( 'ZSPSVX', INFOT, NOUT, LERR, OK ) 00778 INFOT = 9 00779 CALL ZSPSVX( 'N', 'U', 2, 0, A, AF, IP, B, 1, X, 2, RCOND, R1, 00780 $ R2, W, RW, INFO ) 00781 CALL CHKXER( 'ZSPSVX', INFOT, NOUT, LERR, OK ) 00782 INFOT = 11 00783 CALL ZSPSVX( 'N', 'U', 2, 0, A, AF, IP, B, 2, X, 1, RCOND, R1, 00784 $ R2, W, RW, INFO ) 00785 CALL CHKXER( 'ZSPSVX', INFOT, NOUT, LERR, OK ) 00786 END IF 00787 * 00788 * Print a summary line. 00789 * 00790 IF( OK ) THEN 00791 WRITE( NOUT, FMT = 9999 )PATH 00792 ELSE 00793 WRITE( NOUT, FMT = 9998 )PATH 00794 END IF 00795 * 00796 9999 FORMAT( 1X, A3, ' drivers passed the tests of the error exits' ) 00797 9998 FORMAT( ' *** ', A3, ' drivers failed the tests of the error ', 00798 $ 'exits ***' ) 00799 * 00800 RETURN 00801 * 00802 * End of ZERRVX 00803 * 00804 END