LAPACK: TESTING/LIN/derrpox.f Source File

Go to the documentation of this file.
00001       SUBROUTINE DERRPO( PATH, NUNIT )
00002 *
00003 *  -- LAPACK test routine (version 3.2.1) --
00004 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
00005 *     April 2009
00006 *
00007 *     .. Scalar Arguments ..
00008       CHARACTER*3        PATH
00009       INTEGER            NUNIT
00010 *     ..
00011 *
00012 *  Purpose
00013 *  =======
00014 *
00015 *  DERRPO tests the error exits for the DOUBLE PRECISION routines
00016 *  for symmetric positive definite matrices.
00017 *
00018 *  Note that this file is used only when the XBLAS are available,
00019 *  otherwise derrpo.f defines this subroutine.
00020 *
00021 *  Arguments
00022 *  =========
00023 *
00024 *  PATH    (input) CHARACTER*3
00025 *          The LAPACK path name for the routines to be tested.
00026 *
00027 *  NUNIT   (input) INTEGER
00028 *          The unit number for output.
00029 *
00030 *  =====================================================================
00031 *
00032 *     .. Parameters ..
00033       INTEGER            NMAX
00034       PARAMETER          ( NMAX = 4 )
00035 *     ..
00036 *     .. Local Scalars ..
00037       CHARACTER          EQ
00038       CHARACTER*2        C2
00039       INTEGER            I, INFO, J, N_ERR_BNDS, NPARAMS
00040       DOUBLE PRECISION   ANRM, RCOND, BERR
00041 *     ..
00042 *     .. Local Arrays ..
00043       INTEGER            IW( NMAX )
00044       DOUBLE PRECISION   A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ),
00045      $                   R1( NMAX ), R2( NMAX ), W( 3*NMAX ), X( NMAX ),
00046      $                   S( NMAX ), ERR_BNDS_N( NMAX, 3 ),
00047      $                   ERR_BNDS_C( NMAX, 3), PARAMS( 1 )
00048 *     ..
00049 *     .. External Functions ..
00050       LOGICAL            LSAMEN
00051       EXTERNAL           LSAMEN
00052 *     ..
00053 *     .. External Subroutines ..
00054       EXTERNAL           ALAESM, CHKXER, DPBCON, DPBEQU, DPBRFS, DPBTF2,
00055      $                   DPBTRF, DPBTRS, DPOCON, DPOEQU, DPORFS, DPOTF2,
00056      $                   DPOTRF, DPOTRI, DPOTRS, DPPCON, DPPEQU, DPPRFS,
00057      $                   DPPTRF, DPPTRI, DPPTRS, DPOEQUB, DPORFSX
00058 *     ..
00059 *     .. Scalars in Common ..
00060       LOGICAL            LERR, OK
00061       CHARACTER*32       SRNAMT
00062       INTEGER            INFOT, NOUT
00063 *     ..
00064 *     .. Common blocks ..
00065       COMMON             / INFOC / INFOT, NOUT, OK, LERR
00066       COMMON             / SRNAMC / SRNAMT
00067 *     ..
00068 *     .. Intrinsic Functions ..
00069       INTRINSIC          DBLE
00070 *     ..
00071 *     .. Executable Statements ..
00072 *
00073       NOUT = NUNIT
00074       WRITE( NOUT, FMT = * )
00075       C2 = PATH( 2: 3 )
00076 *
00077 *     Set the variables to innocuous values.
00078 *
00079       DO 20 J = 1, NMAX
00080          DO 10 I = 1, NMAX
00081             A( I, J ) = 1.D0 / DBLE( I+J )
00082             AF( I, J ) = 1.D0 / DBLE( I+J )
00083    10    CONTINUE
00084          B( J ) = 0.D0
00085          R1( J ) = 0.D0
00086          R2( J ) = 0.D0
00087          W( J ) = 0.D0
00088          X( J ) = 0.D0
00089          S( J ) = 0.D0
00090          IW( J ) = J
00091    20 CONTINUE
00092       OK = .TRUE.
00093 *
00094       IF( LSAMEN( 2, C2, 'PO' ) ) THEN
00095 *
00096 *        Test error exits of the routines that use the Cholesky
00097 *        decomposition of a symmetric positive definite matrix.
00098 *
00099 *        DPOTRF
00100 *
00101          SRNAMT = 'DPOTRF'
00102          INFOT = 1
00103          CALL DPOTRF( '/', 0, A, 1, INFO )
00104          CALL CHKXER( 'DPOTRF', INFOT, NOUT, LERR, OK )
00105          INFOT = 2
00106          CALL DPOTRF( 'U', -1, A, 1, INFO )
00107          CALL CHKXER( 'DPOTRF', INFOT, NOUT, LERR, OK )
00108          INFOT = 4
00109          CALL DPOTRF( 'U', 2, A, 1, INFO )
00110          CALL CHKXER( 'DPOTRF', INFOT, NOUT, LERR, OK )
00111 *
00112 *        DPOTF2
00113 *
00114          SRNAMT = 'DPOTF2'
00115          INFOT = 1
00116          CALL DPOTF2( '/', 0, A, 1, INFO )
00117          CALL CHKXER( 'DPOTF2', INFOT, NOUT, LERR, OK )
00118          INFOT = 2
00119          CALL DPOTF2( 'U', -1, A, 1, INFO )
00120          CALL CHKXER( 'DPOTF2', INFOT, NOUT, LERR, OK )
00121          INFOT = 4
00122          CALL DPOTF2( 'U', 2, A, 1, INFO )
00123          CALL CHKXER( 'DPOTF2', INFOT, NOUT, LERR, OK )
00124 *
00125 *        DPOTRI
00126 *
00127          SRNAMT = 'DPOTRI'
00128          INFOT = 1
00129          CALL DPOTRI( '/', 0, A, 1, INFO )
00130          CALL CHKXER( 'DPOTRI', INFOT, NOUT, LERR, OK )
00131          INFOT = 2
00132          CALL DPOTRI( 'U', -1, A, 1, INFO )
00133          CALL CHKXER( 'DPOTRI', INFOT, NOUT, LERR, OK )
00134          INFOT = 4
00135          CALL DPOTRI( 'U', 2, A, 1, INFO )
00136          CALL CHKXER( 'DPOTRI', INFOT, NOUT, LERR, OK )
00137 *
00138 *        DPOTRS
00139 *
00140          SRNAMT = 'DPOTRS'
00141          INFOT = 1
00142          CALL DPOTRS( '/', 0, 0, A, 1, B, 1, INFO )
00143          CALL CHKXER( 'DPOTRS', INFOT, NOUT, LERR, OK )
00144          INFOT = 2
00145          CALL DPOTRS( 'U', -1, 0, A, 1, B, 1, INFO )
00146          CALL CHKXER( 'DPOTRS', INFOT, NOUT, LERR, OK )
00147          INFOT = 3
00148          CALL DPOTRS( 'U', 0, -1, A, 1, B, 1, INFO )
00149          CALL CHKXER( 'DPOTRS', INFOT, NOUT, LERR, OK )
00150          INFOT = 5
00151          CALL DPOTRS( 'U', 2, 1, A, 1, B, 2, INFO )
00152          CALL CHKXER( 'DPOTRS', INFOT, NOUT, LERR, OK )
00153          INFOT = 7
00154          CALL DPOTRS( 'U', 2, 1, A, 2, B, 1, INFO )
00155          CALL CHKXER( 'DPOTRS', INFOT, NOUT, LERR, OK )
00156 *
00157 *        DPORFS
00158 *
00159          SRNAMT = 'DPORFS'
00160          INFOT = 1
00161          CALL DPORFS( '/', 0, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W, IW,
00162      $                INFO )
00163          CALL CHKXER( 'DPORFS', INFOT, NOUT, LERR, OK )
00164          INFOT = 2
00165          CALL DPORFS( 'U', -1, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W,
00166      $                IW, INFO )
00167          CALL CHKXER( 'DPORFS', INFOT, NOUT, LERR, OK )
00168          INFOT = 3
00169          CALL DPORFS( 'U', 0, -1, A, 1, AF, 1, B, 1, X, 1, R1, R2, W,
00170      $                IW, INFO )
00171          CALL CHKXER( 'DPORFS', INFOT, NOUT, LERR, OK )
00172          INFOT = 5
00173          CALL DPORFS( 'U', 2, 1, A, 1, AF, 2, B, 2, X, 2, R1, R2, W, IW,
00174      $                INFO )
00175          CALL CHKXER( 'DPORFS', INFOT, NOUT, LERR, OK )
00176          INFOT = 7
00177          CALL DPORFS( 'U', 2, 1, A, 2, AF, 1, B, 2, X, 2, R1, R2, W, IW,
00178      $                INFO )
00179          CALL CHKXER( 'DPORFS', INFOT, NOUT, LERR, OK )
00180          INFOT = 9
00181          CALL DPORFS( 'U', 2, 1, A, 2, AF, 2, B, 1, X, 2, R1, R2, W, IW,
00182      $                INFO )
00183          CALL CHKXER( 'DPORFS', INFOT, NOUT, LERR, OK )
00184          INFOT = 11
00185          CALL DPORFS( 'U', 2, 1, A, 2, AF, 2, B, 2, X, 1, R1, R2, W, IW,
00186      $                INFO )
00187          CALL CHKXER( 'DPORFS', INFOT, NOUT, LERR, OK )
00188 *
00189 *        DPORFSX
00190 *
00191          N_ERR_BNDS = 3
00192          NPARAMS = 0
00193          SRNAMT = 'DPORFSX'
00194          INFOT = 1
00195          CALL DPORFSX( '/', EQ, 0, 0, A, 1, AF, 1, S, B, 1, X, 1,
00196      $        RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
00197      $        PARAMS, W, IW, INFO )
00198          CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK )
00199          INFOT = 2
00200          CALL DPORFSX( 'U', EQ, -1, 0, A, 1, AF, 1, S, B, 1, X, 1,
00201      $        RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
00202      $        PARAMS, W, IW, INFO )
00203          CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK )
00204          EQ = 'N'
00205          INFOT = 3
00206          CALL DPORFSX( 'U', EQ, -1, 0, A, 1, AF, 1, S, B, 1, X, 1,
00207      $        RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
00208      $        PARAMS, W, IW, INFO )
00209          CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK )
00210          INFOT = 4
00211          CALL DPORFSX( 'U', EQ, 0, -1, A, 1, AF, 1, S, B, 1, X, 1,
00212      $        RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
00213      $        PARAMS, W, IW, INFO )
00214          CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK )
00215          INFOT = 6
00216          CALL DPORFSX( 'U', EQ, 2, 1, A, 1, AF, 2, S, B, 2, X, 2,
00217      $        RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
00218      $        PARAMS, W, IW, INFO )
00219          CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK )
00220          INFOT = 8
00221          CALL DPORFSX( 'U', EQ, 2, 1, A, 2, AF, 1, S, B, 2, X, 2,
00222      $        RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
00223      $        PARAMS, W, IW, INFO )
00224          CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK )
00225          INFOT = 11
00226          CALL DPORFSX( 'U', EQ, 2, 1, A, 2, AF, 2, S, B, 1, X, 2,
00227      $        RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
00228      $        PARAMS, W, IW, INFO )
00229          CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK )
00230          INFOT = 13
00231          CALL DPORFSX( 'U', EQ, 2, 1, A, 2, AF, 2, S, B, 2, X, 1,
00232      $        RCOND, BERR, N_ERR_BNDS, ERR_BNDS_N, ERR_BNDS_C, NPARAMS,
00233      $        PARAMS, W, IW, INFO )
00234          CALL CHKXER( 'DPORFSX', INFOT, NOUT, LERR, OK )
00235 *
00236 *        DPOCON
00237 *
00238          SRNAMT = 'DPOCON'
00239          INFOT = 1
00240          CALL DPOCON( '/', 0, A, 1, ANRM, RCOND, W, IW, INFO )
00241          CALL CHKXER( 'DPOCON', INFOT, NOUT, LERR, OK )
00242          INFOT = 2
00243          CALL DPOCON( 'U', -1, A, 1, ANRM, RCOND, W, IW, INFO )
00244          CALL CHKXER( 'DPOCON', INFOT, NOUT, LERR, OK )
00245          INFOT = 4
00246          CALL DPOCON( 'U', 2, A, 1, ANRM, RCOND, W, IW, INFO )
00247          CALL CHKXER( 'DPOCON', INFOT, NOUT, LERR, OK )
00248 *
00249 *        DPOEQU
00250 *
00251          SRNAMT = 'DPOEQU'
00252          INFOT = 1
00253          CALL DPOEQU( -1, A, 1, R1, RCOND, ANRM, INFO )
00254          CALL CHKXER( 'DPOEQU', INFOT, NOUT, LERR, OK )
00255          INFOT = 3
00256          CALL DPOEQU( 2, A, 1, R1, RCOND, ANRM, INFO )
00257          CALL CHKXER( 'DPOEQU', INFOT, NOUT, LERR, OK )
00258 *
00259 *        DPOEQUB
00260 *
00261          SRNAMT = 'DPOEQUB'
00262          INFOT = 1
00263          CALL DPOEQUB( -1, A, 1, R1, RCOND, ANRM, INFO )
00264          CALL CHKXER( 'DPOEQUB', INFOT, NOUT, LERR, OK )
00265          INFOT = 3
00266          CALL DPOEQUB( 2, A, 1, R1, RCOND, ANRM, INFO )
00267          CALL CHKXER( 'DPOEQUB', INFOT, NOUT, LERR, OK )
00268 *
00269       ELSE IF( LSAMEN( 2, C2, 'PP' ) ) THEN
00270 *
00271 *        Test error exits of the routines that use the Cholesky
00272 *        decomposition of a symmetric positive definite packed matrix.
00273 *
00274 *        DPPTRF
00275 *
00276          SRNAMT = 'DPPTRF'
00277          INFOT = 1
00278          CALL DPPTRF( '/', 0, A, INFO )
00279          CALL CHKXER( 'DPPTRF', INFOT, NOUT, LERR, OK )
00280          INFOT = 2
00281          CALL DPPTRF( 'U', -1, A, INFO )
00282          CALL CHKXER( 'DPPTRF', INFOT, NOUT, LERR, OK )
00283 *
00284 *        DPPTRI
00285 *
00286          SRNAMT = 'DPPTRI'
00287          INFOT = 1
00288          CALL DPPTRI( '/', 0, A, INFO )
00289          CALL CHKXER( 'DPPTRI', INFOT, NOUT, LERR, OK )
00290          INFOT = 2
00291          CALL DPPTRI( 'U', -1, A, INFO )
00292          CALL CHKXER( 'DPPTRI', INFOT, NOUT, LERR, OK )
00293 *
00294 *        DPPTRS
00295 *
00296          SRNAMT = 'DPPTRS'
00297          INFOT = 1
00298          CALL DPPTRS( '/', 0, 0, A, B, 1, INFO )
00299          CALL CHKXER( 'DPPTRS', INFOT, NOUT, LERR, OK )
00300          INFOT = 2
00301          CALL DPPTRS( 'U', -1, 0, A, B, 1, INFO )
00302          CALL CHKXER( 'DPPTRS', INFOT, NOUT, LERR, OK )
00303          INFOT = 3
00304          CALL DPPTRS( 'U', 0, -1, A, B, 1, INFO )
00305          CALL CHKXER( 'DPPTRS', INFOT, NOUT, LERR, OK )
00306          INFOT = 6
00307          CALL DPPTRS( 'U', 2, 1, A, B, 1, INFO )
00308          CALL CHKXER( 'DPPTRS', INFOT, NOUT, LERR, OK )
00309 *
00310 *        DPPRFS
00311 *
00312          SRNAMT = 'DPPRFS'
00313          INFOT = 1
00314          CALL DPPRFS( '/', 0, 0, A, AF, B, 1, X, 1, R1, R2, W, IW,
00315      $                INFO )
00316          CALL CHKXER( 'DPPRFS', INFOT, NOUT, LERR, OK )
00317          INFOT = 2
00318          CALL DPPRFS( 'U', -1, 0, A, AF, B, 1, X, 1, R1, R2, W, IW,
00319      $                INFO )
00320          CALL CHKXER( 'DPPRFS', INFOT, NOUT, LERR, OK )
00321          INFOT = 3
00322          CALL DPPRFS( 'U', 0, -1, A, AF, B, 1, X, 1, R1, R2, W, IW,
00323      $                INFO )
00324          CALL CHKXER( 'DPPRFS', INFOT, NOUT, LERR, OK )
00325          INFOT = 7
00326          CALL DPPRFS( 'U', 2, 1, A, AF, B, 1, X, 2, R1, R2, W, IW,
00327      $                INFO )
00328          CALL CHKXER( 'DPPRFS', INFOT, NOUT, LERR, OK )
00329          INFOT = 9
00330          CALL DPPRFS( 'U', 2, 1, A, AF, B, 2, X, 1, R1, R2, W, IW,
00331      $                INFO )
00332          CALL CHKXER( 'DPPRFS', INFOT, NOUT, LERR, OK )
00333 *
00334 *        DPPCON
00335 *
00336          SRNAMT = 'DPPCON'
00337          INFOT = 1
00338          CALL DPPCON( '/', 0, A, ANRM, RCOND, W, IW, INFO )
00339          CALL CHKXER( 'DPPCON', INFOT, NOUT, LERR, OK )
00340          INFOT = 2
00341          CALL DPPCON( 'U', -1, A, ANRM, RCOND, W, IW, INFO )
00342          CALL CHKXER( 'DPPCON', INFOT, NOUT, LERR, OK )
00343 *
00344 *        DPPEQU
00345 *
00346          SRNAMT = 'DPPEQU'
00347          INFOT = 1
00348          CALL DPPEQU( '/', 0, A, R1, RCOND, ANRM, INFO )
00349          CALL CHKXER( 'DPPEQU', INFOT, NOUT, LERR, OK )
00350          INFOT = 2
00351          CALL DPPEQU( 'U', -1, A, R1, RCOND, ANRM, INFO )
00352          CALL CHKXER( 'DPPEQU', INFOT, NOUT, LERR, OK )
00353 *
00354       ELSE IF( LSAMEN( 2, C2, 'PB' ) ) THEN
00355 *
00356 *        Test error exits of the routines that use the Cholesky
00357 *        decomposition of a symmetric positive definite band matrix.
00358 *
00359 *        DPBTRF
00360 *
00361          SRNAMT = 'DPBTRF'
00362          INFOT = 1
00363          CALL DPBTRF( '/', 0, 0, A, 1, INFO )
00364          CALL CHKXER( 'DPBTRF', INFOT, NOUT, LERR, OK )
00365          INFOT = 2
00366          CALL DPBTRF( 'U', -1, 0, A, 1, INFO )
00367          CALL CHKXER( 'DPBTRF', INFOT, NOUT, LERR, OK )
00368          INFOT = 3
00369          CALL DPBTRF( 'U', 1, -1, A, 1, INFO )
00370          CALL CHKXER( 'DPBTRF', INFOT, NOUT, LERR, OK )
00371          INFOT = 5
00372          CALL DPBTRF( 'U', 2, 1, A, 1, INFO )
00373          CALL CHKXER( 'DPBTRF', INFOT, NOUT, LERR, OK )
00374 *
00375 *        DPBTF2
00376 *
00377          SRNAMT = 'DPBTF2'
00378          INFOT = 1
00379          CALL DPBTF2( '/', 0, 0, A, 1, INFO )
00380          CALL CHKXER( 'DPBTF2', INFOT, NOUT, LERR, OK )
00381          INFOT = 2
00382          CALL DPBTF2( 'U', -1, 0, A, 1, INFO )
00383          CALL CHKXER( 'DPBTF2', INFOT, NOUT, LERR, OK )
00384          INFOT = 3
00385          CALL DPBTF2( 'U', 1, -1, A, 1, INFO )
00386          CALL CHKXER( 'DPBTF2', INFOT, NOUT, LERR, OK )
00387          INFOT = 5
00388          CALL DPBTF2( 'U', 2, 1, A, 1, INFO )
00389          CALL CHKXER( 'DPBTF2', INFOT, NOUT, LERR, OK )
00390 *
00391 *        DPBTRS
00392 *
00393          SRNAMT = 'DPBTRS'
00394          INFOT = 1
00395          CALL DPBTRS( '/', 0, 0, 0, A, 1, B, 1, INFO )
00396          CALL CHKXER( 'DPBTRS', INFOT, NOUT, LERR, OK )
00397          INFOT = 2
00398          CALL DPBTRS( 'U', -1, 0, 0, A, 1, B, 1, INFO )
00399          CALL CHKXER( 'DPBTRS', INFOT, NOUT, LERR, OK )
00400          INFOT = 3
00401          CALL DPBTRS( 'U', 1, -1, 0, A, 1, B, 1, INFO )
00402          CALL CHKXER( 'DPBTRS', INFOT, NOUT, LERR, OK )
00403          INFOT = 4
00404          CALL DPBTRS( 'U', 0, 0, -1, A, 1, B, 1, INFO )
00405          CALL CHKXER( 'DPBTRS', INFOT, NOUT, LERR, OK )
00406          INFOT = 6
00407          CALL DPBTRS( 'U', 2, 1, 1, A, 1, B, 1, INFO )
00408          CALL CHKXER( 'DPBTRS', INFOT, NOUT, LERR, OK )
00409          INFOT = 8
00410          CALL DPBTRS( 'U', 2, 0, 1, A, 1, B, 1, INFO )
00411          CALL CHKXER( 'DPBTRS', INFOT, NOUT, LERR, OK )
00412 *
00413 *        DPBRFS
00414 *
00415          SRNAMT = 'DPBRFS'
00416          INFOT = 1
00417          CALL DPBRFS( '/', 0, 0, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W,
00418      $                IW, INFO )
00419          CALL CHKXER( 'DPBRFS', INFOT, NOUT, LERR, OK )
00420          INFOT = 2
00421          CALL DPBRFS( 'U', -1, 0, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W,
00422      $                IW, INFO )
00423          CALL CHKXER( 'DPBRFS', INFOT, NOUT, LERR, OK )
00424          INFOT = 3
00425          CALL DPBRFS( 'U', 1, -1, 0, A, 1, AF, 1, B, 1, X, 1, R1, R2, W,
00426      $                IW, INFO )
00427          CALL CHKXER( 'DPBRFS', INFOT, NOUT, LERR, OK )
00428          INFOT = 4
00429          CALL DPBRFS( 'U', 0, 0, -1, A, 1, AF, 1, B, 1, X, 1, R1, R2, W,
00430      $                IW, INFO )
00431          CALL CHKXER( 'DPBRFS', INFOT, NOUT, LERR, OK )
00432          INFOT = 6
00433          CALL DPBRFS( 'U', 2, 1, 1, A, 1, AF, 2, B, 2, X, 2, R1, R2, W,
00434      $                IW, INFO )
00435          CALL CHKXER( 'DPBRFS', INFOT, NOUT, LERR, OK )
00436          INFOT = 8
00437          CALL DPBRFS( 'U', 2, 1, 1, A, 2, AF, 1, B, 2, X, 2, R1, R2, W,
00438      $                IW, INFO )
00439          CALL CHKXER( 'DPBRFS', INFOT, NOUT, LERR, OK )
00440          INFOT = 10
00441          CALL DPBRFS( 'U', 2, 0, 1, A, 1, AF, 1, B, 1, X, 2, R1, R2, W,
00442      $                IW, INFO )
00443          CALL CHKXER( 'DPBRFS', INFOT, NOUT, LERR, OK )
00444          INFOT = 12
00445          CALL DPBRFS( 'U', 2, 0, 1, A, 1, AF, 1, B, 2, X, 1, R1, R2, W,
00446      $                IW, INFO )
00447          CALL CHKXER( 'DPBRFS', INFOT, NOUT, LERR, OK )
00448 *
00449 *        DPBCON
00450 *
00451          SRNAMT = 'DPBCON'
00452          INFOT = 1
00453          CALL DPBCON( '/', 0, 0, A, 1, ANRM, RCOND, W, IW, INFO )
00454          CALL CHKXER( 'DPBCON', INFOT, NOUT, LERR, OK )
00455          INFOT = 2
00456          CALL DPBCON( 'U', -1, 0, A, 1, ANRM, RCOND, W, IW, INFO )
00457          CALL CHKXER( 'DPBCON', INFOT, NOUT, LERR, OK )
00458          INFOT = 3
00459          CALL DPBCON( 'U', 1, -1, A, 1, ANRM, RCOND, W, IW, INFO )
00460          CALL CHKXER( 'DPBCON', INFOT, NOUT, LERR, OK )
00461          INFOT = 5
00462          CALL DPBCON( 'U', 2, 1, A, 1, ANRM, RCOND, W, IW, INFO )
00463          CALL CHKXER( 'DPBCON', INFOT, NOUT, LERR, OK )
00464 *
00465 *        DPBEQU
00466 *
00467          SRNAMT = 'DPBEQU'
00468          INFOT = 1
00469          CALL DPBEQU( '/', 0, 0, A, 1, R1, RCOND, ANRM, INFO )
00470          CALL CHKXER( 'DPBEQU', INFOT, NOUT, LERR, OK )
00471          INFOT = 2
00472          CALL DPBEQU( 'U', -1, 0, A, 1, R1, RCOND, ANRM, INFO )
00473          CALL CHKXER( 'DPBEQU', INFOT, NOUT, LERR, OK )
00474          INFOT = 3
00475          CALL DPBEQU( 'U', 1, -1, A, 1, R1, RCOND, ANRM, INFO )
00476          CALL CHKXER( 'DPBEQU', INFOT, NOUT, LERR, OK )
00477          INFOT = 5
00478          CALL DPBEQU( 'U', 2, 1, A, 1, R1, RCOND, ANRM, INFO )
00479          CALL CHKXER( 'DPBEQU', INFOT, NOUT, LERR, OK )
00480       END IF
00481 *
00482 *     Print a summary line.
00483 *
00484       CALL ALAESM( PATH, OK, NOUT )
00485 *
00486       RETURN
00487 *
00488 *     End of DERRPO
00489 *
00490       END