LAPACK  3.10.1
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.

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:3196
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: