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