LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
cerrvx.f
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 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
 All Files Functions