LAPACK  3.10.1 LAPACK: Linear Algebra PACKage

## ◆ cerrtz()

 subroutine cerrtz ( character*3 PATH, integer NUNIT )

CERRTZ

Purpose:
` CERRTZ tests the error exits for CTZRZF.`
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.```

Definition at line 53 of file cerrtz.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 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, ctzrzf
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 cmplx
95 * ..
96 * .. Executable Statements ..
97 *
98  nout = nunit
99  c2 = path( 2: 3 )
100  a( 1, 1 ) = cmplx( 1.e+0, -1.e+0 )
101  a( 1, 2 ) = cmplx( 2.e+0, -2.e+0 )
102  a( 2, 2 ) = cmplx( 3.e+0, -3.e+0 )
103  a( 2, 1 ) = cmplx( 4.e+0, -4.e+0 )
104  w( 1 ) = cmplx( 0.e+0, 0.e+0 )
105  w( 2 ) = cmplx( 0.e+0, 0.e+0 )
106  ok = .true.
107 *
108 * Test error exits for the trapezoidal routines.
109 *
110  WRITE( nout, fmt = * )
111  IF( lsamen( 2, c2, 'TZ' ) ) THEN
112 *
113 * CTZRZF
114 *
115  srnamt = 'CTZRZF'
116  infot = 1
117  CALL ctzrzf( -1, 0, a, 1, tau, w, 1, info )
118  CALL chkxer( 'CTZRZF', infot, nout, lerr, ok )
119  infot = 2
120  CALL ctzrzf( 1, 0, a, 1, tau, w, 1, info )
121  CALL chkxer( 'CTZRZF', infot, nout, lerr, ok )
122  infot = 4
123  CALL ctzrzf( 2, 2, a, 1, tau, w, 1, info )
124  CALL chkxer( 'CTZRZF', infot, nout, lerr, ok )
125  infot = 7
126  CALL ctzrzf( 2, 2, a, 2, tau, w, 0, info )
127  CALL chkxer( 'CTZRZF', infot, nout, lerr, ok )
128  infot = 7
129  CALL ctzrzf( 2, 3, a, 2, tau, w, 1, info )
130  CALL chkxer( 'CTZRZF', 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 CERRTZ
140 *
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3196
logical function lsamen(N, CA, CB)
LSAMEN
Definition: lsamen.f:74
subroutine alaesm(PATH, OK, NOUT)
ALAESM
Definition: alaesm.f:63
subroutine ctzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
CTZRZF
Definition: ctzrzf.f:151
Here is the call graph for this function:
Here is the caller graph for this function: