LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
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.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

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: