LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
cerrst.f
Go to the documentation of this file.
00001 *> \brief \b CERRST
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 CERRST( 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 *> CERRST tests the error exits for CHETRD, CUNGTR, CUNMTR, CHPTRD,
00025 *> CUNGTR, CUPMTR, CSTEQR, CSTEIN, CPTEQR, CHBTRD,
00026 *> CHEEV, CHEEVX, CHEEVD, CHBEV, CHBEVX, CHBEVD,
00027 *> CHPEV, CHPEVX, CHPEVD, and CSTEDC.
00028 *> \endverbatim
00029 *
00030 *  Arguments:
00031 *  ==========
00032 *
00033 *> \param[in] PATH
00034 *> \verbatim
00035 *>          PATH is CHARACTER*3
00036 *>          The LAPACK path name for the routines to be tested.
00037 *> \endverbatim
00038 *>
00039 *> \param[in] NUNIT
00040 *> \verbatim
00041 *>          NUNIT is INTEGER
00042 *>          The unit number for output.
00043 *> \endverbatim
00044 *
00045 *  Authors:
00046 *  ========
00047 *
00048 *> \author Univ. of Tennessee 
00049 *> \author Univ. of California Berkeley 
00050 *> \author Univ. of Colorado Denver 
00051 *> \author NAG Ltd. 
00052 *
00053 *> \date November 2011
00054 *
00055 *> \ingroup complex_eig
00056 *
00057 *  =====================================================================
00058       SUBROUTINE CERRST( PATH, NUNIT )
00059 *
00060 *  -- LAPACK test routine (version 3.4.0) --
00061 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
00062 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
00063 *     November 2011
00064 *
00065 *     .. Scalar Arguments ..
00066       CHARACTER*3        PATH
00067       INTEGER            NUNIT
00068 *     ..
00069 *
00070 *  =====================================================================
00071 *
00072 *     .. Parameters ..
00073       INTEGER            NMAX, LIW, LW
00074       PARAMETER          ( NMAX = 3, LIW = 12*NMAX, LW = 20*NMAX )
00075 *     ..
00076 *     .. Local Scalars ..
00077       CHARACTER*2        C2
00078       INTEGER            I, INFO, J, M, N, NT
00079 *     ..
00080 *     .. Local Arrays ..
00081       INTEGER            I1( NMAX ), I2( NMAX ), I3( NMAX ), IW( LIW )
00082       REAL               D( NMAX ), E( NMAX ), R( LW ), RW( LW ),
00083      $                   X( NMAX )
00084       COMPLEX            A( NMAX, NMAX ), C( NMAX, NMAX ),
00085      $                   Q( NMAX, NMAX ), TAU( NMAX ), W( LW ),
00086      $                   Z( NMAX, NMAX )
00087 *     ..
00088 *     .. External Functions ..
00089       LOGICAL            LSAMEN
00090       EXTERNAL           LSAMEN
00091 *     ..
00092 *     .. External Subroutines ..
00093       EXTERNAL           CHBEV, CHBEVD, CHBEVX, CHBTRD, CHEEV, CHEEVD,
00094      $                   CHEEVR, CHEEVX, CHETRD, CHKXER, CHPEV, CHPEVD,
00095      $                   CHPEVX, CHPTRD, CPTEQR, CSTEDC, CSTEIN, CSTEQR,
00096      $                   CUNGTR, CUNMTR, CUPGTR, CUPMTR
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          REAL
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 ) = 1. / REAL( I+J )
00121    10    CONTINUE
00122    20 CONTINUE
00123       DO 30 J = 1, NMAX
00124          D( J ) = REAL( J )
00125          E( J ) = 0.0
00126          I1( J ) = J
00127          I2( J ) = J
00128          TAU( J ) = 1.
00129    30 CONTINUE
00130       OK = .TRUE.
00131       NT = 0
00132 *
00133 *     Test error exits for the ST path.
00134 *
00135       IF( LSAMEN( 2, C2, 'ST' ) ) THEN
00136 *
00137 *        CHETRD
00138 *
00139          SRNAMT = 'CHETRD'
00140          INFOT = 1
00141          CALL CHETRD( '/', 0, A, 1, D, E, TAU, W, 1, INFO )
00142          CALL CHKXER( 'CHETRD', INFOT, NOUT, LERR, OK )
00143          INFOT = 2
00144          CALL CHETRD( 'U', -1, A, 1, D, E, TAU, W, 1, INFO )
00145          CALL CHKXER( 'CHETRD', INFOT, NOUT, LERR, OK )
00146          INFOT = 4
00147          CALL CHETRD( 'U', 2, A, 1, D, E, TAU, W, 1, INFO )
00148          CALL CHKXER( 'CHETRD', INFOT, NOUT, LERR, OK )
00149          INFOT = 9
00150          CALL CHETRD( 'U', 0, A, 1, D, E, TAU, W, 0, INFO )
00151          CALL CHKXER( 'CHETRD', INFOT, NOUT, LERR, OK )
00152          NT = NT + 4
00153 *
00154 *        CUNGTR
00155 *
00156          SRNAMT = 'CUNGTR'
00157          INFOT = 1
00158          CALL CUNGTR( '/', 0, A, 1, TAU, W, 1, INFO )
00159          CALL CHKXER( 'CUNGTR', INFOT, NOUT, LERR, OK )
00160          INFOT = 2
00161          CALL CUNGTR( 'U', -1, A, 1, TAU, W, 1, INFO )
00162          CALL CHKXER( 'CUNGTR', INFOT, NOUT, LERR, OK )
00163          INFOT = 4
00164          CALL CUNGTR( 'U', 2, A, 1, TAU, W, 1, INFO )
00165          CALL CHKXER( 'CUNGTR', INFOT, NOUT, LERR, OK )
00166          INFOT = 7
00167          CALL CUNGTR( 'U', 3, A, 3, TAU, W, 1, INFO )
00168          CALL CHKXER( 'CUNGTR', INFOT, NOUT, LERR, OK )
00169          NT = NT + 4
00170 *
00171 *        CUNMTR
00172 *
00173          SRNAMT = 'CUNMTR'
00174          INFOT = 1
00175          CALL CUNMTR( '/', 'U', 'N', 0, 0, A, 1, TAU, C, 1, W, 1, INFO )
00176          CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK )
00177          INFOT = 2
00178          CALL CUNMTR( 'L', '/', 'N', 0, 0, A, 1, TAU, C, 1, W, 1, INFO )
00179          CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK )
00180          INFOT = 3
00181          CALL CUNMTR( 'L', 'U', '/', 0, 0, A, 1, TAU, C, 1, W, 1, INFO )
00182          CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK )
00183          INFOT = 4
00184          CALL CUNMTR( 'L', 'U', 'N', -1, 0, A, 1, TAU, C, 1, W, 1,
00185      $                INFO )
00186          CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK )
00187          INFOT = 5
00188          CALL CUNMTR( 'L', 'U', 'N', 0, -1, A, 1, TAU, C, 1, W, 1,
00189      $                INFO )
00190          CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK )
00191          INFOT = 7
00192          CALL CUNMTR( 'L', 'U', 'N', 2, 0, A, 1, TAU, C, 2, W, 1, INFO )
00193          CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK )
00194          INFOT = 7
00195          CALL CUNMTR( 'R', 'U', 'N', 0, 2, A, 1, TAU, C, 1, W, 1, INFO )
00196          CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK )
00197          INFOT = 10
00198          CALL CUNMTR( 'L', 'U', 'N', 2, 0, A, 2, TAU, C, 1, W, 1, INFO )
00199          CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK )
00200          INFOT = 12
00201          CALL CUNMTR( 'L', 'U', 'N', 0, 2, A, 1, TAU, C, 1, W, 1, INFO )
00202          CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK )
00203          INFOT = 12
00204          CALL CUNMTR( 'R', 'U', 'N', 2, 0, A, 1, TAU, C, 2, W, 1, INFO )
00205          CALL CHKXER( 'CUNMTR', INFOT, NOUT, LERR, OK )
00206          NT = NT + 10
00207 *
00208 *        CHPTRD
00209 *
00210          SRNAMT = 'CHPTRD'
00211          INFOT = 1
00212          CALL CHPTRD( '/', 0, A, D, E, TAU, INFO )
00213          CALL CHKXER( 'CHPTRD', INFOT, NOUT, LERR, OK )
00214          INFOT = 2
00215          CALL CHPTRD( 'U', -1, A, D, E, TAU, INFO )
00216          CALL CHKXER( 'CHPTRD', INFOT, NOUT, LERR, OK )
00217          NT = NT + 2
00218 *
00219 *        CUPGTR
00220 *
00221          SRNAMT = 'CUPGTR'
00222          INFOT = 1
00223          CALL CUPGTR( '/', 0, A, TAU, Z, 1, W, INFO )
00224          CALL CHKXER( 'CUPGTR', INFOT, NOUT, LERR, OK )
00225          INFOT = 2
00226          CALL CUPGTR( 'U', -1, A, TAU, Z, 1, W, INFO )
00227          CALL CHKXER( 'CUPGTR', INFOT, NOUT, LERR, OK )
00228          INFOT = 6
00229          CALL CUPGTR( 'U', 2, A, TAU, Z, 1, W, INFO )
00230          CALL CHKXER( 'CUPGTR', INFOT, NOUT, LERR, OK )
00231          NT = NT + 3
00232 *
00233 *        CUPMTR
00234 *
00235          SRNAMT = 'CUPMTR'
00236          INFOT = 1
00237          CALL CUPMTR( '/', 'U', 'N', 0, 0, A, TAU, C, 1, W, INFO )
00238          CALL CHKXER( 'CUPMTR', INFOT, NOUT, LERR, OK )
00239          INFOT = 2
00240          CALL CUPMTR( 'L', '/', 'N', 0, 0, A, TAU, C, 1, W, INFO )
00241          CALL CHKXER( 'CUPMTR', INFOT, NOUT, LERR, OK )
00242          INFOT = 3
00243          CALL CUPMTR( 'L', 'U', '/', 0, 0, A, TAU, C, 1, W, INFO )
00244          CALL CHKXER( 'CUPMTR', INFOT, NOUT, LERR, OK )
00245          INFOT = 4
00246          CALL CUPMTR( 'L', 'U', 'N', -1, 0, A, TAU, C, 1, W, INFO )
00247          CALL CHKXER( 'CUPMTR', INFOT, NOUT, LERR, OK )
00248          INFOT = 5
00249          CALL CUPMTR( 'L', 'U', 'N', 0, -1, A, TAU, C, 1, W, INFO )
00250          CALL CHKXER( 'CUPMTR', INFOT, NOUT, LERR, OK )
00251          INFOT = 9
00252          CALL CUPMTR( 'L', 'U', 'N', 2, 0, A, TAU, C, 1, W, INFO )
00253          CALL CHKXER( 'CUPMTR', INFOT, NOUT, LERR, OK )
00254          NT = NT + 6
00255 *
00256 *        CPTEQR
00257 *
00258          SRNAMT = 'CPTEQR'
00259          INFOT = 1
00260          CALL CPTEQR( '/', 0, D, E, Z, 1, RW, INFO )
00261          CALL CHKXER( 'CPTEQR', INFOT, NOUT, LERR, OK )
00262          INFOT = 2
00263          CALL CPTEQR( 'N', -1, D, E, Z, 1, RW, INFO )
00264          CALL CHKXER( 'CPTEQR', INFOT, NOUT, LERR, OK )
00265          INFOT = 6
00266          CALL CPTEQR( 'V', 2, D, E, Z, 1, RW, INFO )
00267          CALL CHKXER( 'CPTEQR', INFOT, NOUT, LERR, OK )
00268          NT = NT + 3
00269 *
00270 *        CSTEIN
00271 *
00272          SRNAMT = 'CSTEIN'
00273          INFOT = 1
00274          CALL CSTEIN( -1, D, E, 0, X, I1, I2, Z, 1, RW, IW, I3, INFO )
00275          CALL CHKXER( 'CSTEIN', INFOT, NOUT, LERR, OK )
00276          INFOT = 4
00277          CALL CSTEIN( 0, D, E, -1, X, I1, I2, Z, 1, RW, IW, I3, INFO )
00278          CALL CHKXER( 'CSTEIN', INFOT, NOUT, LERR, OK )
00279          INFOT = 4
00280          CALL CSTEIN( 0, D, E, 1, X, I1, I2, Z, 1, RW, IW, I3, INFO )
00281          CALL CHKXER( 'CSTEIN', INFOT, NOUT, LERR, OK )
00282          INFOT = 9
00283          CALL CSTEIN( 2, D, E, 0, X, I1, I2, Z, 1, RW, IW, I3, INFO )
00284          CALL CHKXER( 'CSTEIN', INFOT, NOUT, LERR, OK )
00285          NT = NT + 4
00286 *
00287 *        CSTEQR
00288 *
00289          SRNAMT = 'CSTEQR'
00290          INFOT = 1
00291          CALL CSTEQR( '/', 0, D, E, Z, 1, RW, INFO )
00292          CALL CHKXER( 'CSTEQR', INFOT, NOUT, LERR, OK )
00293          INFOT = 2
00294          CALL CSTEQR( 'N', -1, D, E, Z, 1, RW, INFO )
00295          CALL CHKXER( 'CSTEQR', INFOT, NOUT, LERR, OK )
00296          INFOT = 6
00297          CALL CSTEQR( 'V', 2, D, E, Z, 1, RW, INFO )
00298          CALL CHKXER( 'CSTEQR', INFOT, NOUT, LERR, OK )
00299          NT = NT + 3
00300 *
00301 *        CSTEDC
00302 *
00303          SRNAMT = 'CSTEDC'
00304          INFOT = 1
00305          CALL CSTEDC( '/', 0, D, E, Z, 1, W, 1, RW, 1, IW, 1, INFO )
00306          CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK )
00307          INFOT = 2
00308          CALL CSTEDC( 'N', -1, D, E, Z, 1, W, 1, RW, 1, IW, 1, INFO )
00309          CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK )
00310          INFOT = 6
00311          CALL CSTEDC( 'V', 2, D, E, Z, 1, W, 4, RW, 23, IW, 28, INFO )
00312          CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK )
00313          INFOT = 8
00314          CALL CSTEDC( 'N', 2, D, E, Z, 1, W, 0, RW, 1, IW, 1, INFO )
00315          CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK )
00316          INFOT = 8
00317          CALL CSTEDC( 'V', 2, D, E, Z, 2, W, 0, RW, 23, IW, 28, INFO )
00318          CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK )
00319          INFOT = 10
00320          CALL CSTEDC( 'N', 2, D, E, Z, 1, W, 1, RW, 0, IW, 1, INFO )
00321          CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK )
00322          INFOT = 10
00323          CALL CSTEDC( 'I', 2, D, E, Z, 2, W, 1, RW, 1, IW, 12, INFO )
00324          CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK )
00325          INFOT = 10
00326          CALL CSTEDC( 'V', 2, D, E, Z, 2, W, 4, RW, 1, IW, 28, INFO )
00327          CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK )
00328          INFOT = 12
00329          CALL CSTEDC( 'N', 2, D, E, Z, 1, W, 1, RW, 1, IW, 0, INFO )
00330          CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK )
00331          INFOT = 12
00332          CALL CSTEDC( 'I', 2, D, E, Z, 2, W, 1, RW, 23, IW, 0, INFO )
00333          CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK )
00334          INFOT = 12
00335          CALL CSTEDC( 'V', 2, D, E, Z, 2, W, 4, RW, 23, IW, 0, INFO )
00336          CALL CHKXER( 'CSTEDC', INFOT, NOUT, LERR, OK )
00337          NT = NT + 11
00338 *
00339 *        CHEEVD
00340 *
00341          SRNAMT = 'CHEEVD'
00342          INFOT = 1
00343          CALL CHEEVD( '/', 'U', 0, A, 1, X, W, 1, RW, 1, IW, 1, INFO )
00344          CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK )
00345          INFOT = 2
00346          CALL CHEEVD( 'N', '/', 0, A, 1, X, W, 1, RW, 1, IW, 1, INFO )
00347          CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK )
00348          INFOT = 3
00349          CALL CHEEVD( 'N', 'U', -1, A, 1, X, W, 1, RW, 1, IW, 1, INFO )
00350          CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK )
00351          INFOT = 5
00352          CALL CHEEVD( 'N', 'U', 2, A, 1, X, W, 3, RW, 2, IW, 1, INFO )
00353          CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK )
00354          INFOT = 8
00355          CALL CHEEVD( 'N', 'U', 1, A, 1, X, W, 0, RW, 1, IW, 1, INFO )
00356          CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK )
00357          INFOT = 8
00358          CALL CHEEVD( 'N', 'U', 2, A, 2, X, W, 2, RW, 2, IW, 1, INFO )
00359          CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK )
00360          INFOT = 8
00361          CALL CHEEVD( 'V', 'U', 2, A, 2, X, W, 3, RW, 25, IW, 12, INFO )
00362          CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK )
00363          INFOT = 10
00364          CALL CHEEVD( 'N', 'U', 1, A, 1, X, W, 1, RW, 0, IW, 1, INFO )
00365          CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK )
00366          INFOT = 10
00367          CALL CHEEVD( 'N', 'U', 2, A, 2, X, W, 3, RW, 1, IW, 1, INFO )
00368          CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK )
00369          INFOT = 10
00370          CALL CHEEVD( 'V', 'U', 2, A, 2, X, W, 8, RW, 18, IW, 12, INFO )
00371          CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK )
00372          INFOT = 12
00373          CALL CHEEVD( 'N', 'U', 1, A, 1, X, W, 1, RW, 1, IW, 0, INFO )
00374          CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK )
00375          INFOT = 12
00376          CALL CHEEVD( 'V', 'U', 2, A, 2, X, W, 8, RW, 25, IW, 11, INFO )
00377          CALL CHKXER( 'CHEEVD', INFOT, NOUT, LERR, OK )
00378          NT = NT + 12
00379 *
00380 *        CHEEV
00381 *
00382          SRNAMT = 'CHEEV '
00383          INFOT = 1
00384          CALL CHEEV( '/', 'U', 0, A, 1, X, W, 1, RW, INFO )
00385          CALL CHKXER( 'CHEEV ', INFOT, NOUT, LERR, OK )
00386          INFOT = 2
00387          CALL CHEEV( 'N', '/', 0, A, 1, X, W, 1, RW, INFO )
00388          CALL CHKXER( 'CHEEV ', INFOT, NOUT, LERR, OK )
00389          INFOT = 3
00390          CALL CHEEV( 'N', 'U', -1, A, 1, X, W, 1, RW, INFO )
00391          CALL CHKXER( 'CHEEV ', INFOT, NOUT, LERR, OK )
00392          INFOT = 5
00393          CALL CHEEV( 'N', 'U', 2, A, 1, X, W, 3, RW, INFO )
00394          CALL CHKXER( 'CHEEV ', INFOT, NOUT, LERR, OK )
00395          INFOT = 8
00396          CALL CHEEV( 'N', 'U', 2, A, 2, X, W, 2, RW, INFO )
00397          CALL CHKXER( 'CHEEV ', INFOT, NOUT, LERR, OK )
00398          NT = NT + 5
00399 *
00400 *        CHEEVX
00401 *
00402          SRNAMT = 'CHEEVX'
00403          INFOT = 1
00404          CALL CHEEVX( '/', 'A', 'U', 0, A, 1, 0.0, 0.0, 0, 0, 0.0, M, X,
00405      $                Z, 1, W, 1, RW, IW, I3, INFO )
00406          CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK )
00407          INFOT = 2
00408          CALL CHEEVX( 'V', '/', 'U', 0, A, 1, 0.0, 1.0, 1, 0, 0.0, M, X,
00409      $                Z, 1, W, 1, RW, IW, I3, INFO )
00410          CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK )
00411          INFOT = 3
00412          CALL CHEEVX( 'V', 'A', '/', 0, A, 1, 0.0, 0.0, 0, 0, 0.0, M, X,
00413      $                Z, 1, W, 1, RW, IW, I3, INFO )
00414          INFOT = 4
00415          CALL CHEEVX( 'V', 'A', 'U', -1, A, 1, 0.0, 0.0, 0, 0, 0.0, M,
00416      $                X, Z, 1, W, 1, RW, IW, I3, INFO )
00417          CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK )
00418          INFOT = 6
00419          CALL CHEEVX( 'V', 'A', 'U', 2, A, 1, 0.0, 0.0, 0, 0, 0.0, M, X,
00420      $                Z, 2, W, 3, RW, IW, I3, INFO )
00421          CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK )
00422          INFOT = 8
00423          CALL CHEEVX( 'V', 'V', 'U', 1, A, 1, 0.0, 0.0, 0, 0, 0.0, M, X,
00424      $                Z, 1, W, 1, RW, IW, I3, INFO )
00425          CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK )
00426          INFOT = 9
00427          CALL CHEEVX( 'V', 'I', 'U', 1, A, 1, 0.0, 0.0, 0, 0, 0.0, M, X,
00428      $                Z, 1, W, 1, RW, IW, I3, INFO )
00429          CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK )
00430          INFOT = 10
00431          CALL CHEEVX( 'V', 'I', 'U', 2, A, 2, 0.0, 0.0, 2, 1, 0.0, M, X,
00432      $                Z, 2, W, 3, RW, IW, I3, INFO )
00433          CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK )
00434          INFOT = 15
00435          CALL CHEEVX( 'V', 'A', 'U', 2, A, 2, 0.0, 0.0, 0, 0, 0.0, M, X,
00436      $                Z, 1, W, 3, RW, IW, I3, INFO )
00437          CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK )
00438          INFOT = 17
00439          CALL CHEEVX( 'V', 'A', 'U', 2, A, 2, 0.0, 0.0, 0, 0, 0.0, M, X,
00440      $                Z, 2, W, 2, RW, IW, I1, INFO )
00441          CALL CHKXER( 'CHEEVX', INFOT, NOUT, LERR, OK )
00442          NT = NT + 10
00443 *
00444 *        CHEEVR
00445 *
00446          SRNAMT = 'CHEEVR'
00447          N = 1
00448          INFOT = 1
00449          CALL CHEEVR( '/', 'A', 'U', 0, A, 1, 0.0, 0.0, 1, 1, 0.0, M, R,
00450      $                Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N,
00451      $                INFO )
00452          CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
00453          INFOT = 2
00454          CALL CHEEVR( 'V', '/', 'U', 0, A, 1, 0.0, 0.0, 1, 1, 0.0, M, R,
00455      $                Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N,
00456      $                INFO )
00457          CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
00458          INFOT = 3
00459          CALL CHEEVR( 'V', 'A', '/', -1, A, 1, 0.0, 0.0, 1, 1, 0.0, M,
00460      $                R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N,
00461      $                INFO )
00462          CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
00463          INFOT = 4
00464          CALL CHEEVR( 'V', 'A', 'U', -1, A, 1, 0.0, 0.0, 1, 1, 0.0, M,
00465      $                R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N,
00466      $                INFO )
00467          CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
00468          INFOT = 6
00469          CALL CHEEVR( 'V', 'A', 'U', 2, A, 1, 0.0, 0.0, 1, 1, 0.0, M, R,
00470      $                Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N,
00471      $                INFO )
00472          CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
00473          INFOT = 8
00474          CALL CHEEVR( 'V', 'V', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
00475      $                M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
00476      $                10*N, INFO )
00477          CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
00478          INFOT = 9
00479          CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 0, 1, 0.0,
00480      $                M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
00481      $                10*N, INFO )
00482          CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
00483          INFOT = 10
00484 *
00485          CALL CHEEVR( 'V', 'I', 'U', 2, A, 2, 0.0E0, 0.0E0, 2, 1, 0.0,
00486      $                M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
00487      $                10*N, INFO )
00488          CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
00489          INFOT = 15
00490          CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
00491      $                M, R, Z, 0, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
00492      $                10*N, INFO )
00493          CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
00494          INFOT = 18
00495          CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
00496      $                M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ),
00497      $                10*N, INFO )
00498          CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
00499          INFOT = 20
00500          CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
00501      $                M, R, Z, 1, IW, Q, 2*N, RW, 24*N-1, IW( 2*N-1 ),
00502      $                10*N, INFO )
00503          CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
00504          INFOT = 22
00505          CALL CHEEVR( 'V', 'I', 'U', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
00506      $                M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW, 10*N-1,
00507      $                INFO )
00508          CALL CHKXER( 'CHEEVR', INFOT, NOUT, LERR, OK )
00509          NT = NT + 12
00510 *
00511 *        CHPEVD
00512 *
00513          SRNAMT = 'CHPEVD'
00514          INFOT = 1
00515          CALL CHPEVD( '/', 'U', 0, A, X, Z, 1, W, 1, RW, 1, IW, 1,
00516      $                INFO )
00517          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00518          INFOT = 2
00519          CALL CHPEVD( 'N', '/', 0, A, X, Z, 1, W, 1, RW, 1, IW, 1,
00520      $                INFO )
00521          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00522          INFOT = 3
00523          CALL CHPEVD( 'N', 'U', -1, A, X, Z, 1, W, 1, RW, 1, IW, 1,
00524      $                INFO )
00525          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00526          INFOT = 7
00527          CALL CHPEVD( 'V', 'U', 2, A, X, Z, 1, W, 4, RW, 25, IW, 12,
00528      $                INFO )
00529          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00530          INFOT = 9
00531          CALL CHPEVD( 'N', 'U', 1, A, X, Z, 1, W, 0, RW, 1, IW, 1,
00532      $                INFO )
00533          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00534          INFOT = 9
00535          CALL CHPEVD( 'N', 'U', 2, A, X, Z, 2, W, 1, RW, 2, IW, 1,
00536      $                INFO )
00537          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00538          INFOT = 9
00539          CALL CHPEVD( 'V', 'U', 2, A, X, Z, 2, W, 2, RW, 25, IW, 12,
00540      $                INFO )
00541          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00542          INFOT = 11
00543          CALL CHPEVD( 'N', 'U', 1, A, X, Z, 1, W, 1, RW, 0, IW, 1,
00544      $                INFO )
00545          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00546          INFOT = 11
00547          CALL CHPEVD( 'N', 'U', 2, A, X, Z, 2, W, 2, RW, 1, IW, 1,
00548      $                INFO )
00549          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00550          INFOT = 11
00551          CALL CHPEVD( 'V', 'U', 2, A, X, Z, 2, W, 4, RW, 18, IW, 12,
00552      $                INFO )
00553          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00554          INFOT = 13
00555          CALL CHPEVD( 'N', 'U', 1, A, X, Z, 1, W, 1, RW, 1, IW, 0,
00556      $                INFO )
00557          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00558          INFOT = 13
00559          CALL CHPEVD( 'N', 'U', 2, A, X, Z, 2, W, 2, RW, 2, IW, 0,
00560      $                INFO )
00561          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00562          INFOT = 13
00563          CALL CHPEVD( 'V', 'U', 2, A, X, Z, 2, W, 4, RW, 25, IW, 2,
00564      $                INFO )
00565          CALL CHKXER( 'CHPEVD', INFOT, NOUT, LERR, OK )
00566          NT = NT + 13
00567 *
00568 *        CHPEV
00569 *
00570          SRNAMT = 'CHPEV '
00571          INFOT = 1
00572          CALL CHPEV( '/', 'U', 0, A, X, Z, 1, W, RW, INFO )
00573          CALL CHKXER( 'CHPEV ', INFOT, NOUT, LERR, OK )
00574          INFOT = 2
00575          CALL CHPEV( 'N', '/', 0, A, X, Z, 1, W, RW, INFO )
00576          CALL CHKXER( 'CHPEV ', INFOT, NOUT, LERR, OK )
00577          INFOT = 3
00578          CALL CHPEV( 'N', 'U', -1, A, X, Z, 1, W, RW, INFO )
00579          CALL CHKXER( 'CHPEV ', INFOT, NOUT, LERR, OK )
00580          INFOT = 7
00581          CALL CHPEV( 'V', 'U', 2, A, X, Z, 1, W, RW, INFO )
00582          CALL CHKXER( 'CHPEV ', INFOT, NOUT, LERR, OK )
00583          NT = NT + 4
00584 *
00585 *        CHPEVX
00586 *
00587          SRNAMT = 'CHPEVX'
00588          INFOT = 1
00589          CALL CHPEVX( '/', 'A', 'U', 0, A, 0.0, 0.0, 0, 0, 0.0, M, X, Z,
00590      $                1, W, RW, IW, I3, INFO )
00591          CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK )
00592          INFOT = 2
00593          CALL CHPEVX( 'V', '/', 'U', 0, A, 0.0, 1.0, 1, 0, 0.0, M, X, Z,
00594      $                1, W, RW, IW, I3, INFO )
00595          CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK )
00596          INFOT = 3
00597          CALL CHPEVX( 'V', 'A', '/', 0, A, 0.0, 0.0, 0, 0, 0.0, M, X, Z,
00598      $                1, W, RW, IW, I3, INFO )
00599          CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK )
00600          INFOT = 4
00601          CALL CHPEVX( 'V', 'A', 'U', -1, A, 0.0, 0.0, 0, 0, 0.0, M, X,
00602      $                Z, 1, W, RW, IW, I3, INFO )
00603          CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK )
00604          INFOT = 7
00605          CALL CHPEVX( 'V', 'V', 'U', 1, A, 0.0, 0.0, 0, 0, 0.0, M, X, Z,
00606      $                1, W, RW, IW, I3, INFO )
00607          CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK )
00608          INFOT = 8
00609          CALL CHPEVX( 'V', 'I', 'U', 1, A, 0.0, 0.0, 0, 0, 0.0, M, X, Z,
00610      $                1, W, RW, IW, I3, INFO )
00611          CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK )
00612          INFOT = 9
00613          CALL CHPEVX( 'V', 'I', 'U', 2, A, 0.0, 0.0, 2, 1, 0.0, M, X, Z,
00614      $                2, W, RW, IW, I3, INFO )
00615          CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK )
00616          INFOT = 14
00617          CALL CHPEVX( 'V', 'A', 'U', 2, A, 0.0, 0.0, 0, 0, 0.0, M, X, Z,
00618      $                1, W, RW, IW, I3, INFO )
00619          CALL CHKXER( 'CHPEVX', INFOT, NOUT, LERR, OK )
00620          NT = NT + 8
00621 *
00622 *     Test error exits for the HB path.
00623 *
00624       ELSE IF( LSAMEN( 2, C2, 'HB' ) ) THEN
00625 *
00626 *        CHBTRD
00627 *
00628          SRNAMT = 'CHBTRD'
00629          INFOT = 1
00630          CALL CHBTRD( '/', 'U', 0, 0, A, 1, D, E, Z, 1, W, INFO )
00631          CALL CHKXER( 'CHBTRD', INFOT, NOUT, LERR, OK )
00632          INFOT = 2
00633          CALL CHBTRD( 'N', '/', 0, 0, A, 1, D, E, Z, 1, W, INFO )
00634          CALL CHKXER( 'CHBTRD', INFOT, NOUT, LERR, OK )
00635          INFOT = 3
00636          CALL CHBTRD( 'N', 'U', -1, 0, A, 1, D, E, Z, 1, W, INFO )
00637          CALL CHKXER( 'CHBTRD', INFOT, NOUT, LERR, OK )
00638          INFOT = 4
00639          CALL CHBTRD( 'N', 'U', 0, -1, A, 1, D, E, Z, 1, W, INFO )
00640          CALL CHKXER( 'CHBTRD', INFOT, NOUT, LERR, OK )
00641          INFOT = 6
00642          CALL CHBTRD( 'N', 'U', 1, 1, A, 1, D, E, Z, 1, W, INFO )
00643          CALL CHKXER( 'CHBTRD', INFOT, NOUT, LERR, OK )
00644          INFOT = 10
00645          CALL CHBTRD( 'V', 'U', 2, 0, A, 1, D, E, Z, 1, W, INFO )
00646          CALL CHKXER( 'CHBTRD', INFOT, NOUT, LERR, OK )
00647          NT = NT + 6
00648 *
00649 *        CHBEVD
00650 *
00651          SRNAMT = 'CHBEVD'
00652          INFOT = 1
00653          CALL CHBEVD( '/', 'U', 0, 0, A, 1, X, Z, 1, W, 1, RW, 1, IW, 1,
00654      $                INFO )
00655          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00656          INFOT = 2
00657          CALL CHBEVD( 'N', '/', 0, 0, A, 1, X, Z, 1, W, 1, RW, 1, IW, 1,
00658      $                INFO )
00659          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00660          INFOT = 3
00661          CALL CHBEVD( 'N', 'U', -1, 0, A, 1, X, Z, 1, W, 1, RW, 1, IW,
00662      $                1, INFO )
00663          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00664          INFOT = 4
00665          CALL CHBEVD( 'N', 'U', 0, -1, A, 1, X, Z, 1, W, 1, RW, 1, IW,
00666      $                1, INFO )
00667          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00668          INFOT = 6
00669          CALL CHBEVD( 'N', 'U', 2, 1, A, 1, X, Z, 1, W, 2, RW, 2, IW, 1,
00670      $                INFO )
00671          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00672          INFOT = 9
00673          CALL CHBEVD( 'V', 'U', 2, 1, A, 2, X, Z, 1, W, 8, RW, 25, IW,
00674      $                12, INFO )
00675          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00676          INFOT = 11
00677          CALL CHBEVD( 'N', 'U', 1, 0, A, 1, X, Z, 1, W, 0, RW, 1, IW, 1,
00678      $                INFO )
00679          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00680          INFOT = 11
00681          CALL CHBEVD( 'N', 'U', 2, 1, A, 2, X, Z, 2, W, 1, RW, 2, IW, 1,
00682      $                INFO )
00683          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00684          INFOT = 11
00685          CALL CHBEVD( 'V', 'U', 2, 1, A, 2, X, Z, 2, W, 2, RW, 25, IW,
00686      $                12, INFO )
00687          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00688          INFOT = 13
00689          CALL CHBEVD( 'N', 'U', 1, 0, A, 1, X, Z, 1, W, 1, RW, 0, IW, 1,
00690      $                INFO )
00691          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00692          INFOT = 13
00693          CALL CHBEVD( 'N', 'U', 2, 1, A, 2, X, Z, 2, W, 2, RW, 1, IW, 1,
00694      $                INFO )
00695          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00696          INFOT = 13
00697          CALL CHBEVD( 'V', 'U', 2, 1, A, 2, X, Z, 2, W, 8, RW, 2, IW,
00698      $                12, INFO )
00699          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00700          INFOT = 15
00701          CALL CHBEVD( 'N', 'U', 1, 0, A, 1, X, Z, 1, W, 1, RW, 1, IW, 0,
00702      $                INFO )
00703          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00704          INFOT = 15
00705          CALL CHBEVD( 'N', 'U', 2, 1, A, 2, X, Z, 2, W, 2, RW, 2, IW, 0,
00706      $                INFO )
00707          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00708          INFOT = 15
00709          CALL CHBEVD( 'V', 'U', 2, 1, A, 2, X, Z, 2, W, 8, RW, 25, IW,
00710      $                2, INFO )
00711          CALL CHKXER( 'CHBEVD', INFOT, NOUT, LERR, OK )
00712          NT = NT + 15
00713 *
00714 *        CHBEV
00715 *
00716          SRNAMT = 'CHBEV '
00717          INFOT = 1
00718          CALL CHBEV( '/', 'U', 0, 0, A, 1, X, Z, 1, W, RW, INFO )
00719          CALL CHKXER( 'CHBEV ', INFOT, NOUT, LERR, OK )
00720          INFOT = 2
00721          CALL CHBEV( 'N', '/', 0, 0, A, 1, X, Z, 1, W, RW, INFO )
00722          CALL CHKXER( 'CHBEV ', INFOT, NOUT, LERR, OK )
00723          INFOT = 3
00724          CALL CHBEV( 'N', 'U', -1, 0, A, 1, X, Z, 1, W, RW, INFO )
00725          CALL CHKXER( 'CHBEV ', INFOT, NOUT, LERR, OK )
00726          INFOT = 4
00727          CALL CHBEV( 'N', 'U', 0, -1, A, 1, X, Z, 1, W, RW, INFO )
00728          CALL CHKXER( 'CHBEV ', INFOT, NOUT, LERR, OK )
00729          INFOT = 6
00730          CALL CHBEV( 'N', 'U', 2, 1, A, 1, X, Z, 1, W, RW, INFO )
00731          CALL CHKXER( 'CHBEV ', INFOT, NOUT, LERR, OK )
00732          INFOT = 9
00733          CALL CHBEV( 'V', 'U', 2, 0, A, 1, X, Z, 1, W, RW, INFO )
00734          CALL CHKXER( 'CHBEV ', INFOT, NOUT, LERR, OK )
00735          NT = NT + 6
00736 *
00737 *        CHBEVX
00738 *
00739          SRNAMT = 'CHBEVX'
00740          INFOT = 1
00741          CALL CHBEVX( '/', 'A', 'U', 0, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0,
00742      $                0.0, M, X, Z, 1, W, RW, IW, I3, INFO )
00743          CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK )
00744          INFOT = 2
00745          CALL CHBEVX( 'V', '/', 'U', 0, 0, A, 1, Q, 1, 0.0, 1.0, 1, 0,
00746      $                0.0, M, X, Z, 1, W, RW, IW, I3, INFO )
00747          CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK )
00748          INFOT = 3
00749          CALL CHBEVX( 'V', 'A', '/', 0, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0,
00750      $                0.0, M, X, Z, 1, W, RW, IW, I3, INFO )
00751          INFOT = 4
00752          CALL CHBEVX( 'V', 'A', 'U', -1, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0,
00753      $                0.0, M, X, Z, 1, W, RW, IW, I3, INFO )
00754          CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK )
00755          INFOT = 5
00756          CALL CHBEVX( 'V', 'A', 'U', 0, -1, A, 1, Q, 1, 0.0, 0.0, 0, 0,
00757      $                0.0, M, X, Z, 1, W, RW, IW, I3, INFO )
00758          CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK )
00759          INFOT = 7
00760          CALL CHBEVX( 'V', 'A', 'U', 2, 1, A, 1, Q, 2, 0.0, 0.0, 0, 0,
00761      $                0.0, M, X, Z, 2, W, RW, IW, I3, INFO )
00762          CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK )
00763          INFOT = 9
00764          CALL CHBEVX( 'V', 'A', 'U', 2, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0,
00765      $                0.0, M, X, Z, 2, W, RW, IW, I3, INFO )
00766          CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK )
00767          INFOT = 11
00768          CALL CHBEVX( 'V', 'V', 'U', 1, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0,
00769      $                0.0, M, X, Z, 1, W, RW, IW, I3, INFO )
00770          CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK )
00771          INFOT = 12
00772          CALL CHBEVX( 'V', 'I', 'U', 1, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0,
00773      $                0.0, M, X, Z, 1, W, RW, IW, I3, INFO )
00774          CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK )
00775          INFOT = 13
00776          CALL CHBEVX( 'V', 'I', 'U', 1, 0, A, 1, Q, 1, 0.0, 0.0, 1, 2,
00777      $                0.0, M, X, Z, 1, W, RW, IW, I3, INFO )
00778          CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK )
00779          INFOT = 18
00780          CALL CHBEVX( 'V', 'A', 'U', 2, 0, A, 1, Q, 2, 0.0, 0.0, 0, 0,
00781      $                0.0, M, X, Z, 1, W, RW, IW, I3, INFO )
00782          CALL CHKXER( 'CHBEVX', INFOT, NOUT, LERR, OK )
00783          NT = NT + 11
00784       END IF
00785 *
00786 *     Print a summary line.
00787 *
00788       IF( OK ) THEN
00789          WRITE( NOUT, FMT = 9999 )PATH, NT
00790       ELSE
00791          WRITE( NOUT, FMT = 9998 )PATH
00792       END IF
00793 *
00794  9999 FORMAT( 1X, A3, ' routines passed the tests of the error exits',
00795      $      ' (', I3, ' tests done)' )
00796  9998 FORMAT( ' *** ', A3, ' routines failed the tests of the error ',
00797      $      'exits ***' )
00798 *
00799       RETURN
00800 *
00801 *     End of CERRST
00802 *
00803       END
 All Files Functions