LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ 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.
Date
December 2016

Definition at line 56 of file derrtz.f.

56 *
57 * -- LAPACK test routine (version 3.7.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 * December 2016
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  DOUBLE PRECISION 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, dtzrzf
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 * .. Executable Statements ..
97 *
98  nout = nunit
99  WRITE( nout, fmt = * )
100  c2 = path( 2: 3 )
101  a( 1, 1 ) = 1.d+0
102  a( 1, 2 ) = 2.d+0
103  a( 2, 2 ) = 3.d+0
104  a( 2, 1 ) = 4.d+0
105  w( 1 ) = 0.0d+0
106  w( 2 ) = 0.0d+0
107  ok = .true.
108 *
109  IF( lsamen( 2, c2, 'TZ' ) ) THEN
110 *
111 * Test error exits for the trapezoidal routines.
112 *
113 * DTZRZF
114 *
115  srnamt = 'DTZRZF'
116  infot = 1
117  CALL dtzrzf( -1, 0, a, 1, tau, w, 1, info )
118  CALL chkxer( 'DTZRZF', infot, nout, lerr, ok )
119  infot = 2
120  CALL dtzrzf( 1, 0, a, 1, tau, w, 1, info )
121  CALL chkxer( 'DTZRZF', infot, nout, lerr, ok )
122  infot = 4
123  CALL dtzrzf( 2, 2, a, 1, tau, w, 1, info )
124  CALL chkxer( 'DTZRZF', infot, nout, lerr, ok )
125  infot = 7
126  CALL dtzrzf( 2, 2, a, 2, tau, w, 0, info )
127  CALL chkxer( 'DTZRZF', infot, nout, lerr, ok )
128  infot = 7
129  CALL dtzrzf( 2, 3, a, 2, tau, w, 1, info )
130  CALL chkxer( 'DTZRZF', 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 DERRTZ
140 *
subroutine alaesm(PATH, OK, NOUT)
ALAESM
Definition: alaesm.f:65
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3199
logical function lsamen(N, CA, CB)
LSAMEN
Definition: lsamen.f:76
subroutine dtzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
DTZRZF
Definition: dtzrzf.f:153
Here is the call graph for this function:
Here is the caller graph for this function: