![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b ZERRTZ 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 ZERRTZ( 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 *> ZERRTZ tests the error exits for ZTZRQF and ZTZRZF. 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 ZERRTZ( 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*16 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, ZTZRQF, ZTZRZF 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 DCMPLX 00098 * .. 00099 * .. Executable Statements .. 00100 * 00101 NOUT = NUNIT 00102 C2 = PATH( 2: 3 ) 00103 A( 1, 1 ) = DCMPLX( 1.D+0, -1.D+0 ) 00104 A( 1, 2 ) = DCMPLX( 2.D+0, -2.D+0 ) 00105 A( 2, 2 ) = DCMPLX( 3.D+0, -3.D+0 ) 00106 A( 2, 1 ) = DCMPLX( 4.D+0, -4.D+0 ) 00107 W( 1 ) = DCMPLX( 0.D+0, 0.D+0 ) 00108 W( 2 ) = DCMPLX( 0.D+0, 0.D+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 * ZTZRQF 00117 * 00118 SRNAMT = 'ZTZRQF' 00119 INFOT = 1 00120 CALL ZTZRQF( -1, 0, A, 1, TAU, INFO ) 00121 CALL CHKXER( 'ZTZRQF', INFOT, NOUT, LERR, OK ) 00122 INFOT = 2 00123 CALL ZTZRQF( 1, 0, A, 1, TAU, INFO ) 00124 CALL CHKXER( 'ZTZRQF', INFOT, NOUT, LERR, OK ) 00125 INFOT = 4 00126 CALL ZTZRQF( 2, 2, A, 1, TAU, INFO ) 00127 CALL CHKXER( 'ZTZRQF', INFOT, NOUT, LERR, OK ) 00128 * 00129 * ZTZRZF 00130 * 00131 SRNAMT = 'ZTZRZF' 00132 INFOT = 1 00133 CALL ZTZRZF( -1, 0, A, 1, TAU, W, 1, INFO ) 00134 CALL CHKXER( 'ZTZRZF', INFOT, NOUT, LERR, OK ) 00135 INFOT = 2 00136 CALL ZTZRZF( 1, 0, A, 1, TAU, W, 1, INFO ) 00137 CALL CHKXER( 'ZTZRZF', INFOT, NOUT, LERR, OK ) 00138 INFOT = 4 00139 CALL ZTZRZF( 2, 2, A, 1, TAU, W, 1, INFO ) 00140 CALL CHKXER( 'ZTZRZF', INFOT, NOUT, LERR, OK ) 00141 INFOT = 7 00142 CALL ZTZRZF( 2, 2, A, 2, TAU, W, 0, INFO ) 00143 CALL CHKXER( 'ZTZRZF', INFOT, NOUT, LERR, OK ) 00144 INFOT = 7 00145 CALL ZTZRZF( 2, 3, A, 2, TAU, W, 1, INFO ) 00146 CALL CHKXER( 'ZTZRZF', 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 ZERRTZ 00156 * 00157 END