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