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