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