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

## ◆ derrtz()

 subroutine derrtz ( character*3 PATH, integer NUNIT )

DERRTZ

Purpose:
` DERRTZ tests the error exits for STZRZF.`
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 derrtz.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 DOUBLE PRECISION 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, dtzrzf
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* .. Executable Statements ..
94*
95 nout = nunit
96 WRITE( nout, fmt = * )
97 c2 = path( 2: 3 )
98 a( 1, 1 ) = 1.d+0
99 a( 1, 2 ) = 2.d+0
100 a( 2, 2 ) = 3.d+0
101 a( 2, 1 ) = 4.d+0
102 w( 1 ) = 0.0d+0
103 w( 2 ) = 0.0d+0
104 ok = .true.
105*
106 IF( lsamen( 2, c2, 'TZ' ) ) THEN
107*
108* Test error exits for the trapezoidal routines.
109*
110* DTZRZF
111*
112 srnamt = 'DTZRZF'
113 infot = 1
114 CALL dtzrzf( -1, 0, a, 1, tau, w, 1, info )
115 CALL chkxer( 'DTZRZF', infot, nout, lerr, ok )
116 infot = 2
117 CALL dtzrzf( 1, 0, a, 1, tau, w, 1, info )
118 CALL chkxer( 'DTZRZF', infot, nout, lerr, ok )
119 infot = 4
120 CALL dtzrzf( 2, 2, a, 1, tau, w, 1, info )
121 CALL chkxer( 'DTZRZF', infot, nout, lerr, ok )
122 infot = 7
123 CALL dtzrzf( 2, 2, a, 2, tau, w, 0, info )
124 CALL chkxer( 'DTZRZF', infot, nout, lerr, ok )
125 infot = 7
126 CALL dtzrzf( 2, 3, a, 2, tau, w, 1, info )
127 CALL chkxer( 'DTZRZF', infot, nout, lerr, ok )
128 END IF
129*
130* Print a summary line.
131*
132 CALL alaesm( path, ok, nout )
133*
134 RETURN
135*
136* End of DERRTZ
137*
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 dtzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
DTZRZF
Definition: dtzrzf.f:151
Here is the call graph for this function:
Here is the caller graph for this function: