LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ zerrtz()

subroutine zerrtz ( character*3  PATH,
integer  NUNIT 
)

ZERRTZ

Purpose:
 ZERRTZ tests the error exits for ZTZRZF.
Parameters
[in]PATH
          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.
[in]NUNIT
          NUNIT is INTEGER
          The unit number for output.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 53 of file zerrtz.f.

54*
55* -- LAPACK test routine --
56* -- LAPACK is a software package provided by Univ. of Tennessee, --
57* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
58*
59* .. Scalar Arguments ..
60 CHARACTER*3 PATH
61 INTEGER NUNIT
62* ..
63*
64* =====================================================================
65*
66* .. Parameters ..
67 INTEGER NMAX
68 parameter( nmax = 2 )
69* ..
70* .. Local Scalars ..
71 CHARACTER*2 C2
72 INTEGER INFO
73* ..
74* .. Local Arrays ..
75 COMPLEX*16 A( NMAX, NMAX ), TAU( NMAX ), W( NMAX )
76* ..
77* .. External Functions ..
78 LOGICAL LSAMEN
79 EXTERNAL lsamen
80* ..
81* .. External Subroutines ..
82 EXTERNAL alaesm, chkxer, ztzrzf
83* ..
84* .. Scalars in Common ..
85 LOGICAL LERR, OK
86 CHARACTER*32 SRNAMT
87 INTEGER INFOT, NOUT
88* ..
89* .. Common blocks ..
90 COMMON / infoc / infot, nout, ok, lerr
91 COMMON / srnamc / srnamt
92* ..
93* .. Intrinsic Functions ..
94 INTRINSIC dcmplx
95* ..
96* .. Executable Statements ..
97*
98 nout = nunit
99 c2 = path( 2: 3 )
100 a( 1, 1 ) = dcmplx( 1.d+0, -1.d+0 )
101 a( 1, 2 ) = dcmplx( 2.d+0, -2.d+0 )
102 a( 2, 2 ) = dcmplx( 3.d+0, -3.d+0 )
103 a( 2, 1 ) = dcmplx( 4.d+0, -4.d+0 )
104 w( 1 ) = dcmplx( 0.d+0, 0.d+0 )
105 w( 2 ) = dcmplx( 0.d+0, 0.d+0 )
106 ok = .true.
107*
108* Test error exits for the trapezoidal routines.
109 WRITE( nout, fmt = * )
110 IF( lsamen( 2, c2, 'TZ' ) ) THEN
111*
112*
113* ZTZRZF
114*
115 srnamt = 'ZTZRZF'
116 infot = 1
117 CALL ztzrzf( -1, 0, a, 1, tau, w, 1, info )
118 CALL chkxer( 'ZTZRZF', infot, nout, lerr, ok )
119 infot = 2
120 CALL ztzrzf( 1, 0, a, 1, tau, w, 1, info )
121 CALL chkxer( 'ZTZRZF', infot, nout, lerr, ok )
122 infot = 4
123 CALL ztzrzf( 2, 2, a, 1, tau, w, 1, info )
124 CALL chkxer( 'ZTZRZF', infot, nout, lerr, ok )
125 infot = 7
126 CALL ztzrzf( 2, 2, a, 2, tau, w, 0, info )
127 CALL chkxer( 'ZTZRZF', infot, nout, lerr, ok )
128 infot = 7
129 CALL ztzrzf( 2, 3, a, 2, tau, w, 1, info )
130 CALL chkxer( 'ZTZRZF', infot, nout, lerr, ok )
131 END IF
132*
133* Print a summary line.
134*
135 CALL alaesm( path, ok, nout )
136*
137 RETURN
138*
139* End of ZERRTZ
140*
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3224
logical function lsamen(N, CA, CB)
LSAMEN
Definition: lsamen.f:74
subroutine alaesm(PATH, OK, NOUT)
ALAESM
Definition: alaesm.f:63
subroutine ztzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
ZTZRZF
Definition: ztzrzf.f:151
Here is the call graph for this function:
Here is the caller graph for this function: