LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
cerrtz.f
Go to the documentation of this file.
00001 *> \brief \b CERRTZ
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 CERRTZ( 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 *> CERRTZ tests the error exits for CTZRQF and CTZRZF.
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 complex_lin
00053 *
00054 *  =====================================================================
00055       SUBROUTINE CERRTZ( 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       COMPLEX            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, CTZRQF, CTZRZF
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 *     .. Intrinsic Functions ..
00097       INTRINSIC          CMPLX
00098 *     ..
00099 *     .. Executable Statements ..
00100 *
00101       NOUT = NUNIT
00102       C2 = PATH( 2: 3 )
00103       A( 1, 1 ) = CMPLX( 1.E+0, -1.E+0 )
00104       A( 1, 2 ) = CMPLX( 2.E+0, -2.E+0 )
00105       A( 2, 2 ) = CMPLX( 3.E+0, -3.E+0 )
00106       A( 2, 1 ) = CMPLX( 4.E+0, -4.E+0 )
00107       W( 1 ) = CMPLX( 0.E+0, 0.E+0 )
00108       W( 2 ) = CMPLX( 0.E+0, 0.E+0 )
00109       OK = .TRUE.
00110 *
00111 *     Test error exits for the trapezoidal routines.
00112 *
00113       WRITE( NOUT, FMT = * )
00114       IF( LSAMEN( 2, C2, 'TZ' ) ) THEN
00115 *
00116 *        CTZRQF
00117 *
00118          SRNAMT = 'CTZRQF'
00119          INFOT = 1
00120          CALL CTZRQF( -1, 0, A, 1, TAU, INFO )
00121          CALL CHKXER( 'CTZRQF', INFOT, NOUT, LERR, OK )
00122          INFOT = 2
00123          CALL CTZRQF( 1, 0, A, 1, TAU, INFO )
00124          CALL CHKXER( 'CTZRQF', INFOT, NOUT, LERR, OK )
00125          INFOT = 4
00126          CALL CTZRQF( 2, 2, A, 1, TAU, INFO )
00127          CALL CHKXER( 'CTZRQF', INFOT, NOUT, LERR, OK )
00128 *
00129 *        CTZRZF
00130 *
00131          SRNAMT = 'CTZRZF'
00132          INFOT = 1
00133          CALL CTZRZF( -1, 0, A, 1, TAU, W, 1, INFO )
00134          CALL CHKXER( 'CTZRZF', INFOT, NOUT, LERR, OK )
00135          INFOT = 2
00136          CALL CTZRZF( 1, 0, A, 1, TAU, W, 1, INFO )
00137          CALL CHKXER( 'CTZRZF', INFOT, NOUT, LERR, OK )
00138          INFOT = 4
00139          CALL CTZRZF( 2, 2, A, 1, TAU, W, 1, INFO )
00140          CALL CHKXER( 'CTZRZF', INFOT, NOUT, LERR, OK )
00141          INFOT = 7
00142          CALL CTZRZF( 2, 2, A, 2, TAU, W, 0, INFO )
00143          CALL CHKXER( 'CTZRZF', INFOT, NOUT, LERR, OK )
00144          INFOT = 7
00145          CALL CTZRZF( 2, 3, A, 2, TAU, W, 1, INFO )
00146          CALL CHKXER( 'CTZRZF', INFOT, NOUT, LERR, OK )
00147       END IF
00148 *
00149 *     Print a summary line.
00150 *
00151       CALL ALAESM( PATH, OK, NOUT )
00152 *
00153       RETURN
00154 *
00155 *     End of CERRTZ
00156 *
00157       END
 All Files Functions