LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
derrtz.f
Go to the documentation of this file.
00001 *> \brief \b DERRTZ
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 DERRTZ( 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 *> DERRTZ tests the error exits for DTZRQF and STZRZF.
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 double_lin
00053 *
00054 *  =====================================================================
00055       SUBROUTINE DERRTZ( 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 *     ..
00077 *     .. Local Arrays ..
00078       DOUBLE PRECISION   A( NMAX, NMAX ), TAU( NMAX ), W( NMAX )
00079 *     ..
00080 *     .. External Functions ..
00081       LOGICAL            LSAMEN
00082       EXTERNAL           LSAMEN
00083 *     ..
00084 *     .. External Subroutines ..
00085       EXTERNAL           ALAESM, CHKXER, DTZRQF, DTZRZF
00086 *     ..
00087 *     .. Scalars in Common ..
00088       LOGICAL            LERR, OK
00089       CHARACTER*32       SRNAMT
00090       INTEGER            INFOT, NOUT
00091 *     ..
00092 *     .. Common blocks ..
00093       COMMON             / INFOC / INFOT, NOUT, OK, LERR
00094       COMMON             / SRNAMC / SRNAMT
00095 *     ..
00096 *     .. Executable Statements ..
00097 *
00098       NOUT = NUNIT
00099       WRITE( NOUT, FMT = * )
00100       C2 = PATH( 2: 3 )
00101       A( 1, 1 ) = 1.D+0
00102       A( 1, 2 ) = 2.D+0
00103       A( 2, 2 ) = 3.D+0
00104       A( 2, 1 ) = 4.D+0
00105       W( 1 ) = 0.0D+0
00106       W( 2 ) = 0.0D+0
00107       OK = .TRUE.
00108 *
00109       IF( LSAMEN( 2, C2, 'TZ' ) ) THEN
00110 *
00111 *        Test error exits for the trapezoidal routines.
00112 *
00113 *        DTZRQF
00114 *
00115          SRNAMT = 'DTZRQF'
00116          INFOT = 1
00117          CALL DTZRQF( -1, 0, A, 1, TAU, INFO )
00118          CALL CHKXER( 'DTZRQF', INFOT, NOUT, LERR, OK )
00119          INFOT = 2
00120          CALL DTZRQF( 1, 0, A, 1, TAU, INFO )
00121          CALL CHKXER( 'DTZRQF', INFOT, NOUT, LERR, OK )
00122          INFOT = 4
00123          CALL DTZRQF( 2, 2, A, 1, TAU, INFO )
00124          CALL CHKXER( 'DTZRQF', INFOT, NOUT, LERR, OK )
00125 *
00126 *        DTZRZF
00127 *
00128          SRNAMT = 'DTZRZF'
00129          INFOT = 1
00130          CALL DTZRZF( -1, 0, A, 1, TAU, W, 1, INFO )
00131          CALL CHKXER( 'DTZRZF', INFOT, NOUT, LERR, OK )
00132          INFOT = 2
00133          CALL DTZRZF( 1, 0, A, 1, TAU, W, 1, INFO )
00134          CALL CHKXER( 'DTZRZF', INFOT, NOUT, LERR, OK )
00135          INFOT = 4
00136          CALL DTZRZF( 2, 2, A, 1, TAU, W, 1, INFO )
00137          CALL CHKXER( 'DTZRZF', INFOT, NOUT, LERR, OK )
00138          INFOT = 7
00139          CALL DTZRZF( 2, 2, A, 2, TAU, W, 0, INFO )
00140          CALL CHKXER( 'DTZRZF', INFOT, NOUT, LERR, OK )
00141          INFOT = 7
00142          CALL DTZRZF( 2, 3, A, 2, TAU, W, 1, INFO )
00143          CALL CHKXER( 'DTZRZF', INFOT, NOUT, LERR, OK )
00144       END IF
00145 *
00146 *     Print a summary line.
00147 *
00148       CALL ALAESM( PATH, OK, NOUT )
00149 *
00150       RETURN
00151 *
00152 *     End of DERRTZ
00153 *
00154       END
 All Files Functions