 |
LAPACK 3.3.1
Linear Algebra PACKage
|
|
LAPACK 3.3.1
Linear Algebra PACKage
|
00001 SUBROUTINE ZERRVX( PATH, NUNIT ) 00002 * 00003 * -- LAPACK test routine (version 3.2.1) -- 00004 * 00005 * -- April 2009 -- 00006 * 00007 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00008 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00009 * 00010 * .. Scalar Arguments .. 00011 CHARACTER*3 PATH 00012 INTEGER NUNIT 00013 * .. 00014 * 00015 * Purpose 00016 * ======= 00017 * 00018 * ZERRVX tests the error exits for the COMPLEX*16 driver routines 00019 * for solving linear systems of equations. 00020 * 00021 * Arguments 00022 * ========= 00023 * 00024 * PATH (input) CHARACTER*3 00025 * The LAPACK path name for the routines to be tested. 00026 * 00027 * NUNIT (input) INTEGER 00028 * The unit number for output. 00029 * 00030 * ===================================================================== 00031 * 00032 * .. Parameters .. 00033 INTEGER NMAX 00034 PARAMETER ( NMAX = 4 ) 00035 * .. 00036 * .. Local Scalars .. 00037 CHARACTER EQ 00038 CHARACTER*2 C2 00039 INTEGER I, INFO, J, N_ERR_BNDS, NPARAMS 00040 DOUBLE PRECISION RCOND, RPVGRW, BERR 00041 * .. 00042 * .. Local Arrays .. 00043 INTEGER IP( NMAX ) 00044 DOUBLE PRECISION C( NMAX ), R( NMAX ), R1( NMAX ), R2( NMAX ), 00045 $ RF( NMAX ), RW( NMAX ), ERR_BNDS_N( NMAX, 3 ), 00046 $ ERR_BNDS_C( NMAX, 3 ), PARAMS 00047 COMPLEX*16 A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ), 00048 $ W( 2*NMAX ), X( NMAX ) 00049 * .. 00050 * .. External Functions .. 00051 LOGICAL LSAMEN 00052 EXTERNAL LSAMEN 00053 * .. 00054 * .. External Subroutines .. 00055 EXTERNAL CHKXER, ZGBSV, ZGBSVX, ZGESV, ZGESVX, ZGTSV, 00056 $ ZGTSVX, ZHESV, ZHESVX, ZHPSV, ZHPSVX, ZPBSV, 00057 $ ZPBSVX, ZPOSV, ZPOSVX, ZPPSV, ZPPSVX, ZPTSV, 00058 $ ZPTSVX, ZSPSV, ZSPSVX, ZSYSV, ZSYSVX, ZGESVXX, 00059 $ ZSYSVXX, ZPOSVXX, ZHESVXX, ZGBSVXX 00060 * .. 00061 * .. Scalars in Common .. 00062 LOGICAL LERR, OK 00063 CHARACTER*32 SRNAMT 00064 INTEGER INFOT, NOUT 00065 * .. 00066 * .. Common blocks .. 00067 COMMON / INFOC / INFOT, NOUT, OK, LERR 00068 COMMON / SRNAMC / SRNAMT 00069 * .. 00070 * .. Intrinsic Functions .. 00071 INTRINSIC DBLE, DCMPLX 00072 * .. 00073 * .. Executable Statements .. 00074 * 00075 NOUT = NUNIT 00076 WRITE( NOUT, FMT = * ) 00077 C2 = PATH( 2: 3 ) 00078 * 00079 * Set the variables to innocuous values. 00080 * 00081 DO 20 J = 1, NMAX 00082 DO 10 I = 1, NMAX 00083 A( I, J ) = DCMPLX( 1.D0 / DBLE( I+J ), 00084 $ -1.D0 / DBLE( I+J ) ) 00085 AF( I, J ) = DCMPLX( 1.D0 / DBLE( I+J ), 00086 $ -1.D0 / DBLE( I+J ) ) 00087 10 CONTINUE 00088 B( J ) = 0.D0 00089 R1( J ) = 0.D0 00090 R2( J ) = 0.D0 00091 W( J ) = 0.D0 00092 X( J ) = 0.D0 00093 C( J ) = 0.D0 00094 R( J ) = 0.D0 00095 IP( J ) = J 00096 20 CONTINUE 00097 EQ = ' ' 00098 OK = .TRUE. 00099 * 00100 IF( LSAMEN( 2, C2, 'GE' ) ) THEN 00101 * 00102 * ZGESV 00103 * 00104 SRNAMT = 'ZGESV ' 00105 INFOT = 1 00106 CALL ZGESV( -1, 0, A, 1, IP, B, 1, INFO ) 00107 CALL CHKXER( 'ZGESV ', INFOT, NOUT, LERR, OK ) 00108 INFOT = 2 00109 CALL ZGESV( 0, -1, A, 1, IP, B, 1, INFO ) 00110 CALL CHKXER( 'ZGESV ', INFOT, NOUT, LERR, OK ) 00111 INFOT = 4 00112 CALL ZGESV( 2, 1, A, 1, IP, B, 2, INFO ) 00113 CALL CHKXER( 'ZGESV ', INFOT, NOUT, LERR, OK ) 00114 INFOT = 7 00115 CALL ZGESV( 2, 1, A, 2, IP, B, 1, INFO ) 00116 CALL CHKXER( 'ZGESV ', INFOT, NOUT, LERR, OK ) 00117 * 00118 * ZGESVX 00119 * 00120 SRNAMT = 'ZGESVX' 00121 INFOT = 1 00122 CALL ZGESVX( '/', 'N', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00123 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00124 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00125 INFOT = 2 00126 CALL ZGESVX( 'N', '/', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00127 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00128 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00129 INFOT = 3 00130 CALL ZGESVX( 'N', 'N', -1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00131 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00132 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00133 INFOT = 4 00134 CALL ZGESVX( 'N', 'N', 0, -1, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00135 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00136 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00137 INFOT = 6 00138 CALL ZGESVX( 'N', 'N', 2, 1, A, 1, AF, 2, IP, EQ, R, C, B, 2, 00139 $ X, 2, RCOND, R1, R2, W, RW, INFO ) 00140 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00141 INFOT = 8 00142 CALL ZGESVX( 'N', 'N', 2, 1, A, 2, AF, 1, IP, EQ, R, C, B, 2, 00143 $ X, 2, RCOND, R1, R2, W, RW, INFO ) 00144 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00145 INFOT = 10 00146 EQ = '/' 00147 CALL ZGESVX( 'F', 'N', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00148 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00149 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00150 INFOT = 11 00151 EQ = 'R' 00152 CALL ZGESVX( 'F', 'N', 1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00153 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00154 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00155 INFOT = 12 00156 EQ = 'C' 00157 CALL ZGESVX( 'F', 'N', 1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1, 00158 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00159 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00160 INFOT = 14 00161 CALL ZGESVX( 'N', 'N', 2, 1, A, 2, AF, 2, IP, EQ, R, C, B, 1, 00162 $ X, 2, RCOND, R1, R2, W, RW, INFO ) 00163 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00164 INFOT = 16 00165 CALL ZGESVX( 'N', 'N', 2, 1, A, 2, AF, 2, IP, EQ, R, C, B, 2, 00166 $ X, 1, RCOND, R1, R2, W, RW, INFO ) 00167 CALL CHKXER( 'ZGESVX', INFOT, NOUT, LERR, OK ) 00168 * 00169 * ZGESVXX 00170 * 00171 N_ERR_BNDS = 3 00172 NPARAMS = 0 00173 SRNAMT = 'ZGESVXX' 00174 INFOT = 1 00175 CALL ZGESVXX( '/', 'N', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 00176 $ 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00177 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00178 $ INFO ) 00179 CALL CHKXER( 'ZGESVXX', INFOT, NOUT, LERR, OK ) 00180 INFOT = 2 00181 CALL ZGESVXX( 'N', '/', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 00182 $ 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00183 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00184 $ INFO ) 00185 CALL CHKXER( 'ZGESVXX', INFOT, NOUT, LERR, OK ) 00186 INFOT = 3 00187 CALL ZGESVXX( 'N', 'N', -1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 00188 $ 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00189 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00190 $ INFO ) 00191 CALL CHKXER( 'ZGESVXX', INFOT, NOUT, LERR, OK ) 00192 INFOT = 4 00193 CALL ZGESVXX( 'N', 'N', 0, -1, A, 1, AF, 1, IP, EQ, R, C, B, 00194 $ 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00195 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00196 $ INFO ) 00197 CALL CHKXER( 'ZGESVXX', INFOT, NOUT, LERR, OK ) 00198 INFOT = 6 00199 CALL ZGESVXX( 'N', 'N', 2, 1, A, 1, AF, 2, IP, EQ, R, C, B, 00200 $ 2, X, 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00201 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00202 $ INFO ) 00203 CALL CHKXER( 'ZGESVXX', INFOT, NOUT, LERR, OK ) 00204 INFOT = 8 00205 CALL ZGESVXX( 'N', 'N', 2, 1, A, 2, AF, 1, IP, EQ, R, C, B, 00206 $ 2, X, 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00207 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00208 $ INFO ) 00209 CALL CHKXER( 'ZGESVXX', INFOT, NOUT, LERR, OK ) 00210 INFOT = 10 00211 EQ = '/' 00212 CALL ZGESVXX( 'F', 'N', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 00213 $ 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00214 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00215 $ INFO ) 00216 CALL CHKXER( 'ZGESVXX', INFOT, NOUT, LERR, OK ) 00217 INFOT = 11 00218 EQ = 'R' 00219 CALL ZGESVXX( 'F', 'N', 1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 00220 $ 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00221 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00222 $ INFO ) 00223 CALL CHKXER( 'ZGESVXX', INFOT, NOUT, LERR, OK ) 00224 INFOT = 12 00225 EQ = 'C' 00226 CALL ZGESVXX( 'F', 'N', 1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 00227 $ 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00228 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00229 $ INFO ) 00230 CALL CHKXER( 'ZGESVXX', INFOT, NOUT, LERR, OK ) 00231 INFOT = 14 00232 CALL ZGESVXX( 'N', 'N', 2, 1, A, 2, AF, 2, IP, EQ, R, C, B, 00233 $ 1, X, 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00234 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00235 $ INFO ) 00236 CALL CHKXER( 'ZGESVXX', INFOT, NOUT, LERR, OK ) 00237 INFOT = 16 00238 CALL ZGESVXX( 'N', 'N', 2, 1, A, 2, AF, 2, IP, EQ, R, C, B, 00239 $ 2, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00240 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00241 $ INFO ) 00242 CALL CHKXER( 'ZGESVXX', INFOT, NOUT, LERR, OK ) 00243 * 00244 ELSE IF( LSAMEN( 2, C2, 'GB' ) ) THEN 00245 * 00246 * ZGBSV 00247 * 00248 SRNAMT = 'ZGBSV ' 00249 INFOT = 1 00250 CALL ZGBSV( -1, 0, 0, 0, A, 1, IP, B, 1, INFO ) 00251 CALL CHKXER( 'ZGBSV ', INFOT, NOUT, LERR, OK ) 00252 INFOT = 2 00253 CALL ZGBSV( 1, -1, 0, 0, A, 1, IP, B, 1, INFO ) 00254 CALL CHKXER( 'ZGBSV ', INFOT, NOUT, LERR, OK ) 00255 INFOT = 3 00256 CALL ZGBSV( 1, 0, -1, 0, A, 1, IP, B, 1, INFO ) 00257 CALL CHKXER( 'ZGBSV ', INFOT, NOUT, LERR, OK ) 00258 INFOT = 4 00259 CALL ZGBSV( 0, 0, 0, -1, A, 1, IP, B, 1, INFO ) 00260 CALL CHKXER( 'ZGBSV ', INFOT, NOUT, LERR, OK ) 00261 INFOT = 6 00262 CALL ZGBSV( 1, 1, 1, 0, A, 3, IP, B, 1, INFO ) 00263 CALL CHKXER( 'ZGBSV ', INFOT, NOUT, LERR, OK ) 00264 INFOT = 9 00265 CALL ZGBSV( 2, 0, 0, 0, A, 1, IP, B, 1, INFO ) 00266 CALL CHKXER( 'ZGBSV ', INFOT, NOUT, LERR, OK ) 00267 * 00268 * ZGBSVX 00269 * 00270 SRNAMT = 'ZGBSVX' 00271 INFOT = 1 00272 CALL ZGBSVX( '/', 'N', 0, 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 = 2 00276 CALL ZGBSVX( 'N', '/', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00277 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00278 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00279 INFOT = 3 00280 CALL ZGBSVX( 'N', 'N', -1, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00281 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00282 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00283 INFOT = 4 00284 CALL ZGBSVX( 'N', 'N', 1, -1, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00285 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00286 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00287 INFOT = 5 00288 CALL ZGBSVX( 'N', 'N', 1, 0, -1, 0, A, 1, AF, 1, IP, EQ, R, C, 00289 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00290 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00291 INFOT = 6 00292 CALL ZGBSVX( 'N', 'N', 0, 0, 0, -1, A, 1, AF, 1, IP, EQ, R, C, 00293 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00294 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00295 INFOT = 8 00296 CALL ZGBSVX( 'N', 'N', 1, 1, 1, 0, A, 2, AF, 4, IP, EQ, R, C, 00297 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00298 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00299 INFOT = 10 00300 CALL ZGBSVX( 'N', 'N', 1, 1, 1, 0, A, 3, AF, 3, IP, EQ, R, C, 00301 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00302 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00303 INFOT = 12 00304 EQ = '/' 00305 CALL ZGBSVX( 'F', 'N', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00306 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00307 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00308 INFOT = 13 00309 EQ = 'R' 00310 CALL ZGBSVX( 'F', 'N', 1, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00311 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00312 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00313 INFOT = 14 00314 EQ = 'C' 00315 CALL ZGBSVX( 'F', 'N', 1, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00316 $ B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00317 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00318 INFOT = 16 00319 CALL ZGBSVX( 'N', 'N', 2, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00320 $ B, 1, X, 2, RCOND, R1, R2, W, RW, INFO ) 00321 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00322 INFOT = 18 00323 CALL ZGBSVX( 'N', 'N', 2, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00324 $ B, 2, X, 1, RCOND, R1, R2, W, RW, INFO ) 00325 CALL CHKXER( 'ZGBSVX', INFOT, NOUT, LERR, OK ) 00326 * 00327 * ZGBSVXX 00328 * 00329 N_ERR_BNDS = 3 00330 NPARAMS = 0 00331 SRNAMT = 'ZGBSVXX' 00332 INFOT = 1 00333 CALL ZGBSVXX( '/', 'N', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C, 00334 $ B, 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00335 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00336 $ INFO ) 00337 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00338 INFOT = 2 00339 CALL ZGBSVXX( 'N', '/', 0, 1, 1, 0, A, 1, AF, 1, IP, EQ, R, C, 00340 $ B, 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00341 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00342 $ INFO ) 00343 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00344 INFOT = 3 00345 CALL ZGBSVXX( 'N', 'N', -1, 1, 1, 0, A, 1, AF, 1, IP, EQ, R, C, 00346 $ B, 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00347 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00348 $ INFO ) 00349 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00350 INFOT = 4 00351 CALL ZGBSVXX( 'N', 'N', 2, -1, 1, 0, A, 1, AF, 1, IP, EQ, 00352 $ R, C, B, 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00353 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00354 $ INFO ) 00355 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00356 INFOT = 5 00357 CALL ZGBSVXX( 'N', 'N', 2, 1, -1, 0, A, 1, AF, 1, IP, EQ, 00358 $ R, C, B, 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00359 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00360 $ INFO ) 00361 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00362 INFOT = 6 00363 CALL ZGBSVXX( 'N', 'N', 0, 1, 1, -1, A, 1, AF, 1, IP, EQ, R, C, 00364 $ B, 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00365 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00366 $ INFO ) 00367 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00368 INFOT = 8 00369 CALL ZGBSVXX( 'N', 'N', 2, 1, 1, 1, A, 2, AF, 2, IP, EQ, R, C, 00370 $ B, 2, X, 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00371 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00372 $ INFO ) 00373 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00374 INFOT = 10 00375 CALL ZGBSVXX( 'N', 'N', 2, 1, 1, 1, A, 3, AF, 3, IP, EQ, R, C, 00376 $ B, 2, X, 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00377 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00378 $ INFO ) 00379 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00380 INFOT = 12 00381 EQ = '/' 00382 CALL ZGBSVXX( 'F', 'N', 0, 1, 1, 0, A, 3, AF, 4, IP, EQ, R, C, 00383 $ B, 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00384 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00385 $ INFO ) 00386 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00387 INFOT = 13 00388 EQ = 'R' 00389 CALL ZGBSVXX( 'F', 'N', 1, 1, 1, 0, A, 3, AF, 4, IP, EQ, R, C, 00390 $ B, 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00391 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00392 $ INFO ) 00393 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00394 INFOT = 14 00395 EQ = 'C' 00396 CALL ZGBSVXX( 'F', 'N', 1, 1, 1, 0, A, 3, AF, 4, IP, EQ, R, C, 00397 $ B, 1, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00398 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00399 $ INFO ) 00400 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00401 INFOT = 15 00402 CALL ZGBSVXX( 'N', 'N', 2, 1, 1, 1, A, 3, AF, 4, IP, EQ, R, C, 00403 $ B, 1, X, 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00404 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00405 $ INFO ) 00406 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00407 INFOT = 16 00408 CALL ZGBSVXX( 'N', 'N', 2, 1, 1, 1, A, 3, AF, 4, IP, EQ, R, C, 00409 $ B, 2, X, 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, 00410 $ ERR_BNDS_N, ERR_BNDS_C, NPARAMS, PARAMS, W, RW, 00411 $ INFO ) 00412 CALL CHKXER( 'ZGBSVXX', INFOT, NOUT, LERR, OK ) 00413 * 00414 ELSE IF( LSAMEN( 2, C2, 'GT' ) ) THEN 00415 * 00416 * ZGTSV 00417 * 00418 SRNAMT = 'ZGTSV ' 00419 INFOT = 1 00420 CALL ZGTSV( -1, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), B, 1, 00421 $ INFO ) 00422 CALL CHKXER( 'ZGTSV ', INFOT, NOUT, LERR, OK ) 00423 INFOT = 2 00424 CALL ZGTSV( 0, -1, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), B, 1, 00425 $ INFO ) 00426 CALL CHKXER( 'ZGTSV ', INFOT, NOUT, LERR, OK ) 00427 INFOT = 7 00428 CALL ZGTSV( 2, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), B, 1, INFO ) 00429 CALL CHKXER( 'ZGTSV ', INFOT, NOUT, LERR, OK ) 00430 * 00431 * ZGTSVX 00432 * 00433 SRNAMT = 'ZGTSVX' 00434 INFOT = 1 00435 CALL ZGTSVX( '/', 'N', 0, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 00436 $ AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ), 00437 $ IP, B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00438 CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) 00439 INFOT = 2 00440 CALL ZGTSVX( 'N', '/', 0, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 00441 $ AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ), 00442 $ IP, B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00443 CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) 00444 INFOT = 3 00445 CALL ZGTSVX( 'N', 'N', -1, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 00446 $ AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ), 00447 $ IP, B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00448 CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) 00449 INFOT = 4 00450 CALL ZGTSVX( 'N', 'N', 0, -1, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 00451 $ AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ), 00452 $ IP, B, 1, X, 1, RCOND, R1, R2, W, RW, INFO ) 00453 CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) 00454 INFOT = 14 00455 CALL ZGTSVX( 'N', 'N', 2, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 00456 $ AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ), 00457 $ IP, B, 1, X, 2, RCOND, R1, R2, W, RW, INFO ) 00458 CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) 00459 INFOT = 16 00460 CALL ZGTSVX( 'N', 'N', 2, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), 00461 $ AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ), 00462 $ IP, B, 2, X, 1, RCOND, R1, R2, W, RW, INFO ) 00463 CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) 00464 * 00465 ELSE IF( LSAMEN( 2, C2, 'PO' ) ) THEN 00466 * 00467 * ZPOSV 00468 * 00469 SRNAMT = 'ZPOSV ' 00470 INFOT = 1 00471 CALL ZPOSV( '/', 0, 0, A, 1, B, 1, INFO ) 00472 CALL CHKXER( 'ZPOSV ', INFOT, NOUT, LERR, OK ) 00473 INFOT = 2 00474 CALL ZPOSV( 'U', -1, 0, A, 1, B, 1, INFO ) 00475 CALL CHKXER( 'ZPOSV ', INFOT, NOUT, LERR, OK ) 00476 INFOT = 3 00477 CALL ZPOSV( 'U', 0, -1, A, 1, B, 1, INFO ) 00478 CALL CHKXER( 'ZPOSV ', INFOT, NOUT, LERR, OK ) 00479 INFOT = 5 00480 CALL ZPOSV( 'U', 2, 0, A, 1, B, 2, INFO ) 00481 CALL CHKXER( 'ZPOSV ', INFOT, NOUT, LERR, OK ) 00482 INFOT = 7 00483 CALL ZPOSV( 'U', 2, 0, A, 2, B, 1, INFO ) 00484 CALL CHKXER( 'ZPOSV ', INFOT, NOUT, LERR, OK ) 00485 * 00486 * ZPOSVX 00487 * 00488 SRNAMT = 'ZPOSVX' 00489 INFOT = 1 00490 CALL ZPOSVX( '/', 'U', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00491 $ RCOND, R1, R2, W, RW, INFO ) 00492 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00493 INFOT = 2 00494 CALL ZPOSVX( 'N', '/', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00495 $ RCOND, R1, R2, W, RW, INFO ) 00496 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00497 INFOT = 3 00498 CALL ZPOSVX( 'N', 'U', -1, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00499 $ RCOND, R1, R2, W, RW, INFO ) 00500 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00501 INFOT = 4 00502 CALL ZPOSVX( 'N', 'U', 0, -1, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00503 $ RCOND, R1, R2, W, RW, INFO ) 00504 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00505 INFOT = 6 00506 CALL ZPOSVX( 'N', 'U', 2, 0, A, 1, AF, 2, EQ, C, B, 2, X, 2, 00507 $ RCOND, R1, R2, W, RW, INFO ) 00508 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00509 INFOT = 8 00510 CALL ZPOSVX( 'N', 'U', 2, 0, A, 2, AF, 1, EQ, C, B, 2, X, 2, 00511 $ RCOND, R1, R2, W, RW, INFO ) 00512 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00513 INFOT = 9 00514 EQ = '/' 00515 CALL ZPOSVX( 'F', 'U', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00516 $ RCOND, R1, R2, W, RW, INFO ) 00517 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00518 INFOT = 10 00519 EQ = 'Y' 00520 CALL ZPOSVX( 'F', 'U', 1, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00521 $ RCOND, R1, R2, W, RW, INFO ) 00522 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00523 INFOT = 12 00524 CALL ZPOSVX( 'N', 'U', 2, 0, A, 2, AF, 2, EQ, C, B, 1, X, 2, 00525 $ RCOND, R1, R2, W, RW, INFO ) 00526 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00527 INFOT = 14 00528 CALL ZPOSVX( 'N', 'U', 2, 0, A, 2, AF, 2, EQ, C, B, 2, X, 1, 00529 $ RCOND, R1, R2, W, RW, INFO ) 00530 CALL CHKXER( 'ZPOSVX', INFOT, NOUT, LERR, OK ) 00531 * 00532 * ZPOSVXX 00533 * 00534 N_ERR_BNDS = 3 00535 NPARAMS = 0 00536 SRNAMT = 'ZPOSVXX' 00537 INFOT = 1 00538 CALL ZPOSVXX( '/', 'U', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00539 $ RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00540 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00541 CALL CHKXER( 'ZPOSVXX', INFOT, NOUT, LERR, OK ) 00542 INFOT = 2 00543 CALL ZPOSVXX( 'N', '/', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00544 $ RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00545 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00546 CALL CHKXER( 'ZPOSVXX', INFOT, NOUT, LERR, OK ) 00547 INFOT = 3 00548 CALL ZPOSVXX( 'N', 'U', -1, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00549 $ RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00550 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00551 CALL CHKXER( 'ZPOSVXX', INFOT, NOUT, LERR, OK ) 00552 INFOT = 4 00553 CALL ZPOSVXX( 'N', 'U', 0, -1, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00554 $ RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00555 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00556 CALL CHKXER( 'ZPOSVXX', INFOT, NOUT, LERR, OK ) 00557 INFOT = 6 00558 CALL ZPOSVXX( 'N', 'U', 2, 0, A, 1, AF, 2, EQ, C, B, 2, X, 2, 00559 $ RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00560 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00561 CALL CHKXER( 'ZPOSVXX', INFOT, NOUT, LERR, OK ) 00562 INFOT = 8 00563 CALL ZPOSVXX( 'N', 'U', 2, 0, A, 2, AF, 1, EQ, C, B, 2, X, 2, 00564 $ RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00565 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00566 CALL CHKXER( 'ZPOSVXX', INFOT, NOUT, LERR, OK ) 00567 INFOT = 9 00568 EQ = '/' 00569 CALL ZPOSVXX( 'F', 'U', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00570 $ RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00571 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00572 CALL CHKXER( 'ZPOSVXX', INFOT, NOUT, LERR, OK ) 00573 INFOT = 10 00574 EQ = 'Y' 00575 CALL ZPOSVXX( 'F', 'U', 1, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00576 $ RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00577 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00578 CALL CHKXER( 'ZPOSVXX', INFOT, NOUT, LERR, OK ) 00579 INFOT = 12 00580 CALL ZPOSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, EQ, C, B, 1, X, 2, 00581 $ RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00582 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00583 CALL CHKXER( 'ZPOSVXX', INFOT, NOUT, LERR, OK ) 00584 INFOT = 14 00585 CALL ZPOSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, EQ, C, B, 2, X, 1, 00586 $ RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00587 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00588 CALL CHKXER( 'ZPOSVXX', INFOT, NOUT, LERR, OK ) 00589 * 00590 ELSE IF( LSAMEN( 2, C2, 'PP' ) ) THEN 00591 * 00592 * ZPPSV 00593 * 00594 SRNAMT = 'ZPPSV ' 00595 INFOT = 1 00596 CALL ZPPSV( '/', 0, 0, A, B, 1, INFO ) 00597 CALL CHKXER( 'ZPPSV ', INFOT, NOUT, LERR, OK ) 00598 INFOT = 2 00599 CALL ZPPSV( 'U', -1, 0, A, B, 1, INFO ) 00600 CALL CHKXER( 'ZPPSV ', INFOT, NOUT, LERR, OK ) 00601 INFOT = 3 00602 CALL ZPPSV( 'U', 0, -1, A, B, 1, INFO ) 00603 CALL CHKXER( 'ZPPSV ', INFOT, NOUT, LERR, OK ) 00604 INFOT = 6 00605 CALL ZPPSV( 'U', 2, 0, A, B, 1, INFO ) 00606 CALL CHKXER( 'ZPPSV ', INFOT, NOUT, LERR, OK ) 00607 * 00608 * ZPPSVX 00609 * 00610 SRNAMT = 'ZPPSVX' 00611 INFOT = 1 00612 CALL ZPPSVX( '/', 'U', 0, 0, A, AF, EQ, C, B, 1, X, 1, RCOND, 00613 $ R1, R2, W, RW, INFO ) 00614 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00615 INFOT = 2 00616 CALL ZPPSVX( 'N', '/', 0, 0, A, AF, EQ, C, B, 1, X, 1, RCOND, 00617 $ R1, R2, W, RW, INFO ) 00618 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00619 INFOT = 3 00620 CALL ZPPSVX( 'N', 'U', -1, 0, A, AF, EQ, C, B, 1, X, 1, RCOND, 00621 $ R1, R2, W, RW, INFO ) 00622 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00623 INFOT = 4 00624 CALL ZPPSVX( 'N', 'U', 0, -1, A, AF, EQ, C, B, 1, X, 1, RCOND, 00625 $ R1, R2, W, RW, INFO ) 00626 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00627 INFOT = 7 00628 EQ = '/' 00629 CALL ZPPSVX( 'F', 'U', 0, 0, A, AF, EQ, C, B, 1, X, 1, RCOND, 00630 $ R1, R2, W, RW, INFO ) 00631 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00632 INFOT = 8 00633 EQ = 'Y' 00634 CALL ZPPSVX( 'F', 'U', 1, 0, A, AF, EQ, C, B, 1, X, 1, RCOND, 00635 $ R1, R2, W, RW, INFO ) 00636 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00637 INFOT = 10 00638 CALL ZPPSVX( 'N', 'U', 2, 0, A, AF, EQ, C, B, 1, X, 2, RCOND, 00639 $ R1, R2, W, RW, INFO ) 00640 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00641 INFOT = 12 00642 CALL ZPPSVX( 'N', 'U', 2, 0, A, AF, EQ, C, B, 2, X, 1, RCOND, 00643 $ R1, R2, W, RW, INFO ) 00644 CALL CHKXER( 'ZPPSVX', INFOT, NOUT, LERR, OK ) 00645 * 00646 ELSE IF( LSAMEN( 2, C2, 'PB' ) ) THEN 00647 * 00648 * ZPBSV 00649 * 00650 SRNAMT = 'ZPBSV ' 00651 INFOT = 1 00652 CALL ZPBSV( '/', 0, 0, 0, A, 1, B, 1, INFO ) 00653 CALL CHKXER( 'ZPBSV ', INFOT, NOUT, LERR, OK ) 00654 INFOT = 2 00655 CALL ZPBSV( 'U', -1, 0, 0, A, 1, B, 1, INFO ) 00656 CALL CHKXER( 'ZPBSV ', INFOT, NOUT, LERR, OK ) 00657 INFOT = 3 00658 CALL ZPBSV( 'U', 1, -1, 0, A, 1, B, 1, INFO ) 00659 CALL CHKXER( 'ZPBSV ', INFOT, NOUT, LERR, OK ) 00660 INFOT = 4 00661 CALL ZPBSV( 'U', 0, 0, -1, A, 1, B, 1, INFO ) 00662 CALL CHKXER( 'ZPBSV ', INFOT, NOUT, LERR, OK ) 00663 INFOT = 6 00664 CALL ZPBSV( 'U', 1, 1, 0, A, 1, B, 2, INFO ) 00665 CALL CHKXER( 'ZPBSV ', INFOT, NOUT, LERR, OK ) 00666 INFOT = 8 00667 CALL ZPBSV( 'U', 2, 0, 0, A, 1, B, 1, INFO ) 00668 CALL CHKXER( 'ZPBSV ', INFOT, NOUT, LERR, OK ) 00669 * 00670 * ZPBSVX 00671 * 00672 SRNAMT = 'ZPBSVX' 00673 INFOT = 1 00674 CALL ZPBSVX( '/', 'U', 0, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00675 $ RCOND, R1, R2, W, RW, INFO ) 00676 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00677 INFOT = 2 00678 CALL ZPBSVX( 'N', '/', 0, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00679 $ RCOND, R1, R2, W, RW, INFO ) 00680 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00681 INFOT = 3 00682 CALL ZPBSVX( 'N', 'U', -1, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 00683 $ 1, RCOND, R1, R2, W, RW, INFO ) 00684 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00685 INFOT = 4 00686 CALL ZPBSVX( 'N', 'U', 1, -1, 0, A, 1, AF, 1, EQ, C, B, 1, X, 00687 $ 1, RCOND, R1, R2, W, RW, INFO ) 00688 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00689 INFOT = 5 00690 CALL ZPBSVX( 'N', 'U', 0, 0, -1, A, 1, AF, 1, EQ, C, B, 1, X, 00691 $ 1, RCOND, R1, R2, W, RW, INFO ) 00692 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00693 INFOT = 7 00694 CALL ZPBSVX( 'N', 'U', 1, 1, 0, A, 1, AF, 2, EQ, C, B, 2, X, 2, 00695 $ RCOND, R1, R2, W, RW, INFO ) 00696 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00697 INFOT = 9 00698 CALL ZPBSVX( 'N', 'U', 1, 1, 0, A, 2, AF, 1, EQ, C, B, 2, X, 2, 00699 $ RCOND, R1, R2, W, RW, INFO ) 00700 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00701 INFOT = 10 00702 EQ = '/' 00703 CALL ZPBSVX( 'F', 'U', 0, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00704 $ RCOND, R1, R2, W, RW, INFO ) 00705 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00706 INFOT = 11 00707 EQ = 'Y' 00708 CALL ZPBSVX( 'F', 'U', 1, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1, 00709 $ RCOND, R1, R2, W, RW, INFO ) 00710 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00711 INFOT = 13 00712 CALL ZPBSVX( 'N', 'U', 2, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 2, 00713 $ RCOND, R1, R2, W, RW, INFO ) 00714 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00715 INFOT = 15 00716 CALL ZPBSVX( 'N', 'U', 2, 0, 0, A, 1, AF, 1, EQ, C, B, 2, X, 1, 00717 $ RCOND, R1, R2, W, RW, INFO ) 00718 CALL CHKXER( 'ZPBSVX', INFOT, NOUT, LERR, OK ) 00719 * 00720 ELSE IF( LSAMEN( 2, C2, 'PT' ) ) THEN 00721 * 00722 * ZPTSV 00723 * 00724 SRNAMT = 'ZPTSV ' 00725 INFOT = 1 00726 CALL ZPTSV( -1, 0, R, A( 1, 1 ), B, 1, INFO ) 00727 CALL CHKXER( 'ZPTSV ', INFOT, NOUT, LERR, OK ) 00728 INFOT = 2 00729 CALL ZPTSV( 0, -1, R, A( 1, 1 ), B, 1, INFO ) 00730 CALL CHKXER( 'ZPTSV ', INFOT, NOUT, LERR, OK ) 00731 INFOT = 6 00732 CALL ZPTSV( 2, 0, R, A( 1, 1 ), B, 1, INFO ) 00733 CALL CHKXER( 'ZPTSV ', INFOT, NOUT, LERR, OK ) 00734 * 00735 * ZPTSVX 00736 * 00737 SRNAMT = 'ZPTSVX' 00738 INFOT = 1 00739 CALL ZPTSVX( '/', 0, 0, R, A( 1, 1 ), RF, AF( 1, 1 ), B, 1, X, 00740 $ 1, RCOND, R1, R2, W, RW, INFO ) 00741 CALL CHKXER( 'ZPTSVX', INFOT, NOUT, LERR, OK ) 00742 INFOT = 2 00743 CALL ZPTSVX( 'N', -1, 0, R, A( 1, 1 ), RF, AF( 1, 1 ), B, 1, X, 00744 $ 1, RCOND, R1, R2, W, RW, INFO ) 00745 CALL CHKXER( 'ZPTSVX', INFOT, NOUT, LERR, OK ) 00746 INFOT = 3 00747 CALL ZPTSVX( 'N', 0, -1, R, A( 1, 1 ), RF, AF( 1, 1 ), B, 1, X, 00748 $ 1, RCOND, R1, R2, W, RW, INFO ) 00749 CALL CHKXER( 'ZPTSVX', INFOT, NOUT, LERR, OK ) 00750 INFOT = 9 00751 CALL ZPTSVX( 'N', 2, 0, R, A( 1, 1 ), RF, AF( 1, 1 ), B, 1, X, 00752 $ 2, RCOND, R1, R2, W, RW, INFO ) 00753 CALL CHKXER( 'ZPTSVX', INFOT, NOUT, LERR, OK ) 00754 INFOT = 11 00755 CALL ZPTSVX( 'N', 2, 0, R, A( 1, 1 ), RF, AF( 1, 1 ), B, 2, X, 00756 $ 1, RCOND, R1, R2, W, RW, INFO ) 00757 CALL CHKXER( 'ZPTSVX', INFOT, NOUT, LERR, OK ) 00758 * 00759 ELSE IF( LSAMEN( 2, C2, 'HE' ) ) THEN 00760 * 00761 * ZHESV 00762 * 00763 SRNAMT = 'ZHESV ' 00764 INFOT = 1 00765 CALL ZHESV( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO ) 00766 CALL CHKXER( 'ZHESV ', INFOT, NOUT, LERR, OK ) 00767 INFOT = 2 00768 CALL ZHESV( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO ) 00769 CALL CHKXER( 'ZHESV ', INFOT, NOUT, LERR, OK ) 00770 INFOT = 3 00771 CALL ZHESV( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) 00772 CALL CHKXER( 'ZHESV ', INFOT, NOUT, LERR, OK ) 00773 INFOT = 5 00774 CALL ZHESV( 'U', 2, 0, A, 1, IP, B, 2, W, 1, INFO ) 00775 CALL CHKXER( 'ZHESV ', INFOT, NOUT, LERR, OK ) 00776 INFOT = 8 00777 CALL ZHESV( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) 00778 CALL CHKXER( 'ZHESV ', INFOT, NOUT, LERR, OK ) 00779 * 00780 * ZHESVX 00781 * 00782 SRNAMT = 'ZHESVX' 00783 INFOT = 1 00784 CALL ZHESVX( '/', 'U', 0, 0, A, 1, AF, 1, IP, B, 1, X, 1, 00785 $ RCOND, R1, R2, W, 1, RW, INFO ) 00786 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00787 INFOT = 2 00788 CALL ZHESVX( 'N', '/', 0, 0, A, 1, AF, 1, IP, B, 1, X, 1, 00789 $ RCOND, R1, R2, W, 1, RW, INFO ) 00790 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00791 INFOT = 3 00792 CALL ZHESVX( 'N', 'U', -1, 0, A, 1, AF, 1, IP, B, 1, X, 1, 00793 $ RCOND, R1, R2, W, 1, RW, INFO ) 00794 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00795 INFOT = 4 00796 CALL ZHESVX( 'N', 'U', 0, -1, A, 1, AF, 1, IP, B, 1, X, 1, 00797 $ RCOND, R1, R2, W, 1, RW, INFO ) 00798 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00799 INFOT = 6 00800 CALL ZHESVX( 'N', 'U', 2, 0, A, 1, AF, 2, IP, B, 2, X, 2, 00801 $ RCOND, R1, R2, W, 4, RW, INFO ) 00802 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00803 INFOT = 8 00804 CALL ZHESVX( 'N', 'U', 2, 0, A, 2, AF, 1, IP, B, 2, X, 2, 00805 $ RCOND, R1, R2, W, 4, RW, INFO ) 00806 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00807 INFOT = 11 00808 CALL ZHESVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 1, X, 2, 00809 $ RCOND, R1, R2, W, 4, RW, INFO ) 00810 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00811 INFOT = 13 00812 CALL ZHESVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 2, X, 1, 00813 $ RCOND, R1, R2, W, 4, RW, INFO ) 00814 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00815 INFOT = 18 00816 CALL ZHESVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 2, X, 2, 00817 $ RCOND, R1, R2, W, 3, RW, INFO ) 00818 CALL CHKXER( 'ZHESVX', INFOT, NOUT, LERR, OK ) 00819 * 00820 * ZHESVXX 00821 * 00822 N_ERR_BNDS = 3 00823 NPARAMS = 0 00824 SRNAMT = 'ZHESVXX' 00825 INFOT = 1 00826 CALL ZHESVXX( '/', 'U', 0, 0, A, 1, AF, 1, IP, EQ, C, B, 1, X, 00827 $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00828 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00829 CALL CHKXER( 'ZHESVXX', INFOT, NOUT, LERR, OK ) 00830 INFOT = 2 00831 CALL ZHESVXX( 'N', '/', 0, 0, A, 1, AF, 1, IP, EQ, C, B, 1, X, 00832 $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00833 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00834 CALL CHKXER( 'ZHESVXX', INFOT, NOUT, LERR, OK ) 00835 INFOT = 3 00836 CALL ZHESVXX( 'N', 'U', -1, 0, A, 1, AF, 1, IP, EQ, C, B, 1, X, 00837 $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00838 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00839 CALL CHKXER( 'ZHESVXX', INFOT, NOUT, LERR, OK ) 00840 INFOT = 4 00841 CALL ZHESVXX( 'N', 'U', 0, -1, A, 1, AF, 1, IP, EQ, C, B, 1, X, 00842 $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00843 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00844 CALL CHKXER( 'ZHESVXX', INFOT, NOUT, LERR, OK ) 00845 INFOT = 6 00846 CALL ZHESVXX( 'N', 'U', 2, 0, A, 1, AF, 2, IP, EQ, C, B, 2, X, 00847 $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00848 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00849 CALL CHKXER( 'ZHESVXX', INFOT, NOUT, LERR, OK ) 00850 INFOT = 8 00851 CALL ZHESVXX( 'N', 'U', 2, 0, A, 2, AF, 1, IP, EQ, C, B, 2, X, 00852 $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00853 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00854 CALL CHKXER( 'ZHESVXX', INFOT, NOUT, LERR, OK ) 00855 INFOT = 9 00856 EQ = '/' 00857 CALL ZHESVXX( 'F', 'U', 0, 0, A, 1, AF, 1, IP, EQ, C, B, 1, X, 00858 $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00859 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00860 CALL CHKXER( 'ZHESVXX', INFOT, NOUT, LERR, OK ) 00861 INFOT = 10 00862 EQ = 'Y' 00863 CALL ZHESVXX( 'F', 'U', 1, 0, A, 1, AF, 1, IP, EQ, C, B, 1, X, 00864 $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00865 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00866 CALL CHKXER( 'ZHESVXX', INFOT, NOUT, LERR, OK ) 00867 INFOT = 12 00868 CALL ZHESVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, C, B, 1, X, 00869 $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00870 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00871 CALL CHKXER( 'ZHESVXX', INFOT, NOUT, LERR, OK ) 00872 INFOT = 14 00873 CALL ZHESVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, C, B, 2, X, 00874 $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00875 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00876 CALL CHKXER( 'ZHESVXX', INFOT, NOUT, LERR, OK ) 00877 * 00878 ELSE IF( LSAMEN( 2, C2, 'HP' ) ) THEN 00879 * 00880 * ZHPSV 00881 * 00882 SRNAMT = 'ZHPSV ' 00883 INFOT = 1 00884 CALL ZHPSV( '/', 0, 0, A, IP, B, 1, INFO ) 00885 CALL CHKXER( 'ZHPSV ', INFOT, NOUT, LERR, OK ) 00886 INFOT = 2 00887 CALL ZHPSV( 'U', -1, 0, A, IP, B, 1, INFO ) 00888 CALL CHKXER( 'ZHPSV ', INFOT, NOUT, LERR, OK ) 00889 INFOT = 3 00890 CALL ZHPSV( 'U', 0, -1, A, IP, B, 1, INFO ) 00891 CALL CHKXER( 'ZHPSV ', INFOT, NOUT, LERR, OK ) 00892 INFOT = 7 00893 CALL ZHPSV( 'U', 2, 0, A, IP, B, 1, INFO ) 00894 CALL CHKXER( 'ZHPSV ', INFOT, NOUT, LERR, OK ) 00895 * 00896 * ZHPSVX 00897 * 00898 SRNAMT = 'ZHPSVX' 00899 INFOT = 1 00900 CALL ZHPSVX( '/', 'U', 0, 0, A, AF, IP, B, 1, X, 1, RCOND, R1, 00901 $ R2, W, RW, INFO ) 00902 CALL CHKXER( 'ZHPSVX', INFOT, NOUT, LERR, OK ) 00903 INFOT = 2 00904 CALL ZHPSVX( 'N', '/', 0, 0, A, AF, IP, B, 1, X, 1, RCOND, R1, 00905 $ R2, W, RW, INFO ) 00906 CALL CHKXER( 'ZHPSVX', INFOT, NOUT, LERR, OK ) 00907 INFOT = 3 00908 CALL ZHPSVX( 'N', 'U', -1, 0, A, AF, IP, B, 1, X, 1, RCOND, R1, 00909 $ R2, W, RW, INFO ) 00910 CALL CHKXER( 'ZHPSVX', INFOT, NOUT, LERR, OK ) 00911 INFOT = 4 00912 CALL ZHPSVX( 'N', 'U', 0, -1, A, AF, IP, B, 1, X, 1, RCOND, R1, 00913 $ R2, W, RW, INFO ) 00914 CALL CHKXER( 'ZHPSVX', INFOT, NOUT, LERR, OK ) 00915 INFOT = 9 00916 CALL ZHPSVX( 'N', 'U', 2, 0, A, AF, IP, B, 1, X, 2, RCOND, R1, 00917 $ R2, W, RW, INFO ) 00918 CALL CHKXER( 'ZHPSVX', INFOT, NOUT, LERR, OK ) 00919 INFOT = 11 00920 CALL ZHPSVX( 'N', 'U', 2, 0, A, AF, IP, B, 2, X, 1, RCOND, R1, 00921 $ R2, W, RW, INFO ) 00922 CALL CHKXER( 'ZHPSVX', INFOT, NOUT, LERR, OK ) 00923 * 00924 ELSE IF( LSAMEN( 2, C2, 'SY' ) ) THEN 00925 * 00926 * ZSYSV 00927 * 00928 SRNAMT = 'ZSYSV ' 00929 INFOT = 1 00930 CALL ZSYSV( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO ) 00931 CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK ) 00932 INFOT = 2 00933 CALL ZSYSV( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO ) 00934 CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK ) 00935 INFOT = 3 00936 CALL ZSYSV( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) 00937 CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK ) 00938 INFOT = 8 00939 CALL ZSYSV( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) 00940 CALL CHKXER( 'ZSYSV ', INFOT, NOUT, LERR, OK ) 00941 * 00942 * ZSYSVX 00943 * 00944 SRNAMT = 'ZSYSVX' 00945 INFOT = 1 00946 CALL ZSYSVX( '/', 'U', 0, 0, A, 1, AF, 1, IP, B, 1, X, 1, 00947 $ RCOND, R1, R2, W, 1, RW, INFO ) 00948 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00949 INFOT = 2 00950 CALL ZSYSVX( 'N', '/', 0, 0, A, 1, AF, 1, IP, B, 1, X, 1, 00951 $ RCOND, R1, R2, W, 1, RW, INFO ) 00952 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00953 INFOT = 3 00954 CALL ZSYSVX( 'N', 'U', -1, 0, A, 1, AF, 1, IP, B, 1, X, 1, 00955 $ RCOND, R1, R2, W, 1, RW, INFO ) 00956 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00957 INFOT = 4 00958 CALL ZSYSVX( 'N', 'U', 0, -1, A, 1, AF, 1, IP, B, 1, X, 1, 00959 $ RCOND, R1, R2, W, 1, RW, INFO ) 00960 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00961 INFOT = 6 00962 CALL ZSYSVX( 'N', 'U', 2, 0, A, 1, AF, 2, IP, B, 2, X, 2, 00963 $ RCOND, R1, R2, W, 4, RW, INFO ) 00964 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00965 INFOT = 8 00966 CALL ZSYSVX( 'N', 'U', 2, 0, A, 2, AF, 1, IP, B, 2, X, 2, 00967 $ RCOND, R1, R2, W, 4, RW, INFO ) 00968 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00969 INFOT = 11 00970 CALL ZSYSVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 1, X, 2, 00971 $ RCOND, R1, R2, W, 4, RW, INFO ) 00972 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00973 INFOT = 13 00974 CALL ZSYSVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 2, X, 1, 00975 $ RCOND, R1, R2, W, 4, RW, INFO ) 00976 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00977 INFOT = 18 00978 CALL ZSYSVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 2, X, 2, 00979 $ RCOND, R1, R2, W, 3, RW, INFO ) 00980 CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) 00981 * 00982 * ZSYSVXX 00983 * 00984 N_ERR_BNDS = 3 00985 NPARAMS = 0 00986 SRNAMT = 'ZSYSVXX' 00987 INFOT = 1 00988 EQ = 'N' 00989 CALL ZSYSVXX( '/', 'U', 0, 0, A, 1, AF, 1, IP, EQ, R, B, 1, X, 00990 $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00991 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00992 CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) 00993 INFOT = 2 00994 CALL ZSYSVXX( 'N', '/', 0, 0, A, 1, AF, 1, IP, EQ, R, B, 1, X, 00995 $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 00996 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 00997 CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) 00998 INFOT = 3 00999 CALL ZSYSVXX( 'N', 'U', -1, 0, A, 1, AF, 1, IP, EQ, R, B, 1, X, 01000 $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 01001 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 01002 CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) 01003 INFOT = 4 01004 EQ = '/' 01005 CALL ZSYSVXX( 'N', 'U', 0, -1, A, 1, AF, 1, IP, EQ, R, B, 1, X, 01006 $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 01007 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 01008 CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) 01009 EQ = 'Y' 01010 INFOT = 6 01011 CALL ZSYSVXX( 'N', 'U', 2, 0, A, 1, AF, 2, IP, EQ, R, B, 2, X, 01012 $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 01013 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 01014 CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) 01015 INFOT = 8 01016 CALL ZSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 1, IP, EQ, R, B, 2, X, 01017 $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 01018 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 01019 CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) 01020 INFOT = 12 01021 EQ = 'N' 01022 CALL ZSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 1, X, 01023 $ 2, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 01024 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 01025 CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) 01026 INFOT = 14 01027 CALL ZSYSVXX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, EQ, R, B, 2, X, 01028 $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, 01029 $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) 01030 CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) 01031 * 01032 ELSE IF( LSAMEN( 2, C2, 'SP' ) ) THEN 01033 * 01034 * ZSPSV 01035 * 01036 SRNAMT = 'ZSPSV ' 01037 INFOT = 1 01038 CALL ZSPSV( '/', 0, 0, A, IP, B, 1, INFO ) 01039 CALL CHKXER( 'ZSPSV ', INFOT, NOUT, LERR, OK ) 01040 INFOT = 2 01041 CALL ZSPSV( 'U', -1, 0, A, IP, B, 1, INFO ) 01042 CALL CHKXER( 'ZSPSV ', INFOT, NOUT, LERR, OK ) 01043 INFOT = 3 01044 CALL ZSPSV( 'U', 0, -1, A, IP, B, 1, INFO ) 01045 CALL CHKXER( 'ZSPSV ', INFOT, NOUT, LERR, OK ) 01046 INFOT = 7 01047 CALL ZSPSV( 'U', 2, 0, A, IP, B, 1, INFO ) 01048 CALL CHKXER( 'ZSPSV ', INFOT, NOUT, LERR, OK ) 01049 * 01050 * ZSPSVX 01051 * 01052 SRNAMT = 'ZSPSVX' 01053 INFOT = 1 01054 CALL ZSPSVX( '/', 'U', 0, 0, A, AF, IP, B, 1, X, 1, RCOND, R1, 01055 $ R2, W, RW, INFO ) 01056 CALL CHKXER( 'ZSPSVX', INFOT, NOUT, LERR, OK ) 01057 INFOT = 2 01058 CALL ZSPSVX( 'N', '/', 0, 0, A, AF, IP, B, 1, X, 1, RCOND, R1, 01059 $ R2, W, RW, INFO ) 01060 CALL CHKXER( 'ZSPSVX', INFOT, NOUT, LERR, OK ) 01061 INFOT = 3 01062 CALL ZSPSVX( 'N', 'U', -1, 0, A, AF, IP, B, 1, X, 1, RCOND, R1, 01063 $ R2, W, RW, INFO ) 01064 CALL CHKXER( 'ZSPSVX', INFOT, NOUT, LERR, OK ) 01065 INFOT = 4 01066 CALL ZSPSVX( 'N', 'U', 0, -1, A, AF, IP, B, 1, X, 1, RCOND, R1, 01067 $ R2, W, RW, INFO ) 01068 CALL CHKXER( 'ZSPSVX', INFOT, NOUT, LERR, OK ) 01069 INFOT = 9 01070 CALL ZSPSVX( 'N', 'U', 2, 0, A, AF, IP, B, 1, X, 2, RCOND, R1, 01071 $ R2, W, RW, INFO ) 01072 CALL CHKXER( 'ZSPSVX', INFOT, NOUT, LERR, OK ) 01073 INFOT = 11 01074 CALL ZSPSVX( 'N', 'U', 2, 0, A, AF, IP, B, 2, X, 1, RCOND, R1, 01075 $ R2, W, RW, INFO ) 01076 CALL CHKXER( 'ZSPSVX', INFOT, NOUT, LERR, OK ) 01077 END IF 01078 * 01079 * Print a summary line. 01080 * 01081 IF( OK ) THEN 01082 WRITE( NOUT, FMT = 9999 )PATH 01083 ELSE 01084 WRITE( NOUT, FMT = 9998 )PATH 01085 END IF 01086 * 01087 9999 FORMAT( 1X, A3, ' drivers passed the tests of the error exits' ) 01088 9998 FORMAT( ' *** ', A3, ' drivers failed the tests of the error ', 01089 $ 'exits ***' ) 01090 * 01091 RETURN 01092 * 01093 * End of ZERRVX 01094 * 01095 END
1.7.3 
