LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
zerrtr.f
Go to the documentation of this file.
00001 *> \brief \b ZERRTR
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 ZERRTR( 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 *> ZERRTR tests the error exits for the COMPLEX*16 triangular routines.
00025 *> \endverbatim
00026 *
00027 *  Arguments:
00028 *  ==========
00029 *
00030 *> \param[in] PATH
00031 *> \verbatim
00032 *>          PATH is CHARACTER*3
00033 *>          The LAPACK path name for the routines to be tested.
00034 *> \endverbatim
00035 *>
00036 *> \param[in] NUNIT
00037 *> \verbatim
00038 *>          NUNIT is INTEGER
00039 *>          The unit number for output.
00040 *> \endverbatim
00041 *
00042 *  Authors:
00043 *  ========
00044 *
00045 *> \author Univ. of Tennessee 
00046 *> \author Univ. of California Berkeley 
00047 *> \author Univ. of Colorado Denver 
00048 *> \author NAG Ltd. 
00049 *
00050 *> \date November 2011
00051 *
00052 *> \ingroup complex16_lin
00053 *
00054 *  =====================================================================
00055       SUBROUTINE ZERRTR( PATH, NUNIT )
00056 *
00057 *  -- LAPACK test routine (version 3.4.0) --
00058 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
00059 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
00060 *     November 2011
00061 *
00062 *     .. Scalar Arguments ..
00063       CHARACTER*3        PATH
00064       INTEGER            NUNIT
00065 *     ..
00066 *
00067 *  =====================================================================
00068 *
00069 *     .. Parameters ..
00070       INTEGER            NMAX
00071       PARAMETER          ( NMAX = 2 )
00072 *     ..
00073 *     .. Local Scalars ..
00074       CHARACTER*2        C2
00075       INTEGER            INFO
00076       DOUBLE PRECISION   RCOND, SCALE
00077 *     ..
00078 *     .. Local Arrays ..
00079       DOUBLE PRECISION   R1( NMAX ), R2( NMAX ), RW( NMAX )
00080       COMPLEX*16         A( NMAX, NMAX ), B( NMAX ), W( NMAX ),
00081      $                   X( NMAX )
00082 *     ..
00083 *     .. External Functions ..
00084       LOGICAL            LSAMEN
00085       EXTERNAL           LSAMEN
00086 *     ..
00087 *     .. External Subroutines ..
00088       EXTERNAL           ALAESM, CHKXER, ZLATBS, ZLATPS, ZLATRS, ZTBCON,
00089      $                   ZTBRFS, ZTBTRS, ZTPCON, ZTPRFS, ZTPTRI, ZTPTRS,
00090      $                   ZTRCON, ZTRRFS, ZTRTI2, ZTRTRI, ZTRTRS
00091 *     ..
00092 *     .. Scalars in Common ..
00093       LOGICAL            LERR, OK
00094       CHARACTER*32       SRNAMT
00095       INTEGER            INFOT, NOUT
00096 *     ..
00097 *     .. Common blocks ..
00098       COMMON             / INFOC / INFOT, NOUT, OK, LERR
00099       COMMON             / SRNAMC / SRNAMT
00100 *     ..
00101 *     .. Executable Statements ..
00102 *
00103       NOUT = NUNIT
00104       WRITE( NOUT, FMT = * )
00105       C2 = PATH( 2: 3 )
00106       A( 1, 1 ) = 1.D0
00107       A( 1, 2 ) = 2.D0
00108       A( 2, 2 ) = 3.D0
00109       A( 2, 1 ) = 4.D0
00110       OK = .TRUE.
00111 *
00112 *     Test error exits for the general triangular routines.
00113 *
00114       IF( LSAMEN( 2, C2, 'TR' ) ) THEN
00115 *
00116 *        ZTRTRI
00117 *
00118          SRNAMT = 'ZTRTRI'
00119          INFOT = 1
00120          CALL ZTRTRI( '/', 'N', 0, A, 1, INFO )
00121          CALL CHKXER( 'ZTRTRI', INFOT, NOUT, LERR, OK )
00122          INFOT = 2
00123          CALL ZTRTRI( 'U', '/', 0, A, 1, INFO )
00124          CALL CHKXER( 'ZTRTRI', INFOT, NOUT, LERR, OK )
00125          INFOT = 3
00126          CALL ZTRTRI( 'U', 'N', -1, A, 1, INFO )
00127          CALL CHKXER( 'ZTRTRI', INFOT, NOUT, LERR, OK )
00128          INFOT = 5
00129          CALL ZTRTRI( 'U', 'N', 2, A, 1, INFO )
00130          CALL CHKXER( 'ZTRTRI', INFOT, NOUT, LERR, OK )
00131 *
00132 *        ZTRTI2
00133 *
00134          SRNAMT = 'ZTRTI2'
00135          INFOT = 1
00136          CALL ZTRTI2( '/', 'N', 0, A, 1, INFO )
00137          CALL CHKXER( 'ZTRTI2', INFOT, NOUT, LERR, OK )
00138          INFOT = 2
00139          CALL ZTRTI2( 'U', '/', 0, A, 1, INFO )
00140          CALL CHKXER( 'ZTRTI2', INFOT, NOUT, LERR, OK )
00141          INFOT = 3
00142          CALL ZTRTI2( 'U', 'N', -1, A, 1, INFO )
00143          CALL CHKXER( 'ZTRTI2', INFOT, NOUT, LERR, OK )
00144          INFOT = 5
00145          CALL ZTRTI2( 'U', 'N', 2, A, 1, INFO )
00146          CALL CHKXER( 'ZTRTI2', INFOT, NOUT, LERR, OK )
00147 *
00148 *
00149 *        ZTRTRS
00150 *
00151          SRNAMT = 'ZTRTRS'
00152          INFOT = 1
00153          CALL ZTRTRS( '/', 'N', 'N', 0, 0, A, 1, X, 1, INFO )
00154          CALL CHKXER( 'ZTRTRS', INFOT, NOUT, LERR, OK )
00155          INFOT = 2
00156          CALL ZTRTRS( 'U', '/', 'N', 0, 0, A, 1, X, 1, INFO )
00157          CALL CHKXER( 'ZTRTRS', INFOT, NOUT, LERR, OK )
00158          INFOT = 3
00159          CALL ZTRTRS( 'U', 'N', '/', 0, 0, A, 1, X, 1, INFO )
00160          CALL CHKXER( 'ZTRTRS', INFOT, NOUT, LERR, OK )
00161          INFOT = 4
00162          CALL ZTRTRS( 'U', 'N', 'N', -1, 0, A, 1, X, 1, INFO )
00163          CALL CHKXER( 'ZTRTRS', INFOT, NOUT, LERR, OK )
00164          INFOT = 5
00165          CALL ZTRTRS( 'U', 'N', 'N', 0, -1, A, 1, X, 1, INFO )
00166          CALL CHKXER( 'ZTRTRS', INFOT, NOUT, LERR, OK )
00167          INFOT = 7
00168 *
00169 *        ZTRRFS
00170 *
00171          SRNAMT = 'ZTRRFS'
00172          INFOT = 1
00173          CALL ZTRRFS( '/', 'N', 'N', 0, 0, A, 1, B, 1, X, 1, R1, R2, W,
00174      $                RW, INFO )
00175          CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK )
00176          INFOT = 2
00177          CALL ZTRRFS( 'U', '/', 'N', 0, 0, A, 1, B, 1, X, 1, R1, R2, W,
00178      $                RW, INFO )
00179          CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK )
00180          INFOT = 3
00181          CALL ZTRRFS( 'U', 'N', '/', 0, 0, A, 1, B, 1, X, 1, R1, R2, W,
00182      $                RW, INFO )
00183          CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK )
00184          INFOT = 4
00185          CALL ZTRRFS( 'U', 'N', 'N', -1, 0, A, 1, B, 1, X, 1, R1, R2, W,
00186      $                RW, INFO )
00187          CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK )
00188          INFOT = 5
00189          CALL ZTRRFS( 'U', 'N', 'N', 0, -1, A, 1, B, 1, X, 1, R1, R2, W,
00190      $                RW, INFO )
00191          CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK )
00192          INFOT = 7
00193          CALL ZTRRFS( 'U', 'N', 'N', 2, 1, A, 1, B, 2, X, 2, R1, R2, W,
00194      $                RW, INFO )
00195          CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK )
00196          INFOT = 9
00197          CALL ZTRRFS( 'U', 'N', 'N', 2, 1, A, 2, B, 1, X, 2, R1, R2, W,
00198      $                RW, INFO )
00199          CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK )
00200          INFOT = 11
00201          CALL ZTRRFS( 'U', 'N', 'N', 2, 1, A, 2, B, 2, X, 1, R1, R2, W,
00202      $                RW, INFO )
00203          CALL CHKXER( 'ZTRRFS', INFOT, NOUT, LERR, OK )
00204 *
00205 *        ZTRCON
00206 *
00207          SRNAMT = 'ZTRCON'
00208          INFOT = 1
00209          CALL ZTRCON( '/', 'U', 'N', 0, A, 1, RCOND, W, RW, INFO )
00210          CALL CHKXER( 'ZTRCON', INFOT, NOUT, LERR, OK )
00211          INFOT = 2
00212          CALL ZTRCON( '1', '/', 'N', 0, A, 1, RCOND, W, RW, INFO )
00213          CALL CHKXER( 'ZTRCON', INFOT, NOUT, LERR, OK )
00214          INFOT = 3
00215          CALL ZTRCON( '1', 'U', '/', 0, A, 1, RCOND, W, RW, INFO )
00216          CALL CHKXER( 'ZTRCON', INFOT, NOUT, LERR, OK )
00217          INFOT = 4
00218          CALL ZTRCON( '1', 'U', 'N', -1, A, 1, RCOND, W, RW, INFO )
00219          CALL CHKXER( 'ZTRCON', INFOT, NOUT, LERR, OK )
00220          INFOT = 6
00221          CALL ZTRCON( '1', 'U', 'N', 2, A, 1, RCOND, W, RW, INFO )
00222          CALL CHKXER( 'ZTRCON', INFOT, NOUT, LERR, OK )
00223 *
00224 *        ZLATRS
00225 *
00226          SRNAMT = 'ZLATRS'
00227          INFOT = 1
00228          CALL ZLATRS( '/', 'N', 'N', 'N', 0, A, 1, X, SCALE, RW, INFO )
00229          CALL CHKXER( 'ZLATRS', INFOT, NOUT, LERR, OK )
00230          INFOT = 2
00231          CALL ZLATRS( 'U', '/', 'N', 'N', 0, A, 1, X, SCALE, RW, INFO )
00232          CALL CHKXER( 'ZLATRS', INFOT, NOUT, LERR, OK )
00233          INFOT = 3
00234          CALL ZLATRS( 'U', 'N', '/', 'N', 0, A, 1, X, SCALE, RW, INFO )
00235          CALL CHKXER( 'ZLATRS', INFOT, NOUT, LERR, OK )
00236          INFOT = 4
00237          CALL ZLATRS( 'U', 'N', 'N', '/', 0, A, 1, X, SCALE, RW, INFO )
00238          CALL CHKXER( 'ZLATRS', INFOT, NOUT, LERR, OK )
00239          INFOT = 5
00240          CALL ZLATRS( 'U', 'N', 'N', 'N', -1, A, 1, X, SCALE, RW, INFO )
00241          CALL CHKXER( 'ZLATRS', INFOT, NOUT, LERR, OK )
00242          INFOT = 7
00243          CALL ZLATRS( 'U', 'N', 'N', 'N', 2, A, 1, X, SCALE, RW, INFO )
00244          CALL CHKXER( 'ZLATRS', INFOT, NOUT, LERR, OK )
00245 *
00246 *     Test error exits for the packed triangular routines.
00247 *
00248       ELSE IF( LSAMEN( 2, C2, 'TP' ) ) THEN
00249 *
00250 *        ZTPTRI
00251 *
00252          SRNAMT = 'ZTPTRI'
00253          INFOT = 1
00254          CALL ZTPTRI( '/', 'N', 0, A, INFO )
00255          CALL CHKXER( 'ZTPTRI', INFOT, NOUT, LERR, OK )
00256          INFOT = 2
00257          CALL ZTPTRI( 'U', '/', 0, A, INFO )
00258          CALL CHKXER( 'ZTPTRI', INFOT, NOUT, LERR, OK )
00259          INFOT = 3
00260          CALL ZTPTRI( 'U', 'N', -1, A, INFO )
00261          CALL CHKXER( 'ZTPTRI', INFOT, NOUT, LERR, OK )
00262 *
00263 *        ZTPTRS
00264 *
00265          SRNAMT = 'ZTPTRS'
00266          INFOT = 1
00267          CALL ZTPTRS( '/', 'N', 'N', 0, 0, A, X, 1, INFO )
00268          CALL CHKXER( 'ZTPTRS', INFOT, NOUT, LERR, OK )
00269          INFOT = 2
00270          CALL ZTPTRS( 'U', '/', 'N', 0, 0, A, X, 1, INFO )
00271          CALL CHKXER( 'ZTPTRS', INFOT, NOUT, LERR, OK )
00272          INFOT = 3
00273          CALL ZTPTRS( 'U', 'N', '/', 0, 0, A, X, 1, INFO )
00274          CALL CHKXER( 'ZTPTRS', INFOT, NOUT, LERR, OK )
00275          INFOT = 4
00276          CALL ZTPTRS( 'U', 'N', 'N', -1, 0, A, X, 1, INFO )
00277          CALL CHKXER( 'ZTPTRS', INFOT, NOUT, LERR, OK )
00278          INFOT = 5
00279          CALL ZTPTRS( 'U', 'N', 'N', 0, -1, A, X, 1, INFO )
00280          CALL CHKXER( 'ZTPTRS', INFOT, NOUT, LERR, OK )
00281          INFOT = 8
00282          CALL ZTPTRS( 'U', 'N', 'N', 2, 1, A, X, 1, INFO )
00283          CALL CHKXER( 'ZTPTRS', INFOT, NOUT, LERR, OK )
00284 *
00285 *        ZTPRFS
00286 *
00287          SRNAMT = 'ZTPRFS'
00288          INFOT = 1
00289          CALL ZTPRFS( '/', 'N', 'N', 0, 0, A, B, 1, X, 1, R1, R2, W, RW,
00290      $                INFO )
00291          CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK )
00292          INFOT = 2
00293          CALL ZTPRFS( 'U', '/', 'N', 0, 0, A, B, 1, X, 1, R1, R2, W, RW,
00294      $                INFO )
00295          CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK )
00296          INFOT = 3
00297          CALL ZTPRFS( 'U', 'N', '/', 0, 0, A, B, 1, X, 1, R1, R2, W, RW,
00298      $                INFO )
00299          CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK )
00300          INFOT = 4
00301          CALL ZTPRFS( 'U', 'N', 'N', -1, 0, A, B, 1, X, 1, R1, R2, W,
00302      $                RW, INFO )
00303          CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK )
00304          INFOT = 5
00305          CALL ZTPRFS( 'U', 'N', 'N', 0, -1, A, B, 1, X, 1, R1, R2, W,
00306      $                RW, INFO )
00307          CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK )
00308          INFOT = 8
00309          CALL ZTPRFS( 'U', 'N', 'N', 2, 1, A, B, 1, X, 2, R1, R2, W, RW,
00310      $                INFO )
00311          CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK )
00312          INFOT = 10
00313          CALL ZTPRFS( 'U', 'N', 'N', 2, 1, A, B, 2, X, 1, R1, R2, W, RW,
00314      $                INFO )
00315          CALL CHKXER( 'ZTPRFS', INFOT, NOUT, LERR, OK )
00316 *
00317 *        ZTPCON
00318 *
00319          SRNAMT = 'ZTPCON'
00320          INFOT = 1
00321          CALL ZTPCON( '/', 'U', 'N', 0, A, RCOND, W, RW, INFO )
00322          CALL CHKXER( 'ZTPCON', INFOT, NOUT, LERR, OK )
00323          INFOT = 2
00324          CALL ZTPCON( '1', '/', 'N', 0, A, RCOND, W, RW, INFO )
00325          CALL CHKXER( 'ZTPCON', INFOT, NOUT, LERR, OK )
00326          INFOT = 3
00327          CALL ZTPCON( '1', 'U', '/', 0, A, RCOND, W, RW, INFO )
00328          CALL CHKXER( 'ZTPCON', INFOT, NOUT, LERR, OK )
00329          INFOT = 4
00330          CALL ZTPCON( '1', 'U', 'N', -1, A, RCOND, W, RW, INFO )
00331          CALL CHKXER( 'ZTPCON', INFOT, NOUT, LERR, OK )
00332 *
00333 *        ZLATPS
00334 *
00335          SRNAMT = 'ZLATPS'
00336          INFOT = 1
00337          CALL ZLATPS( '/', 'N', 'N', 'N', 0, A, X, SCALE, RW, INFO )
00338          CALL CHKXER( 'ZLATPS', INFOT, NOUT, LERR, OK )
00339          INFOT = 2
00340          CALL ZLATPS( 'U', '/', 'N', 'N', 0, A, X, SCALE, RW, INFO )
00341          CALL CHKXER( 'ZLATPS', INFOT, NOUT, LERR, OK )
00342          INFOT = 3
00343          CALL ZLATPS( 'U', 'N', '/', 'N', 0, A, X, SCALE, RW, INFO )
00344          CALL CHKXER( 'ZLATPS', INFOT, NOUT, LERR, OK )
00345          INFOT = 4
00346          CALL ZLATPS( 'U', 'N', 'N', '/', 0, A, X, SCALE, RW, INFO )
00347          CALL CHKXER( 'ZLATPS', INFOT, NOUT, LERR, OK )
00348          INFOT = 5
00349          CALL ZLATPS( 'U', 'N', 'N', 'N', -1, A, X, SCALE, RW, INFO )
00350          CALL CHKXER( 'ZLATPS', INFOT, NOUT, LERR, OK )
00351 *
00352 *     Test error exits for the banded triangular routines.
00353 *
00354       ELSE IF( LSAMEN( 2, C2, 'TB' ) ) THEN
00355 *
00356 *        ZTBTRS
00357 *
00358          SRNAMT = 'ZTBTRS'
00359          INFOT = 1
00360          CALL ZTBTRS( '/', 'N', 'N', 0, 0, 0, A, 1, X, 1, INFO )
00361          CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK )
00362          INFOT = 2
00363          CALL ZTBTRS( 'U', '/', 'N', 0, 0, 0, A, 1, X, 1, INFO )
00364          CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK )
00365          INFOT = 3
00366          CALL ZTBTRS( 'U', 'N', '/', 0, 0, 0, A, 1, X, 1, INFO )
00367          CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK )
00368          INFOT = 4
00369          CALL ZTBTRS( 'U', 'N', 'N', -1, 0, 0, A, 1, X, 1, INFO )
00370          CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK )
00371          INFOT = 5
00372          CALL ZTBTRS( 'U', 'N', 'N', 0, -1, 0, A, 1, X, 1, INFO )
00373          CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK )
00374          INFOT = 6
00375          CALL ZTBTRS( 'U', 'N', 'N', 0, 0, -1, A, 1, X, 1, INFO )
00376          CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK )
00377          INFOT = 8
00378          CALL ZTBTRS( 'U', 'N', 'N', 2, 1, 1, A, 1, X, 2, INFO )
00379          CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK )
00380          INFOT = 10
00381          CALL ZTBTRS( 'U', 'N', 'N', 2, 0, 1, A, 1, X, 1, INFO )
00382          CALL CHKXER( 'ZTBTRS', INFOT, NOUT, LERR, OK )
00383 *
00384 *        ZTBRFS
00385 *
00386          SRNAMT = 'ZTBRFS'
00387          INFOT = 1
00388          CALL ZTBRFS( '/', 'N', 'N', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2,
00389      $                W, RW, INFO )
00390          CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK )
00391          INFOT = 2
00392          CALL ZTBRFS( 'U', '/', 'N', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2,
00393      $                W, RW, INFO )
00394          CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK )
00395          INFOT = 3
00396          CALL ZTBRFS( 'U', 'N', '/', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2,
00397      $                W, RW, INFO )
00398          CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK )
00399          INFOT = 4
00400          CALL ZTBRFS( 'U', 'N', 'N', -1, 0, 0, A, 1, B, 1, X, 1, R1, R2,
00401      $                W, RW, INFO )
00402          CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK )
00403          INFOT = 5
00404          CALL ZTBRFS( 'U', 'N', 'N', 0, -1, 0, A, 1, B, 1, X, 1, R1, R2,
00405      $                W, RW, INFO )
00406          CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK )
00407          INFOT = 6
00408          CALL ZTBRFS( 'U', 'N', 'N', 0, 0, -1, A, 1, B, 1, X, 1, R1, R2,
00409      $                W, RW, INFO )
00410          CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK )
00411          INFOT = 8
00412          CALL ZTBRFS( 'U', 'N', 'N', 2, 1, 1, A, 1, B, 2, X, 2, R1, R2,
00413      $                W, RW, INFO )
00414          CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK )
00415          INFOT = 10
00416          CALL ZTBRFS( 'U', 'N', 'N', 2, 1, 1, A, 2, B, 1, X, 2, R1, R2,
00417      $                W, RW, INFO )
00418          CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK )
00419          INFOT = 12
00420          CALL ZTBRFS( 'U', 'N', 'N', 2, 1, 1, A, 2, B, 2, X, 1, R1, R2,
00421      $                W, RW, INFO )
00422          CALL CHKXER( 'ZTBRFS', INFOT, NOUT, LERR, OK )
00423 *
00424 *        ZTBCON
00425 *
00426          SRNAMT = 'ZTBCON'
00427          INFOT = 1
00428          CALL ZTBCON( '/', 'U', 'N', 0, 0, A, 1, RCOND, W, RW, INFO )
00429          CALL CHKXER( 'ZTBCON', INFOT, NOUT, LERR, OK )
00430          INFOT = 2
00431          CALL ZTBCON( '1', '/', 'N', 0, 0, A, 1, RCOND, W, RW, INFO )
00432          CALL CHKXER( 'ZTBCON', INFOT, NOUT, LERR, OK )
00433          INFOT = 3
00434          CALL ZTBCON( '1', 'U', '/', 0, 0, A, 1, RCOND, W, RW, INFO )
00435          CALL CHKXER( 'ZTBCON', INFOT, NOUT, LERR, OK )
00436          INFOT = 4
00437          CALL ZTBCON( '1', 'U', 'N', -1, 0, A, 1, RCOND, W, RW, INFO )
00438          CALL CHKXER( 'ZTBCON', INFOT, NOUT, LERR, OK )
00439          INFOT = 5
00440          CALL ZTBCON( '1', 'U', 'N', 0, -1, A, 1, RCOND, W, RW, INFO )
00441          CALL CHKXER( 'ZTBCON', INFOT, NOUT, LERR, OK )
00442          INFOT = 7
00443          CALL ZTBCON( '1', 'U', 'N', 2, 1, A, 1, RCOND, W, RW, INFO )
00444          CALL CHKXER( 'ZTBCON', INFOT, NOUT, LERR, OK )
00445 *
00446 *        ZLATBS
00447 *
00448          SRNAMT = 'ZLATBS'
00449          INFOT = 1
00450          CALL ZLATBS( '/', 'N', 'N', 'N', 0, 0, A, 1, X, SCALE, RW,
00451      $                INFO )
00452          CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK )
00453          INFOT = 2
00454          CALL ZLATBS( 'U', '/', 'N', 'N', 0, 0, A, 1, X, SCALE, RW,
00455      $                INFO )
00456          CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK )
00457          INFOT = 3
00458          CALL ZLATBS( 'U', 'N', '/', 'N', 0, 0, A, 1, X, SCALE, RW,
00459      $                INFO )
00460          CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK )
00461          INFOT = 4
00462          CALL ZLATBS( 'U', 'N', 'N', '/', 0, 0, A, 1, X, SCALE, RW,
00463      $                INFO )
00464          CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK )
00465          INFOT = 5
00466          CALL ZLATBS( 'U', 'N', 'N', 'N', -1, 0, A, 1, X, SCALE, RW,
00467      $                INFO )
00468          CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK )
00469          INFOT = 6
00470          CALL ZLATBS( 'U', 'N', 'N', 'N', 1, -1, A, 1, X, SCALE, RW,
00471      $                INFO )
00472          CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK )
00473          INFOT = 8
00474          CALL ZLATBS( 'U', 'N', 'N', 'N', 2, 1, A, 1, X, SCALE, RW,
00475      $                INFO )
00476          CALL CHKXER( 'ZLATBS', INFOT, NOUT, LERR, OK )
00477       END IF
00478 *
00479 *     Print a summary line.
00480 *
00481       CALL ALAESM( PATH, OK, NOUT )
00482 *
00483       RETURN
00484 *
00485 *     End of ZERRTR
00486 *
00487       END
 All Files Functions