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