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