LAPACK 3.3.0

serrvx.f

Go to the documentation of this file.
00001       SUBROUTINE SERRVX( PATH, NUNIT )
00002 *
00003 *  -- LAPACK test routine (version 3.1.1) --
00004 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
00005 *     January 2007
00006 *
00007 *     .. Scalar Arguments ..
00008       CHARACTER*3        PATH
00009       INTEGER            NUNIT
00010 *     ..
00011 *
00012 *  Purpose
00013 *  =======
00014 *
00015 *  SERRVX tests the error exits for the REAL driver routines
00016 *  for solving linear systems of equations.
00017 *
00018 *  Arguments
00019 *  =========
00020 *
00021 *  PATH    (input) CHARACTER*3
00022 *          The LAPACK path name for the routines to be tested.
00023 *
00024 *  NUNIT   (input) INTEGER
00025 *          The unit number for output.
00026 *
00027 *  =====================================================================
00028 *
00029 *     .. Parameters ..
00030       INTEGER            NMAX
00031       PARAMETER          ( NMAX = 4 )
00032 *     ..
00033 *     .. Local Scalars ..
00034       CHARACTER          EQ
00035       CHARACTER*2        C2
00036       INTEGER            I, INFO, J
00037       REAL               RCOND
00038 *     ..
00039 *     .. Local Arrays ..
00040       INTEGER            IP( NMAX ), IW( NMAX )
00041       REAL               A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ),
00042      $                   C( NMAX ), R( NMAX ), R1( NMAX ), R2( NMAX ),
00043      $                   W( 2*NMAX ), X( NMAX )
00044 *     ..
00045 *     .. External Functions ..
00046       LOGICAL            LSAMEN
00047       EXTERNAL           LSAMEN
00048 *     ..
00049 *     .. External Subroutines ..
00050       EXTERNAL           CHKXER, SGBSV, SGBSVX, SGESV, SGESVX, SGTSV,
00051      $                   SGTSVX, SPBSV, SPBSVX, SPOSV, SPOSVX, SPPSV,
00052      $                   SPPSVX, SPTSV, SPTSVX, SSPSV, SSPSVX, SSYSV,
00053      $                   SSYSVX
00054 *     ..
00055 *     .. Scalars in Common ..
00056       LOGICAL            LERR, OK
00057       CHARACTER*32       SRNAMT
00058       INTEGER            INFOT, NOUT
00059 *     ..
00060 *     .. Common blocks ..
00061       COMMON             / INFOC / INFOT, NOUT, OK, LERR
00062       COMMON             / SRNAMC / SRNAMT
00063 *     ..
00064 *     .. Intrinsic Functions ..
00065       INTRINSIC          REAL
00066 *     ..
00067 *     .. Executable Statements ..
00068 *
00069       NOUT = NUNIT
00070       WRITE( NOUT, FMT = * )
00071       C2 = PATH( 2: 3 )
00072 *
00073 *     Set the variables to innocuous values.
00074 *
00075       DO 20 J = 1, NMAX
00076          DO 10 I = 1, NMAX
00077             A( I, J ) = 1. / REAL( I+J )
00078             AF( I, J ) = 1. / REAL( I+J )
00079    10    CONTINUE
00080          B( J ) = 0.
00081          R1( J ) = 0.
00082          R2( J ) = 0.
00083          W( J ) = 0.
00084          X( J ) = 0.
00085          C( J ) = 0.
00086          R( J ) = 0.
00087          IP( J ) = J
00088    20 CONTINUE
00089       EQ = ' '
00090       OK = .TRUE.
00091 *
00092       IF( LSAMEN( 2, C2, 'GE' ) ) THEN
00093 *
00094 *        SGESV
00095 *
00096          SRNAMT = 'SGESV '
00097          INFOT = 1
00098          CALL SGESV( -1, 0, A, 1, IP, B, 1, INFO )
00099          CALL CHKXER( 'SGESV ', INFOT, NOUT, LERR, OK )
00100          INFOT = 2
00101          CALL SGESV( 0, -1, A, 1, IP, B, 1, INFO )
00102          CALL CHKXER( 'SGESV ', INFOT, NOUT, LERR, OK )
00103          INFOT = 4
00104          CALL SGESV( 2, 1, A, 1, IP, B, 2, INFO )
00105          CALL CHKXER( 'SGESV ', INFOT, NOUT, LERR, OK )
00106          INFOT = 7
00107          CALL SGESV( 2, 1, A, 2, IP, B, 1, INFO )
00108          CALL CHKXER( 'SGESV ', INFOT, NOUT, LERR, OK )
00109 *
00110 *        SGESVX
00111 *
00112          SRNAMT = 'SGESVX'
00113          INFOT = 1
00114          CALL SGESVX( '/', 'N', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1,
00115      $                X, 1, RCOND, R1, R2, W, IW, INFO )
00116          CALL CHKXER( 'SGESVX', INFOT, NOUT, LERR, OK )
00117          INFOT = 2
00118          CALL SGESVX( 'N', '/', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1,
00119      $                X, 1, RCOND, R1, R2, W, IW, INFO )
00120          CALL CHKXER( 'SGESVX', INFOT, NOUT, LERR, OK )
00121          INFOT = 3
00122          CALL SGESVX( 'N', 'N', -1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1,
00123      $                X, 1, RCOND, R1, R2, W, IW, INFO )
00124          CALL CHKXER( 'SGESVX', INFOT, NOUT, LERR, OK )
00125          INFOT = 4
00126          CALL SGESVX( 'N', 'N', 0, -1, A, 1, AF, 1, IP, EQ, R, C, B, 1,
00127      $                X, 1, RCOND, R1, R2, W, IW, INFO )
00128          CALL CHKXER( 'SGESVX', INFOT, NOUT, LERR, OK )
00129          INFOT = 6
00130          CALL SGESVX( 'N', 'N', 2, 1, A, 1, AF, 2, IP, EQ, R, C, B, 2,
00131      $                X, 2, RCOND, R1, R2, W, IW, INFO )
00132          CALL CHKXER( 'SGESVX', INFOT, NOUT, LERR, OK )
00133          INFOT = 8
00134          CALL SGESVX( 'N', 'N', 2, 1, A, 2, AF, 1, IP, EQ, R, C, B, 2,
00135      $                X, 2, RCOND, R1, R2, W, IW, INFO )
00136          CALL CHKXER( 'SGESVX', INFOT, NOUT, LERR, OK )
00137          INFOT = 10
00138          EQ = '/'
00139          CALL SGESVX( 'F', 'N', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1,
00140      $                X, 1, RCOND, R1, R2, W, IW, INFO )
00141          CALL CHKXER( 'SGESVX', INFOT, NOUT, LERR, OK )
00142          INFOT = 11
00143          EQ = 'R'
00144          CALL SGESVX( 'F', 'N', 1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1,
00145      $                X, 1, RCOND, R1, R2, W, IW, INFO )
00146          CALL CHKXER( 'SGESVX', INFOT, NOUT, LERR, OK )
00147          INFOT = 12
00148          EQ = 'C'
00149          CALL SGESVX( 'F', 'N', 1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1,
00150      $                X, 1, RCOND, R1, R2, W, IW, INFO )
00151          CALL CHKXER( 'SGESVX', INFOT, NOUT, LERR, OK )
00152          INFOT = 14
00153          CALL SGESVX( 'N', 'N', 2, 1, A, 2, AF, 2, IP, EQ, R, C, B, 1,
00154      $                X, 2, RCOND, R1, R2, W, IW, INFO )
00155          CALL CHKXER( 'SGESVX', INFOT, NOUT, LERR, OK )
00156          INFOT = 16
00157          CALL SGESVX( 'N', 'N', 2, 1, A, 2, AF, 2, IP, EQ, R, C, B, 2,
00158      $                X, 1, RCOND, R1, R2, W, IW, INFO )
00159          CALL CHKXER( 'SGESVX', INFOT, NOUT, LERR, OK )
00160 *
00161       ELSE IF( LSAMEN( 2, C2, 'GB' ) ) THEN
00162 *
00163 *        SGBSV
00164 *
00165          SRNAMT = 'SGBSV '
00166          INFOT = 1
00167          CALL SGBSV( -1, 0, 0, 0, A, 1, IP, B, 1, INFO )
00168          CALL CHKXER( 'SGBSV ', INFOT, NOUT, LERR, OK )
00169          INFOT = 2
00170          CALL SGBSV( 1, -1, 0, 0, A, 1, IP, B, 1, INFO )
00171          CALL CHKXER( 'SGBSV ', INFOT, NOUT, LERR, OK )
00172          INFOT = 3
00173          CALL SGBSV( 1, 0, -1, 0, A, 1, IP, B, 1, INFO )
00174          CALL CHKXER( 'SGBSV ', INFOT, NOUT, LERR, OK )
00175          INFOT = 4
00176          CALL SGBSV( 0, 0, 0, -1, A, 1, IP, B, 1, INFO )
00177          CALL CHKXER( 'SGBSV ', INFOT, NOUT, LERR, OK )
00178          INFOT = 6
00179          CALL SGBSV( 1, 1, 1, 0, A, 3, IP, B, 1, INFO )
00180          CALL CHKXER( 'SGBSV ', INFOT, NOUT, LERR, OK )
00181          INFOT = 9
00182          CALL SGBSV( 2, 0, 0, 0, A, 1, IP, B, 1, INFO )
00183          CALL CHKXER( 'SGBSV ', INFOT, NOUT, LERR, OK )
00184 *
00185 *        SGBSVX
00186 *
00187          SRNAMT = 'SGBSVX'
00188          INFOT = 1
00189          CALL SGBSVX( '/', 'N', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
00190      $                B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00191          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00192          INFOT = 2
00193          CALL SGBSVX( 'N', '/', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
00194      $                B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00195          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00196          INFOT = 3
00197          CALL SGBSVX( 'N', 'N', -1, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
00198      $                B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00199          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00200          INFOT = 4
00201          CALL SGBSVX( 'N', 'N', 1, -1, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
00202      $                B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00203          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00204          INFOT = 5
00205          CALL SGBSVX( 'N', 'N', 1, 0, -1, 0, A, 1, AF, 1, IP, EQ, R, C,
00206      $                B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00207          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00208          INFOT = 6
00209          CALL SGBSVX( 'N', 'N', 0, 0, 0, -1, A, 1, AF, 1, IP, EQ, R, C,
00210      $                B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00211          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00212          INFOT = 8
00213          CALL SGBSVX( 'N', 'N', 1, 1, 1, 0, A, 2, AF, 4, IP, EQ, R, C,
00214      $                B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00215          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00216          INFOT = 10
00217          CALL SGBSVX( 'N', 'N', 1, 1, 1, 0, A, 3, AF, 3, IP, EQ, R, C,
00218      $                B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00219          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00220          INFOT = 12
00221          EQ = '/'
00222          CALL SGBSVX( 'F', 'N', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
00223      $                B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00224          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00225          INFOT = 13
00226          EQ = 'R'
00227          CALL SGBSVX( 'F', 'N', 1, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
00228      $                B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00229          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00230          INFOT = 14
00231          EQ = 'C'
00232          CALL SGBSVX( 'F', 'N', 1, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
00233      $                B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00234          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00235          INFOT = 16
00236          CALL SGBSVX( 'N', 'N', 2, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
00237      $                B, 1, X, 2, RCOND, R1, R2, W, IW, INFO )
00238          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00239          INFOT = 18
00240          CALL SGBSVX( 'N', 'N', 2, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
00241      $                B, 2, X, 1, RCOND, R1, R2, W, IW, INFO )
00242          CALL CHKXER( 'SGBSVX', INFOT, NOUT, LERR, OK )
00243 *
00244       ELSE IF( LSAMEN( 2, C2, 'GT' ) ) THEN
00245 *
00246 *        SGTSV
00247 *
00248          SRNAMT = 'SGTSV '
00249          INFOT = 1
00250          CALL SGTSV( -1, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), B, 1,
00251      $               INFO )
00252          CALL CHKXER( 'SGTSV ', INFOT, NOUT, LERR, OK )
00253          INFOT = 2
00254          CALL SGTSV( 0, -1, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), B, 1,
00255      $               INFO )
00256          CALL CHKXER( 'SGTSV ', INFOT, NOUT, LERR, OK )
00257          INFOT = 7
00258          CALL SGTSV( 2, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ), B, 1, INFO )
00259          CALL CHKXER( 'SGTSV ', INFOT, NOUT, LERR, OK )
00260 *
00261 *        SGTSVX
00262 *
00263          SRNAMT = 'SGTSVX'
00264          INFOT = 1
00265          CALL SGTSVX( '/', 'N', 0, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ),
00266      $                AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ),
00267      $                IP, B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00268          CALL CHKXER( 'SGTSVX', INFOT, NOUT, LERR, OK )
00269          INFOT = 2
00270          CALL SGTSVX( 'N', '/', 0, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ),
00271      $                AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ),
00272      $                IP, B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00273          CALL CHKXER( 'SGTSVX', INFOT, NOUT, LERR, OK )
00274          INFOT = 3
00275          CALL SGTSVX( 'N', 'N', -1, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ),
00276      $                AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ),
00277      $                IP, B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00278          CALL CHKXER( 'SGTSVX', INFOT, NOUT, LERR, OK )
00279          INFOT = 4
00280          CALL SGTSVX( 'N', 'N', 0, -1, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ),
00281      $                AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ),
00282      $                IP, B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
00283          CALL CHKXER( 'SGTSVX', INFOT, NOUT, LERR, OK )
00284          INFOT = 14
00285          CALL SGTSVX( 'N', 'N', 2, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ),
00286      $                AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ),
00287      $                IP, B, 1, X, 2, RCOND, R1, R2, W, IW, INFO )
00288          CALL CHKXER( 'SGTSVX', INFOT, NOUT, LERR, OK )
00289          INFOT = 16
00290          CALL SGTSVX( 'N', 'N', 2, 0, A( 1, 1 ), A( 1, 2 ), A( 1, 3 ),
00291      $                AF( 1, 1 ), AF( 1, 2 ), AF( 1, 3 ), AF( 1, 4 ),
00292      $                IP, B, 2, X, 1, RCOND, R1, R2, W, IW, INFO )
00293          CALL CHKXER( 'SGTSVX', INFOT, NOUT, LERR, OK )
00294 *
00295       ELSE IF( LSAMEN( 2, C2, 'PO' ) ) THEN
00296 *
00297 *        SPOSV
00298 *
00299          SRNAMT = 'SPOSV '
00300          INFOT = 1
00301          CALL SPOSV( '/', 0, 0, A, 1, B, 1, INFO )
00302          CALL CHKXER( 'SPOSV ', INFOT, NOUT, LERR, OK )
00303          INFOT = 2
00304          CALL SPOSV( 'U', -1, 0, A, 1, B, 1, INFO )
00305          CALL CHKXER( 'SPOSV ', INFOT, NOUT, LERR, OK )
00306          INFOT = 3
00307          CALL SPOSV( 'U', 0, -1, A, 1, B, 1, INFO )
00308          CALL CHKXER( 'SPOSV ', INFOT, NOUT, LERR, OK )
00309          INFOT = 5
00310          CALL SPOSV( 'U', 2, 0, A, 1, B, 2, INFO )
00311          CALL CHKXER( 'SPOSV ', INFOT, NOUT, LERR, OK )
00312          INFOT = 7
00313          CALL SPOSV( 'U', 2, 0, A, 2, B, 1, INFO )
00314          CALL CHKXER( 'SPOSV ', INFOT, NOUT, LERR, OK )
00315 *
00316 *        SPOSVX
00317 *
00318          SRNAMT = 'SPOSVX'
00319          INFOT = 1
00320          CALL SPOSVX( '/', 'U', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
00321      $                RCOND, R1, R2, W, IW, INFO )
00322          CALL CHKXER( 'SPOSVX', INFOT, NOUT, LERR, OK )
00323          INFOT = 2
00324          CALL SPOSVX( 'N', '/', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
00325      $                RCOND, R1, R2, W, IW, INFO )
00326          CALL CHKXER( 'SPOSVX', INFOT, NOUT, LERR, OK )
00327          INFOT = 3
00328          CALL SPOSVX( 'N', 'U', -1, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
00329      $                RCOND, R1, R2, W, IW, INFO )
00330          CALL CHKXER( 'SPOSVX', INFOT, NOUT, LERR, OK )
00331          INFOT = 4
00332          CALL SPOSVX( 'N', 'U', 0, -1, A, 1, AF, 1, EQ, C, B, 1, X, 1,
00333      $                RCOND, R1, R2, W, IW, INFO )
00334          CALL CHKXER( 'SPOSVX', INFOT, NOUT, LERR, OK )
00335          INFOT = 6
00336          CALL SPOSVX( 'N', 'U', 2, 0, A, 1, AF, 2, EQ, C, B, 2, X, 2,
00337      $                RCOND, R1, R2, W, IW, INFO )
00338          CALL CHKXER( 'SPOSVX', INFOT, NOUT, LERR, OK )
00339          INFOT = 8
00340          CALL SPOSVX( 'N', 'U', 2, 0, A, 2, AF, 1, EQ, C, B, 2, X, 2,
00341      $                RCOND, R1, R2, W, IW, INFO )
00342          CALL CHKXER( 'SPOSVX', INFOT, NOUT, LERR, OK )
00343          INFOT = 9
00344          EQ = '/'
00345          CALL SPOSVX( 'F', 'U', 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
00346      $                RCOND, R1, R2, W, IW, INFO )
00347          CALL CHKXER( 'SPOSVX', INFOT, NOUT, LERR, OK )
00348          INFOT = 10
00349          EQ = 'Y'
00350          CALL SPOSVX( 'F', 'U', 1, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
00351      $                RCOND, R1, R2, W, IW, INFO )
00352          CALL CHKXER( 'SPOSVX', INFOT, NOUT, LERR, OK )
00353          INFOT = 12
00354          CALL SPOSVX( 'N', 'U', 2, 0, A, 2, AF, 2, EQ, C, B, 1, X, 2,
00355      $                RCOND, R1, R2, W, IW, INFO )
00356          CALL CHKXER( 'SPOSVX', INFOT, NOUT, LERR, OK )
00357          INFOT = 14
00358          CALL SPOSVX( 'N', 'U', 2, 0, A, 2, AF, 2, EQ, C, B, 2, X, 1,
00359      $                RCOND, R1, R2, W, IW, INFO )
00360          CALL CHKXER( 'SPOSVX', INFOT, NOUT, LERR, OK )
00361 *
00362       ELSE IF( LSAMEN( 2, C2, 'PP' ) ) THEN
00363 *
00364 *        SPPSV
00365 *
00366          SRNAMT = 'SPPSV '
00367          INFOT = 1
00368          CALL SPPSV( '/', 0, 0, A, B, 1, INFO )
00369          CALL CHKXER( 'SPPSV ', INFOT, NOUT, LERR, OK )
00370          INFOT = 2
00371          CALL SPPSV( 'U', -1, 0, A, B, 1, INFO )
00372          CALL CHKXER( 'SPPSV ', INFOT, NOUT, LERR, OK )
00373          INFOT = 3
00374          CALL SPPSV( 'U', 0, -1, A, B, 1, INFO )
00375          CALL CHKXER( 'SPPSV ', INFOT, NOUT, LERR, OK )
00376          INFOT = 6
00377          CALL SPPSV( 'U', 2, 0, A, B, 1, INFO )
00378          CALL CHKXER( 'SPPSV ', INFOT, NOUT, LERR, OK )
00379 *
00380 *        SPPSVX
00381 *
00382          SRNAMT = 'SPPSVX'
00383          INFOT = 1
00384          CALL SPPSVX( '/', 'U', 0, 0, A, AF, EQ, C, B, 1, X, 1, RCOND,
00385      $                R1, R2, W, IW, INFO )
00386          CALL CHKXER( 'SPPSVX', INFOT, NOUT, LERR, OK )
00387          INFOT = 2
00388          CALL SPPSVX( 'N', '/', 0, 0, A, AF, EQ, C, B, 1, X, 1, RCOND,
00389      $                R1, R2, W, IW, INFO )
00390          CALL CHKXER( 'SPPSVX', INFOT, NOUT, LERR, OK )
00391          INFOT = 3
00392          CALL SPPSVX( 'N', 'U', -1, 0, A, AF, EQ, C, B, 1, X, 1, RCOND,
00393      $                R1, R2, W, IW, INFO )
00394          CALL CHKXER( 'SPPSVX', INFOT, NOUT, LERR, OK )
00395          INFOT = 4
00396          CALL SPPSVX( 'N', 'U', 0, -1, A, AF, EQ, C, B, 1, X, 1, RCOND,
00397      $                R1, R2, W, IW, INFO )
00398          CALL CHKXER( 'SPPSVX', INFOT, NOUT, LERR, OK )
00399          INFOT = 7
00400          EQ = '/'
00401          CALL SPPSVX( 'F', 'U', 0, 0, A, AF, EQ, C, B, 1, X, 1, RCOND,
00402      $                R1, R2, W, IW, INFO )
00403          CALL CHKXER( 'SPPSVX', INFOT, NOUT, LERR, OK )
00404          INFOT = 8
00405          EQ = 'Y'
00406          CALL SPPSVX( 'F', 'U', 1, 0, A, AF, EQ, C, B, 1, X, 1, RCOND,
00407      $                R1, R2, W, IW, INFO )
00408          CALL CHKXER( 'SPPSVX', INFOT, NOUT, LERR, OK )
00409          INFOT = 10
00410          CALL SPPSVX( 'N', 'U', 2, 0, A, AF, EQ, C, B, 1, X, 2, RCOND,
00411      $                R1, R2, W, IW, INFO )
00412          CALL CHKXER( 'SPPSVX', INFOT, NOUT, LERR, OK )
00413          INFOT = 12
00414          CALL SPPSVX( 'N', 'U', 2, 0, A, AF, EQ, C, B, 2, X, 1, RCOND,
00415      $                R1, R2, W, IW, INFO )
00416          CALL CHKXER( 'SPPSVX', INFOT, NOUT, LERR, OK )
00417 *
00418       ELSE IF( LSAMEN( 2, C2, 'PB' ) ) THEN
00419 *
00420 *        SPBSV
00421 *
00422          SRNAMT = 'SPBSV '
00423          INFOT = 1
00424          CALL SPBSV( '/', 0, 0, 0, A, 1, B, 1, INFO )
00425          CALL CHKXER( 'SPBSV ', INFOT, NOUT, LERR, OK )
00426          INFOT = 2
00427          CALL SPBSV( 'U', -1, 0, 0, A, 1, B, 1, INFO )
00428          CALL CHKXER( 'SPBSV ', INFOT, NOUT, LERR, OK )
00429          INFOT = 3
00430          CALL SPBSV( 'U', 1, -1, 0, A, 1, B, 1, INFO )
00431          CALL CHKXER( 'SPBSV ', INFOT, NOUT, LERR, OK )
00432          INFOT = 4
00433          CALL SPBSV( 'U', 0, 0, -1, A, 1, B, 1, INFO )
00434          CALL CHKXER( 'SPBSV ', INFOT, NOUT, LERR, OK )
00435          INFOT = 6
00436          CALL SPBSV( 'U', 1, 1, 0, A, 1, B, 2, INFO )
00437          CALL CHKXER( 'SPBSV ', INFOT, NOUT, LERR, OK )
00438          INFOT = 8
00439          CALL SPBSV( 'U', 2, 0, 0, A, 1, B, 1, INFO )
00440          CALL CHKXER( 'SPBSV ', INFOT, NOUT, LERR, OK )
00441 *
00442 *        SPBSVX
00443 *
00444          SRNAMT = 'SPBSVX'
00445          INFOT = 1
00446          CALL SPBSVX( '/', 'U', 0, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
00447      $                RCOND, R1, R2, W, IW, INFO )
00448          CALL CHKXER( 'SPBSVX', INFOT, NOUT, LERR, OK )
00449          INFOT = 2
00450          CALL SPBSVX( 'N', '/', 0, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
00451      $                RCOND, R1, R2, W, IW, INFO )
00452          CALL CHKXER( 'SPBSVX', INFOT, NOUT, LERR, OK )
00453          INFOT = 3
00454          CALL SPBSVX( 'N', 'U', -1, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X,
00455      $                1, RCOND, R1, R2, W, IW, INFO )
00456          CALL CHKXER( 'SPBSVX', INFOT, NOUT, LERR, OK )
00457          INFOT = 4
00458          CALL SPBSVX( 'N', 'U', 1, -1, 0, A, 1, AF, 1, EQ, C, B, 1, X,
00459      $                1, RCOND, R1, R2, W, IW, INFO )
00460          CALL CHKXER( 'SPBSVX', INFOT, NOUT, LERR, OK )
00461          INFOT = 5
00462          CALL SPBSVX( 'N', 'U', 0, 0, -1, A, 1, AF, 1, EQ, C, B, 1, X,
00463      $                1, RCOND, R1, R2, W, IW, INFO )
00464          CALL CHKXER( 'SPBSVX', INFOT, NOUT, LERR, OK )
00465          INFOT = 7
00466          CALL SPBSVX( 'N', 'U', 1, 1, 0, A, 1, AF, 2, EQ, C, B, 2, X, 2,
00467      $                RCOND, R1, R2, W, IW, INFO )
00468          CALL CHKXER( 'SPBSVX', INFOT, NOUT, LERR, OK )
00469          INFOT = 9
00470          CALL SPBSVX( 'N', 'U', 1, 1, 0, A, 2, AF, 1, EQ, C, B, 2, X, 2,
00471      $                RCOND, R1, R2, W, IW, INFO )
00472          CALL CHKXER( 'SPBSVX', INFOT, NOUT, LERR, OK )
00473          INFOT = 10
00474          EQ = '/'
00475          CALL SPBSVX( 'F', 'U', 0, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
00476      $                RCOND, R1, R2, W, IW, INFO )
00477          CALL CHKXER( 'SPBSVX', INFOT, NOUT, LERR, OK )
00478          INFOT = 11
00479          EQ = 'Y'
00480          CALL SPBSVX( 'F', 'U', 1, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
00481      $                RCOND, R1, R2, W, IW, INFO )
00482          CALL CHKXER( 'SPBSVX', INFOT, NOUT, LERR, OK )
00483          INFOT = 13
00484          CALL SPBSVX( 'N', 'U', 2, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 2,
00485      $                RCOND, R1, R2, W, IW, INFO )
00486          CALL CHKXER( 'SPBSVX', INFOT, NOUT, LERR, OK )
00487          INFOT = 15
00488          CALL SPBSVX( 'N', 'U', 2, 0, 0, A, 1, AF, 1, EQ, C, B, 2, X, 1,
00489      $                RCOND, R1, R2, W, IW, INFO )
00490          CALL CHKXER( 'SPBSVX', INFOT, NOUT, LERR, OK )
00491 *
00492       ELSE IF( LSAMEN( 2, C2, 'PT' ) ) THEN
00493 *
00494 *        SPTSV
00495 *
00496          SRNAMT = 'SPTSV '
00497          INFOT = 1
00498          CALL SPTSV( -1, 0, A( 1, 1 ), A( 1, 2 ), B, 1, INFO )
00499          CALL CHKXER( 'SPTSV ', INFOT, NOUT, LERR, OK )
00500          INFOT = 2
00501          CALL SPTSV( 0, -1, A( 1, 1 ), A( 1, 2 ), B, 1, INFO )
00502          CALL CHKXER( 'SPTSV ', INFOT, NOUT, LERR, OK )
00503          INFOT = 6
00504          CALL SPTSV( 2, 0, A( 1, 1 ), A( 1, 2 ), B, 1, INFO )
00505          CALL CHKXER( 'SPTSV ', INFOT, NOUT, LERR, OK )
00506 *
00507 *        SPTSVX
00508 *
00509          SRNAMT = 'SPTSVX'
00510          INFOT = 1
00511          CALL SPTSVX( '/', 0, 0, A( 1, 1 ), A( 1, 2 ), AF( 1, 1 ),
00512      $                AF( 1, 2 ), B, 1, X, 1, RCOND, R1, R2, W, INFO )
00513          CALL CHKXER( 'SPTSVX', INFOT, NOUT, LERR, OK )
00514          INFOT = 2
00515          CALL SPTSVX( 'N', -1, 0, A( 1, 1 ), A( 1, 2 ), AF( 1, 1 ),
00516      $                AF( 1, 2 ), B, 1, X, 1, RCOND, R1, R2, W, INFO )
00517          CALL CHKXER( 'SPTSVX', INFOT, NOUT, LERR, OK )
00518          INFOT = 3
00519          CALL SPTSVX( 'N', 0, -1, A( 1, 1 ), A( 1, 2 ), AF( 1, 1 ),
00520      $                AF( 1, 2 ), B, 1, X, 1, RCOND, R1, R2, W, INFO )
00521          CALL CHKXER( 'SPTSVX', INFOT, NOUT, LERR, OK )
00522          INFOT = 9
00523          CALL SPTSVX( 'N', 2, 0, A( 1, 1 ), A( 1, 2 ), AF( 1, 1 ),
00524      $                AF( 1, 2 ), B, 1, X, 2, RCOND, R1, R2, W, INFO )
00525          CALL CHKXER( 'SPTSVX', INFOT, NOUT, LERR, OK )
00526          INFOT = 11
00527          CALL SPTSVX( 'N', 2, 0, A( 1, 1 ), A( 1, 2 ), AF( 1, 1 ),
00528      $                AF( 1, 2 ), B, 2, X, 1, RCOND, R1, R2, W, INFO )
00529          CALL CHKXER( 'SPTSVX', INFOT, NOUT, LERR, OK )
00530 *
00531       ELSE IF( LSAMEN( 2, C2, 'SY' ) ) THEN
00532 *
00533 *        SSYSV
00534 *
00535          SRNAMT = 'SSYSV '
00536          INFOT = 1
00537          CALL SSYSV( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
00538          CALL CHKXER( 'SSYSV ', INFOT, NOUT, LERR, OK )
00539          INFOT = 2
00540          CALL SSYSV( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
00541          CALL CHKXER( 'SSYSV ', INFOT, NOUT, LERR, OK )
00542          INFOT = 3
00543          CALL SSYSV( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
00544          CALL CHKXER( 'SSYSV ', INFOT, NOUT, LERR, OK )
00545          INFOT = 8
00546          CALL SSYSV( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
00547          CALL CHKXER( 'SSYSV ', INFOT, NOUT, LERR, OK )
00548 *
00549 *        SSYSVX
00550 *
00551          SRNAMT = 'SSYSVX'
00552          INFOT = 1
00553          CALL SSYSVX( '/', 'U', 0, 0, A, 1, AF, 1, IP, B, 1, X, 1,
00554      $                RCOND, R1, R2, W, 1, IW, INFO )
00555          CALL CHKXER( 'SSYSVX', INFOT, NOUT, LERR, OK )
00556          INFOT = 2
00557          CALL SSYSVX( 'N', '/', 0, 0, A, 1, AF, 1, IP, B, 1, X, 1,
00558      $                RCOND, R1, R2, W, 1, IW, INFO )
00559          CALL CHKXER( 'SSYSVX', INFOT, NOUT, LERR, OK )
00560          INFOT = 3
00561          CALL SSYSVX( 'N', 'U', -1, 0, A, 1, AF, 1, IP, B, 1, X, 1,
00562      $                RCOND, R1, R2, W, 1, IW, INFO )
00563          CALL CHKXER( 'SSYSVX', INFOT, NOUT, LERR, OK )
00564          INFOT = 4
00565          CALL SSYSVX( 'N', 'U', 0, -1, A, 1, AF, 1, IP, B, 1, X, 1,
00566      $                RCOND, R1, R2, W, 1, IW, INFO )
00567          CALL CHKXER( 'SSYSVX', INFOT, NOUT, LERR, OK )
00568          INFOT = 6
00569          CALL SSYSVX( 'N', 'U', 2, 0, A, 1, AF, 2, IP, B, 2, X, 2,
00570      $                RCOND, R1, R2, W, 4, IW, INFO )
00571          CALL CHKXER( 'SSYSVX', INFOT, NOUT, LERR, OK )
00572          INFOT = 8
00573          CALL SSYSVX( 'N', 'U', 2, 0, A, 2, AF, 1, IP, B, 2, X, 2,
00574      $                RCOND, R1, R2, W, 4, IW, INFO )
00575          CALL CHKXER( 'SSYSVX', INFOT, NOUT, LERR, OK )
00576          INFOT = 11
00577          CALL SSYSVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 1, X, 2,
00578      $                RCOND, R1, R2, W, 4, IW, INFO )
00579          CALL CHKXER( 'SSYSVX', INFOT, NOUT, LERR, OK )
00580          INFOT = 13
00581          CALL SSYSVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 2, X, 1,
00582      $                RCOND, R1, R2, W, 4, IW, INFO )
00583          CALL CHKXER( 'SSYSVX', INFOT, NOUT, LERR, OK )
00584          INFOT = 18
00585          CALL SSYSVX( 'N', 'U', 2, 0, A, 2, AF, 2, IP, B, 2, X, 2,
00586      $                RCOND, R1, R2, W, 3, IW, INFO )
00587          CALL CHKXER( 'SSYSVX', INFOT, NOUT, LERR, OK )
00588 *
00589       ELSE IF( LSAMEN( 2, C2, 'SP' ) ) THEN
00590 *
00591 *        SSPSV
00592 *
00593          SRNAMT = 'SSPSV '
00594          INFOT = 1
00595          CALL SSPSV( '/', 0, 0, A, IP, B, 1, INFO )
00596          CALL CHKXER( 'SSPSV ', INFOT, NOUT, LERR, OK )
00597          INFOT = 2
00598          CALL SSPSV( 'U', -1, 0, A, IP, B, 1, INFO )
00599          CALL CHKXER( 'SSPSV ', INFOT, NOUT, LERR, OK )
00600          INFOT = 3
00601          CALL SSPSV( 'U', 0, -1, A, IP, B, 1, INFO )
00602          CALL CHKXER( 'SSPSV ', INFOT, NOUT, LERR, OK )
00603          INFOT = 7
00604          CALL SSPSV( 'U', 2, 0, A, IP, B, 1, INFO )
00605          CALL CHKXER( 'SSPSV ', INFOT, NOUT, LERR, OK )
00606 *
00607 *        SSPSVX
00608 *
00609          SRNAMT = 'SSPSVX'
00610          INFOT = 1
00611          CALL SSPSVX( '/', 'U', 0, 0, A, AF, IP, B, 1, X, 1, RCOND, R1,
00612      $                R2, W, IW, INFO )
00613          CALL CHKXER( 'SSPSVX', INFOT, NOUT, LERR, OK )
00614          INFOT = 2
00615          CALL SSPSVX( 'N', '/', 0, 0, A, AF, IP, B, 1, X, 1, RCOND, R1,
00616      $                R2, W, IW, INFO )
00617          CALL CHKXER( 'SSPSVX', INFOT, NOUT, LERR, OK )
00618          INFOT = 3
00619          CALL SSPSVX( 'N', 'U', -1, 0, A, AF, IP, B, 1, X, 1, RCOND, R1,
00620      $                R2, W, IW, INFO )
00621          CALL CHKXER( 'SSPSVX', INFOT, NOUT, LERR, OK )
00622          INFOT = 4
00623          CALL SSPSVX( 'N', 'U', 0, -1, A, AF, IP, B, 1, X, 1, RCOND, R1,
00624      $                R2, W, IW, INFO )
00625          CALL CHKXER( 'SSPSVX', INFOT, NOUT, LERR, OK )
00626          INFOT = 9
00627          CALL SSPSVX( 'N', 'U', 2, 0, A, AF, IP, B, 1, X, 2, RCOND, R1,
00628      $                R2, W, IW, INFO )
00629          CALL CHKXER( 'SSPSVX', INFOT, NOUT, LERR, OK )
00630          INFOT = 11
00631          CALL SSPSVX( 'N', 'U', 2, 0, A, AF, IP, B, 2, X, 1, RCOND, R1,
00632      $                R2, W, IW, INFO )
00633          CALL CHKXER( 'SSPSVX', INFOT, NOUT, LERR, OK )
00634       END IF
00635 *
00636 *     Print a summary line.
00637 *
00638       IF( OK ) THEN
00639          WRITE( NOUT, FMT = 9999 )PATH
00640       ELSE
00641          WRITE( NOUT, FMT = 9998 )PATH
00642       END IF
00643 *
00644  9999 FORMAT( 1X, A3, ' drivers passed the tests of the error exits' )
00645  9998 FORMAT( ' *** ', A3, ' drivers failed the tests of the error ',
00646      $      'exits ***' )
00647 *
00648       RETURN
00649 *
00650 *     End of SERRVX
00651 *
00652       END
 All Files Functions