LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ serrtz()

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.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 53 of file serrtz.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  REAL 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, stzrzf
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.e+0
99  a( 1, 2 ) = 2.e+0
100  a( 2, 2 ) = 3.e+0
101  a( 2, 1 ) = 4.e+0
102  w( 1 ) = 0.0e+0
103  w( 2 ) = 0.0e+0
104  ok = .true.
105 *
106  IF( lsamen( 2, c2, 'TZ' ) ) THEN
107 *
108 * Test error exits for the trapezoidal routines.
109 *
110 * STZRZF
111 *
112  srnamt = 'STZRZF'
113  infot = 1
114  CALL stzrzf( -1, 0, a, 1, tau, w, 1, info )
115  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
116  infot = 2
117  CALL stzrzf( 1, 0, a, 1, tau, w, 1, info )
118  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
119  infot = 4
120  CALL stzrzf( 2, 2, a, 1, tau, w, 1, info )
121  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
122  infot = 7
123  CALL stzrzf( 2, 2, a, 2, tau, w, 0, info )
124  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
125  infot = 7
126  CALL stzrzf( 2, 3, a, 2, tau, w, 1, info )
127  CALL chkxer( 'STZRZF', 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 SERRTZ
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 stzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
STZRZF
Definition: stzrzf.f:151
Here is the call graph for this function:
Here is the caller graph for this function: