LAPACK  3.6.1 LAPACK: Linear Algebra PACKage
 subroutine serrtz ( character*3 PATH, integer NUNIT )

SERRTZ

Purpose:
` SERRTZ 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.```
Date
November 2015

Definition at line 56 of file serrtz.f.

56 *
57 * -- LAPACK test routine (version 3.6.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 2015
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  REAL 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, stzrzf
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.e+0
102  a( 1, 2 ) = 2.e+0
103  a( 2, 2 ) = 3.e+0
104  a( 2, 1 ) = 4.e+0
105  w( 1 ) = 0.0e+0
106  w( 2 ) = 0.0e+0
107  ok = .true.
108 *
109  IF( lsamen( 2, c2, 'TZ' ) ) THEN
110 *
111 * Test error exits for the trapezoidal routines.
112 *
113 * STZRZF
114 *
115  srnamt = 'STZRZF'
116  infot = 1
117  CALL stzrzf( -1, 0, a, 1, tau, w, 1, info )
118  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
119  infot = 2
120  CALL stzrzf( 1, 0, a, 1, tau, w, 1, info )
121  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
122  infot = 4
123  CALL stzrzf( 2, 2, a, 1, tau, w, 1, info )
124  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
125  infot = 7
126  CALL stzrzf( 2, 2, a, 2, tau, w, 0, info )
127  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
128  infot = 7
129  CALL stzrzf( 2, 3, a, 2, tau, w, 1, info )
130  CALL chkxer( 'STZRZF', 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 SERRTZ
140 *
subroutine stzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
STZRZF
Definition: stzrzf.f:153
logical function lsamen(N, CA, CB)
LSAMEN
Definition: lsamen.f:76
subroutine alaesm(PATH, OK, NOUT)
ALAESM
Definition: alaesm.f:65
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3199

Here is the call graph for this function:

Here is the caller graph for this function: