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