LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
serrtz.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine serrtz (PATH, NUNIT)
 SERRTZ More...
 

Function/Subroutine Documentation

subroutine serrtz ( character*3  PATH,
integer  NUNIT 
)

SERRTZ

Purpose:
 SERRTZ tests the error exits for STZRQF and 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
November 2011

Definition at line 56 of file serrtz.f.

56 *
57 * -- LAPACK test routine (version 3.4.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 2011
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, stzrqf, 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 * STZRQF
114 *
115  srnamt = 'STZRQF'
116  infot = 1
117  CALL stzrqf( -1, 0, a, 1, tau, info )
118  CALL chkxer( 'STZRQF', infot, nout, lerr, ok )
119  infot = 2
120  CALL stzrqf( 1, 0, a, 1, tau, info )
121  CALL chkxer( 'STZRQF', infot, nout, lerr, ok )
122  infot = 4
123  CALL stzrqf( 2, 2, a, 1, tau, info )
124  CALL chkxer( 'STZRQF', infot, nout, lerr, ok )
125 *
126 * STZRZF
127 *
128  srnamt = 'STZRZF'
129  infot = 1
130  CALL stzrzf( -1, 0, a, 1, tau, w, 1, info )
131  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
132  infot = 2
133  CALL stzrzf( 1, 0, a, 1, tau, w, 1, info )
134  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
135  infot = 4
136  CALL stzrzf( 2, 2, a, 1, tau, w, 1, info )
137  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
138  infot = 7
139  CALL stzrzf( 2, 2, a, 2, tau, w, 0, info )
140  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
141  infot = 7
142  CALL stzrzf( 2, 3, a, 2, tau, w, 1, info )
143  CALL chkxer( 'STZRZF', infot, nout, lerr, ok )
144  END IF
145 *
146 * Print a summary line.
147 *
148  CALL alaesm( path, ok, nout )
149 *
150  RETURN
151 *
152 * End of SERRTZ
153 *
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3199
subroutine stzrqf(M, N, A, LDA, TAU, INFO)
STZRQF
Definition: stzrqf.f:140
logical function lsamen(N, CA, CB)
LSAMEN
Definition: lsamen.f:76
subroutine alaesm(PATH, OK, NOUT)
ALAESM
Definition: alaesm.f:65
subroutine stzrzf(M, N, A, LDA, TAU, WORK, LWORK, INFO)
STZRZF
Definition: stzrzf.f:153

Here is the call graph for this function:

Here is the caller graph for this function: