1*> \brief \b ZERRTZ
2*
3*  =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6*            http://www.netlib.org/lapack/explore-html/
7*
8*  Definition:
9*  ===========
10*
11*       SUBROUTINE ZERRTZ( PATH, NUNIT )
12*
13*       .. Scalar Arguments ..
14*       CHARACTER*3        PATH
15*       INTEGER            NUNIT
16*       ..
17*
18*
19*> \par Purpose:
20*  =============
21*>
22*> \verbatim
23*>
24*> ZERRTZ tests the error exits for ZTZRZF.
25*> \endverbatim
26*
27*  Arguments:
28*  ==========
29*
30*> \param[in] PATH
31*> \verbatim
32*>          PATH is CHARACTER*3
33*>          The LAPACK path name for the routines to be tested.
34*> \endverbatim
35*>
36*> \param[in] NUNIT
37*> \verbatim
38*>          NUNIT is INTEGER
39*>          The unit number for output.
40*> \endverbatim
41*
42*  Authors:
43*  ========
44*
45*> \author Univ. of Tennessee
46*> \author Univ. of California Berkeley
47*> \author Univ. of Colorado Denver
48*> \author NAG Ltd.
49*
50*> \date December 2016
51*
52*> \ingroup complex16_lin
53*
54*  =====================================================================
55      SUBROUTINE ZERRTZ( PATH, NUNIT )
56*
57*  -- LAPACK test routine (version 3.7.0) --
58*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
59*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
60*     December 2016
61*
62*     .. Scalar Arguments ..
63      CHARACTER*3        PATH
64      INTEGER            NUNIT
65*     ..
66*
67*  =====================================================================
68*
69*     .. Parameters ..
70      INTEGER            NMAX
71      PARAMETER          ( NMAX = 2 )
72*     ..
73*     .. Local Scalars ..
74      CHARACTER*2        C2
75      INTEGER            INFO
76*     ..
77*     .. Local Arrays ..
78      COMPLEX*16         A( NMAX, NMAX ), TAU( NMAX ), W( NMAX )
79*     ..
80*     .. External Functions ..
81      LOGICAL            LSAMEN
82      EXTERNAL           LSAMEN
83*     ..
84*     .. External Subroutines ..
85      EXTERNAL           ALAESM, CHKXER, ZTZRZF
86*     ..
87*     .. Scalars in Common ..
88      LOGICAL            LERR, OK
89      CHARACTER*32       SRNAMT
90      INTEGER            INFOT, NOUT
91*     ..
92*     .. Common blocks ..
93      COMMON             / INFOC / INFOT, NOUT, OK, LERR
94      COMMON             / SRNAMC / SRNAMT
95*     ..
96*     .. Intrinsic Functions ..
97      INTRINSIC          DCMPLX
98*     ..
99*     .. Executable Statements ..
100*
101      NOUT = NUNIT
102      C2 = PATH( 2: 3 )
103      A( 1, 1 ) = DCMPLX( 1.D+0, -1.D+0 )
104      A( 1, 2 ) = DCMPLX( 2.D+0, -2.D+0 )
105      A( 2, 2 ) = DCMPLX( 3.D+0, -3.D+0 )
106      A( 2, 1 ) = DCMPLX( 4.D+0, -4.D+0 )
107      W( 1 ) = DCMPLX( 0.D+0, 0.D+0 )
108      W( 2 ) = DCMPLX( 0.D+0, 0.D+0 )
109      OK = .TRUE.
110*
111*     Test error exits for the trapezoidal routines.
112      WRITE( NOUT, FMT = * )
113      IF( LSAMEN( 2, C2, 'TZ' ) ) THEN
114*
115*
116*        ZTZRZF
117*
118         SRNAMT = 'ZTZRZF'
119         INFOT = 1
120         CALL ZTZRZF( -1, 0, A, 1, TAU, W, 1, INFO )
121         CALL CHKXER( 'ZTZRZF', INFOT, NOUT, LERR, OK )
122         INFOT = 2
123         CALL ZTZRZF( 1, 0, A, 1, TAU, W, 1, INFO )
124         CALL CHKXER( 'ZTZRZF', INFOT, NOUT, LERR, OK )
125         INFOT = 4
126         CALL ZTZRZF( 2, 2, A, 1, TAU, W, 1, INFO )
127         CALL CHKXER( 'ZTZRZF', INFOT, NOUT, LERR, OK )
128         INFOT = 7
129         CALL ZTZRZF( 2, 2, A, 2, TAU, W, 0, INFO )
130         CALL CHKXER( 'ZTZRZF', INFOT, NOUT, LERR, OK )
131         INFOT = 7
132         CALL ZTZRZF( 2, 3, A, 2, TAU, W, 1, INFO )
133         CALL CHKXER( 'ZTZRZF', INFOT, NOUT, LERR, OK )
134      END IF
135*
136*     Print a summary line.
137*
138      CALL ALAESM( PATH, OK, NOUT )
139*
140      RETURN
141*
142*     End of ZERRTZ
143*
144      END
145