LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
zerrtz.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine zerrtz (PATH, NUNIT)
 ZERRTZ More...
 

Function/Subroutine Documentation

subroutine zerrtz ( character*3  PATH,
integer  NUNIT 
)

ZERRTZ

Purpose:
 ZERRTZ tests the error exits for ZTZRQF and 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.
Date
November 2011

Definition at line 56 of file zerrtz.f.

56 *
57 * -- LAPACK test routine (version 3.4.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 * November 2011
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, ztzrqf, 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 *
113  WRITE( nout, fmt = * )
114  IF( lsamen( 2, c2, 'TZ' ) ) THEN
115 *
116 * ZTZRQF
117 *
118  srnamt = 'ZTZRQF'
119  infot = 1
120  CALL ztzrqf( -1, 0, a, 1, tau, info )
121  CALL chkxer( 'ZTZRQF', infot, nout, lerr, ok )
122  infot = 2
123  CALL ztzrqf( 1, 0, a, 1, tau, info )
124  CALL chkxer( 'ZTZRQF', infot, nout, lerr, ok )
125  infot = 4
126  CALL ztzrqf( 2, 2, a, 1, tau, info )
127  CALL chkxer( 'ZTZRQF', infot, nout, lerr, ok )
128 *
129 * ZTZRZF
130 *
131  srnamt = 'ZTZRZF'
132  infot = 1
133  CALL ztzrzf( -1, 0, a, 1, tau, w, 1, info )
134  CALL chkxer( 'ZTZRZF', infot, nout, lerr, ok )
135  infot = 2
136  CALL ztzrzf( 1, 0, a, 1, tau, w, 1, info )
137  CALL chkxer( 'ZTZRZF', infot, nout, lerr, ok )
138  infot = 4
139  CALL ztzrzf( 2, 2, a, 1, tau, w, 1, info )
140  CALL chkxer( 'ZTZRZF', infot, nout, lerr, ok )
141  infot = 7
142  CALL ztzrzf( 2, 2, a, 2, tau, w, 0, info )
143  CALL chkxer( 'ZTZRZF', infot, nout, lerr, ok )
144  infot = 7
145  CALL ztzrzf( 2, 3, a, 2, tau, w, 1, info )
146  CALL chkxer( 'ZTZRZF', infot, nout, lerr, ok )
147  END IF
148 *
149 * Print a summary line.
150 *
151  CALL alaesm( path, ok, nout )
152 *
153  RETURN
154 *
155 * End of ZERRTZ
156 *
subroutine ztzrqf(M, N, A, LDA, TAU, INFO)
ZTZRQF
Definition: ztzrqf.f:140
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3199
logical function lsamen(N, CA, CB)
LSAMEN
Definition: lsamen.f:76
subroutine ztzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
ZTZRZF
Definition: ztzrzf.f:153
subroutine alaesm(PATH, OK, NOUT)
ALAESM
Definition: alaesm.f:65

Here is the call graph for this function:

Here is the caller graph for this function: