OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
cerrst.f
Go to the documentation of this file.
1*> \brief \b CERRST
2*
3* =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6* http://www.netlib.org/lapack/explore-html/
7*
8* Definition:
9* ===========
10*
11* SUBROUTINE CERRST( PATH, NUNIT )
12*
13* .. Scalar Arguments ..
14* CHARACTER*3 PATH
15* INTEGER NUNIT
16* ..
17*
18*
19*> \par Purpose:
20* =============
21*>
22*> \verbatim
23*>
24*> CERRST tests the error exits for CHETRD, CUNGTR, CUNMTR, CHPTRD,
25*> CUNGTR, CUPMTR, CSTEQR, CSTEIN, CPTEQR, CHBTRD,
26*> CHEEV, CHEEVX, CHEEVD, CHBEV, CHBEVX, CHBEVD,
27*> CHPEV, CHPEVX, CHPEVD, and CSTEDC.
28*> CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
29*> CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
30*> CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_HE2HB,
31*> CHETRD_HB2ST
32*> \endverbatim
33*
34* Arguments:
35* ==========
36*
37*> \param[in] PATH
38*> \verbatim
39*> PATH is CHARACTER*3
40*> The LAPACK path name for the routines to be tested.
41*> \endverbatim
42*>
43*> \param[in] NUNIT
44*> \verbatim
45*> NUNIT is INTEGER
46*> The unit number for output.
47*> \endverbatim
48*
49* Authors:
50* ========
51*
52*> \author Univ. of Tennessee
53*> \author Univ. of California Berkeley
54*> \author Univ. of Colorado Denver
55*> \author NAG Ltd.
56*
57*> \ingroup complex_eig
58*
59* =====================================================================
60 SUBROUTINE cerrst( PATH, NUNIT )
61*
62* -- LAPACK test routine --
63* -- LAPACK is a software package provided by Univ. of Tennessee, --
64* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
65*
66* .. Scalar Arguments ..
67 CHARACTER*3 PATH
68 INTEGER NUNIT
69* ..
70*
71* =====================================================================
72*
73* .. Parameters ..
74 INTEGER NMAX, LIW, LW
75 parameter( nmax = 3, liw = 12*nmax, lw = 20*nmax )
76* ..
77* .. Local Scalars ..
78 CHARACTER*2 C2
79 INTEGER I, INFO, J, M, N, NT
80* ..
81* .. Local Arrays ..
82 INTEGER I1( NMAX ), I2( NMAX ), I3( NMAX ), IW( LIW )
83 REAL D( NMAX ), E( NMAX ), R( LW ), RW( LW ),
84 $ X( NMAX )
85 COMPLEX A( NMAX, NMAX ), C( NMAX, NMAX ),
86 $ Q( NMAX, NMAX ), TAU( NMAX ), W( LW ),
87 $ Z( NMAX, NMAX )
88* ..
89* .. External Functions ..
90 LOGICAL LSAMEN
91 EXTERNAL lsamen
92* ..
93* .. External Subroutines ..
94 EXTERNAL chbev, chbevd, chbevx, chbtrd, cheev, cheevd,
95 $ cheevr, cheevx, chetrd, chkxer, chpev, chpevd,
96 $ chpevx, chptrd, cpteqr, cstedc, cstein, csteqr,
97 $ cungtr, cunmtr, cupgtr, cupmtr,
98 $ cheevd_2stage, cheevr_2stage, cheevx_2stage,
99 $ cheev_2stage, chbev_2stage, chbevd_2stage,
100 $ chbevx_2stage, chetrd_2stage, chetrd_he2hb,
101 $ chetrd_hb2st
102* ..
103* .. Scalars in Common ..
104 LOGICAL LERR, OK
105 CHARACTER*32 SRNAMT
106 INTEGER INFOT, NOUT
107* ..
108* .. Common blocks ..
109 COMMON / infoc / infot, nout, ok, lerr
110 COMMON / srnamc / srnamt
111* ..
112* .. Intrinsic Functions ..
113 INTRINSIC real
114* ..
115* .. Executable Statements ..
116*
117 nout = nunit
118 WRITE( nout, fmt = * )
119 c2 = path( 2: 3 )
120*
121* Set the variables to innocuous values.
122*
123 DO 20 j = 1, nmax
124 DO 10 i = 1, nmax
125 a( i, j ) = 1. / real( i+j )
126 10 CONTINUE
127 20 CONTINUE
128 DO 30 j = 1, nmax
129 d( j ) = real( j )
130 e( j ) = 0.0
131 i1( j ) = j
132 i2( j ) = j
133 tau( j ) = 1.
134 30 CONTINUE
135 ok = .true.
136 nt = 0
137*
138* Test error exits for the ST path.
139*
140 IF( lsamen( 2, c2, 'ST' ) ) THEN
141*
142* CHETRD
143*
144 srnamt = 'CHETRD'
145 infot = 1
146 CALL chetrd( '/', 0, A, 1, D, E, TAU, W, 1, INFO )
147 CALL CHKXER( 'chetrd', INFOT, NOUT, LERR, OK )
148 INFOT = 2
149 CALL CHETRD( 'u', -1, A, 1, D, E, TAU, W, 1, INFO )
150 CALL CHKXER( 'chetrd', INFOT, NOUT, LERR, OK )
151 INFOT = 4
152 CALL CHETRD( 'u', 2, A, 1, D, E, TAU, W, 1, INFO )
153 CALL CHKXER( 'chetrd', INFOT, NOUT, LERR, OK )
154 INFOT = 9
155 CALL CHETRD( 'u', 0, A, 1, D, E, TAU, W, 0, INFO )
156 CALL CHKXER( 'chetrd', INFOT, NOUT, LERR, OK )
157 NT = NT + 4
158*
159* CHETRD_2STAGE
160*
161 SRNAMT = 'chetrd_2stage'
162 INFOT = 1
163 CALL CHETRD_2STAGE( '/', 'u', 0, A, 1, D, E, TAU,
164 $ C, 1, W, 1, INFO )
165 CALL CHKXER( 'chetrd_2stage', INFOT, NOUT, LERR, OK )
166 INFOT = 1
167 CALL CHETRD_2STAGE( 'h', 'u', 0, A, 1, D, E, TAU,
168 $ C, 1, W, 1, INFO )
169 CALL CHKXER( 'chetrd_2stage', INFOT, NOUT, LERR, OK )
170 INFOT = 2
171 CALL CHETRD_2STAGE( 'n', '/', 0, A, 1, D, E, TAU,
172 $ C, 1, W, 1, INFO )
173 CALL CHKXER( 'chetrd_2stage', INFOT, NOUT, LERR, OK )
174 INFOT = 3
175 CALL CHETRD_2STAGE( 'n', 'u', -1, A, 1, D, E, TAU,
176 $ C, 1, W, 1, INFO )
177 CALL CHKXER( 'chetrd_2stage', INFOT, NOUT, LERR, OK )
178 INFOT = 5
179 CALL CHETRD_2STAGE( 'n', 'u', 2, A, 1, D, E, TAU,
180 $ C, 1, W, 1, INFO )
181 CALL CHKXER( 'chetrd_2stage', INFOT, NOUT, LERR, OK )
182 INFOT = 10
183 CALL CHETRD_2STAGE( 'n', 'u', 0, A, 1, D, E, TAU,
184 $ C, 0, W, 1, INFO )
185 CALL CHKXER( 'chetrd_2stage', INFOT, NOUT, LERR, OK )
186 INFOT = 12
187 CALL CHETRD_2STAGE( 'n', 'u', 0, A, 1, D, E, TAU,
188 $ C, 1, W, 0, INFO )
189 CALL CHKXER( 'chetrd_2stage', INFOT, NOUT, LERR, OK )
190 NT = NT + 7
191*
192* CHETRD_HE2HB
193*
194 SRNAMT = 'chetrd_he2hb'
195 INFOT = 1
196 CALL CHETRD_HE2HB( '/', 0, 0, A, 1, C, 1, TAU, W, 1, INFO )
197 CALL CHKXER( 'chetrd_he2hb', INFOT, NOUT, LERR, OK )
198 INFOT = 2
199 CALL CHETRD_HE2HB( 'u', -1, 0, A, 1, C, 1, TAU, W, 1, INFO )
200 CALL CHKXER( 'chetrd_he2hb', INFOT, NOUT, LERR, OK )
201 INFOT = 3
202 CALL CHETRD_HE2HB( 'u', 0, -1, A, 1, C, 1, TAU, W, 1, INFO )
203 CALL CHKXER( 'chetrd_he2hb', INFOT, NOUT, LERR, OK )
204 INFOT = 5
205 CALL CHETRD_HE2HB( 'u', 2, 0, A, 1, C, 1, TAU, W, 1, INFO )
206 CALL CHKXER( 'chetrd_he2hb', INFOT, NOUT, LERR, OK )
207 INFOT = 7
208 CALL CHETRD_HE2HB( 'u', 0, 2, A, 1, C, 1, TAU, W, 1, INFO )
209 CALL CHKXER( 'chetrd_he2hb', INFOT, NOUT, LERR, OK )
210 INFOT = 10
211 CALL CHETRD_HE2HB( 'u', 0, 0, A, 1, C, 1, TAU, W, 0, INFO )
212 CALL CHKXER( 'chetrd_he2hb', INFOT, NOUT, LERR, OK )
213 NT = NT + 6
214*
215* CHETRD_HB2ST
216*
217 SRNAMT = 'chetrd_hb2st'
218 infot = 1
219 CALL chetrd_hb2st( '/', 'N', 'U', 0, 0, a, 1, d, e,
220 $ c, 1, w, 1, info )
221 CALL chkxer( 'CHETRD_HB2ST', infot, nout, lerr, ok )
222 infot = 2
223 CALL chetrd_hb2st( 'Y', '/', 'U', 0, 0, a, 1, d, e,
224 $ c, 1, w, 1, info )
225 CALL chkxer( 'CHETRD_HB2ST', infot, nout, lerr, ok )
226 infot = 2
227 CALL chetrd_hb2st( 'Y', 'H', 'U', 0, 0, a, 1, d, e,
228 $ c, 1, w, 1, info )
229 CALL chkxer( 'CHETRD_HB2ST', infot, nout, lerr, ok )
230 infot = 3
231 CALL chetrd_hb2st( 'Y', 'N', '/', 0, 0, a, 1, d, e,
232 $ c, 1, w, 1, info )
233 CALL chkxer( 'CHETRD_HB2ST', infot, nout, lerr, ok )
234 infot = 4
235 CALL chetrd_hb2st( 'Y', 'N', 'U', -1, 0, a, 1, d, e,
236 $ c, 1, w, 1, info )
237 CALL chkxer( 'CHETRD_HB2ST', infot, nout, lerr, ok )
238 infot = 5
239 CALL chetrd_hb2st( 'Y', 'N', 'U', 0, -1, a, 1, d, e,
240 $ c, 1, w, 1, info )
241 CALL chkxer( 'CHETRD_HB2ST', infot, nout, lerr, ok )
242 infot = 7
243 CALL chetrd_hb2st( 'Y', 'N', 'U', 0, 1, a, 1, d, e,
244 $ c, 1, w, 1, info )
245 CALL chkxer( 'CHETRD_HB2ST', infot, nout, lerr, ok )
246 infot = 11
247 CALL chetrd_hb2st( 'Y', 'N', 'U', 0, 0, a, 1, d, e,
248 $ c, 0, w, 1, info )
249 CALL chkxer( 'CHETRD_HB2ST', infot, nout, lerr, ok )
250 infot = 13
251 CALL chetrd_hb2st( 'Y', 'N', 'U', 0, 0, a, 1, d, e,
252 $ c, 1, w, 0, info )
253 CALL chkxer( 'CHETRD_HB2ST', infot, nout, lerr, ok )
254 nt = nt + 9
255*
256* CUNGTR
257*
258 srnamt = 'CUNGTR'
259 infot = 1
260 CALL cungtr( '/', 0, a, 1, tau, w, 1, info )
261 CALL chkxer( 'CUNGTR', infot, nout, lerr, ok )
262 infot = 2
263 CALL cungtr( 'U', -1, a, 1, tau, w, 1, info )
264 CALL chkxer( 'CUNGTR', infot, nout, lerr, ok )
265 infot = 4
266 CALL cungtr( 'U', 2, a, 1, tau, w, 1, info )
267 CALL chkxer( 'CUNGTR', infot, nout, lerr, ok )
268 infot = 7
269 CALL cungtr( 'U', 3, a, 3, tau, w, 1, info )
270 CALL chkxer( 'CUNGTR', infot, nout, lerr, ok )
271 nt = nt + 4
272*
273* CUNMTR
274*
275 srnamt = 'CUNMTR'
276 infot = 1
277 CALL cunmtr( '/', 'U', 'N', 0, 0, a, 1, tau, c, 1, w, 1, info )
278 CALL chkxer( 'CUNMTR', infot, nout, lerr, ok )
279 infot = 2
280 CALL cunmtr( 'L', '/', 'N', 0, 0, a, 1, tau, c, 1, w, 1, info )
281 CALL chkxer( 'CUNMTR', infot, nout, lerr, ok )
282 infot = 3
283 CALL cunmtr( 'L', 'U', '/', 0, 0, a, 1, tau, c, 1, w, 1, info )
284 CALL chkxer( 'CUNMTR', infot, nout, lerr, ok )
285 infot = 4
286 CALL cunmtr( 'L', 'U', 'N', -1, 0, a, 1, tau, c, 1, w, 1,
287 $ info )
288 CALL chkxer( 'CUNMTR', infot, nout, lerr, ok )
289 infot = 5
290 CALL cunmtr( 'L', 'U', 'N', 0, -1, a, 1, tau, c, 1, w, 1,
291 $ info )
292 CALL chkxer( 'CUNMTR', infot, nout, lerr, ok )
293 infot = 7
294 CALL cunmtr( 'L', 'U', 'N', 2, 0, a, 1, tau, c, 2, w, 1, info )
295 CALL chkxer( 'CUNMTR', infot, nout, lerr, ok )
296 infot = 7
297 CALL cunmtr( 'R', 'U', 'N', 0, 2, a, 1, tau, c, 1, w, 1, info )
298 CALL chkxer( 'CUNMTR', infot, nout, lerr, ok )
299 infot = 10
300 CALL cunmtr( 'L', 'U', 'N', 2, 0, a, 2, tau, c, 1, w, 1, info )
301 CALL chkxer( 'CUNMTR', infot, nout, lerr, ok )
302 infot = 12
303 CALL cunmtr( 'L', 'U', 'N', 0, 2, a, 1, tau, c, 1, w, 1, info )
304 CALL chkxer( 'CUNMTR', infot, nout, lerr, ok )
305 infot = 12
306 CALL cunmtr( 'R', 'U', 'N', 2, 0, a, 1, tau, c, 2, w, 1, info )
307 CALL chkxer( 'CUNMTR', infot, nout, lerr, ok )
308 nt = nt + 10
309*
310* CHPTRD
311*
312 srnamt = 'CHPTRD'
313 infot = 1
314 CALL chptrd( '/', 0, a, d, e, tau, info )
315 CALL chkxer( 'CHPTRD', infot, nout, lerr, ok )
316 infot = 2
317 CALL chptrd( 'U', -1, a, d, e, tau, info )
318 CALL chkxer( 'CHPTRD', infot, nout, lerr, ok )
319 nt = nt + 2
320*
321* CUPGTR
322*
323 srnamt = 'CUPGTR'
324 infot = 1
325 CALL cupgtr( '/', 0, a, tau, z, 1, w, info )
326 CALL chkxer( 'CUPGTR', infot, nout, lerr, ok )
327 infot = 2
328 CALL cupgtr( 'U', -1, a, tau, z, 1, w, info )
329 CALL chkxer( 'CUPGTR', infot, nout, lerr, ok )
330 infot = 6
331 CALL cupgtr( 'U', 2, a, tau, z, 1, w, info )
332 CALL chkxer( 'CUPGTR', infot, nout, lerr, ok )
333 nt = nt + 3
334*
335* CUPMTR
336*
337 srnamt = 'CUPMTR'
338 infot = 1
339 CALL cupmtr( '/', 'U', 'N', 0, 0, a, tau, c, 1, w, info )
340 CALL chkxer( 'CUPMTR', infot, nout, lerr, ok )
341 infot = 2
342 CALL cupmtr( 'L', '/', 'N', 0, 0, a, tau, c, 1, w, info )
343 CALL chkxer( 'CUPMTR', infot, nout, lerr, ok )
344 infot = 3
345 CALL cupmtr( 'L', 'U', '/', 0, 0, a, tau, c, 1, w, info )
346 CALL chkxer( 'CUPMTR', infot, nout, lerr, ok )
347 infot = 4
348 CALL cupmtr( 'L', 'U', 'N', -1, 0, a, tau, c, 1, w, info )
349 CALL chkxer( 'CUPMTR', infot, nout, lerr, ok )
350 infot = 5
351 CALL cupmtr( 'L', 'U', 'N', 0, -1, a, tau, c, 1, w, info )
352 CALL chkxer( 'cupmtr', INFOT, NOUT, LERR, OK )
353 INFOT = 9
354 CALL CUPMTR( 'l', 'u', 'n', 2, 0, a, tau, c, 1, w, info )
355 CALL chkxer( 'CUPMTR', infot, nout, lerr, ok )
356 nt = nt + 6
357*
358* CPTEQR
359*
360 srnamt = 'CPTEQR'
361 infot = 1
362 CALL cpteqr( '/', 0, d, e, z, 1, rw, info )
363 CALL chkxer( 'CPTEQR', infot, nout, lerr, ok )
364 infot = 2
365 CALL cpteqr( 'N', -1, d, e, z, 1, rw, info )
366 CALL chkxer( 'CPTEQR', infot, nout, lerr, ok )
367 infot = 6
368 CALL cpteqr( 'V', 2, d, e, z, 1, rw, info )
369 CALL chkxer( 'CPTEQR', infot, nout, lerr, ok )
370 nt = nt + 3
371*
372* CSTEIN
373*
374 srnamt = 'CSTEIN'
375 infot = 1
376 CALL cstein( -1, d, e, 0, x, i1, i2, z, 1, rw, iw, i3, info )
377 CALL chkxer( 'CSTEIN', infot, nout, lerr, ok )
378 infot = 4
379 CALL cstein( 0, d, e, -1, x, i1, i2, z, 1, rw, iw, i3, info )
380 CALL chkxer( 'CSTEIN', infot, nout, lerr, ok )
381 infot = 4
382 CALL cstein( 0, d, e, 1, x, i1, i2, z, 1, rw, iw, i3, info )
383 CALL chkxer( 'CSTEIN', infot, nout, lerr, ok )
384 infot = 9
385 CALL cstein( 2, d, e, 0, x, i1, i2, z, 1, rw, iw, i3, info )
386 CALL chkxer( 'CSTEIN', infot, nout, lerr, ok )
387 nt = nt + 4
388*
389* CSTEQR
390*
391 srnamt = 'CSTEQR'
392 infot = 1
393 CALL csteqr( '/', 0, d, e, z, 1, rw, info )
394 CALL chkxer( 'CSTEQR', infot, nout, lerr, ok )
395 infot = 2
396 CALL csteqr( 'N', -1, d, e, z, 1, rw, info )
397 CALL chkxer( 'CSTEQR', infot, nout, lerr, ok )
398 infot = 6
399 CALL csteqr( 'V', 2, d, e, z, 1, rw, info )
400 CALL chkxer( 'CSTEQR', infot, nout, lerr, ok )
401 nt = nt + 3
402*
403* CSTEDC
404*
405 srnamt = 'CSTEDC'
406 infot = 1
407 CALL cstedc( '/', 0, d, e, z, 1, w, 1, rw, 1, iw, 1, info )
408 CALL chkxer( 'CSTEDC', infot, nout, lerr, ok )
409 infot = 2
410 CALL cstedc( 'N', -1, d, e, z, 1, w, 1, rw, 1, iw, 1, info )
411 CALL chkxer( 'CSTEDC', infot, nout, lerr, ok )
412 infot = 6
413 CALL cstedc( 'V', 2, d, e, z, 1, w, 4, rw, 23, iw, 28, info )
414 CALL chkxer( 'CSTEDC', infot, nout, lerr, ok )
415 infot = 8
416 CALL cstedc( 'N', 2, d, e, z, 1, w, 0, rw, 1, iw, 1, info )
417 CALL chkxer( 'CSTEDC', infot, nout, lerr, ok )
418 infot = 8
419 CALL cstedc( 'V', 2, d, e, z, 2, w, 0, rw, 23, iw, 28, info )
420 CALL chkxer( 'CSTEDC', infot, nout, lerr, ok )
421 infot = 10
422 CALL cstedc( 'N', 2, d, e, z, 1, w, 1, rw, 0, iw, 1, info )
423 CALL chkxer( 'CSTEDC', infot, nout, lerr, ok )
424 infot = 10
425 CALL cstedc( 'I', 2, d, e, z, 2, w, 1, rw, 1, iw, 12, info )
426 CALL chkxer( 'CSTEDC', infot, nout, lerr, ok )
427 infot = 10
428 CALL cstedc( 'V', 2, d, e, z, 2, w, 4, rw, 1, iw, 28, info )
429 CALL chkxer( 'CSTEDC', infot, nout, lerr, ok )
430 infot = 12
431 CALL cstedc( 'N', 2, d, e, z, 1, w, 1, rw, 1, iw, 0, info )
432 CALL chkxer( 'CSTEDC', infot, nout, lerr, ok )
433 infot = 12
434 CALL cstedc( 'I', 2, d, e, z, 2, w, 1, rw, 23, iw, 0, info )
435 CALL chkxer( 'cstedc', INFOT, NOUT, LERR, OK )
436 INFOT = 12
437 CALL CSTEDC( 'v', 2, D, E, Z, 2, W, 4, RW, 23, IW, 0, INFO )
438 CALL CHKXER( 'cstedc', INFOT, NOUT, LERR, OK )
439 NT = NT + 11
440*
441* CHEEVD
442*
443 SRNAMT = 'cheevd'
444 INFOT = 1
445 CALL CHEEVD( '/', 'u', 0, a, 1, x, w, 1, rw, 1, iw, 1, info )
446 CALL chkxer( 'CHEEVD', infot, nout, lerr, ok )
447 infot = 2
448 CALL cheevd( 'N', '/', 0, a, 1, x, w, 1, rw, 1, iw, 1, info )
449 CALL chkxer( 'CHEEVD', infot, nout, lerr, ok )
450 infot = 3
451 CALL cheevd( 'N', 'U', -1, a, 1, x, w, 1, rw, 1, iw, 1, info )
452 CALL chkxer( 'CHEEVD', infot, nout, lerr, ok )
453 infot = 5
454 CALL cheevd( 'N', 'U', 2, a, 1, x, w, 3, rw, 2, iw, 1, info )
455 CALL chkxer( 'CHEEVD', infot, nout, lerr, ok )
456 infot = 8
457 CALL cheevd( 'N', 'U', 1, a, 1, x, w, 0, rw, 1, iw, 1, info )
458 CALL chkxer( 'CHEEVD', infot, nout, lerr, ok )
459 infot = 8
460 CALL cheevd( 'N', 'U', 2, a, 2, x, w, 2, rw, 2, iw, 1, info )
461 CALL chkxer( 'CHEEVD', infot, nout, lerr, ok )
462 infot = 8
463 CALL cheevd( 'V', 'U', 2, a, 2, x, w, 3, rw, 25, iw, 12, info )
464 CALL chkxer( 'CHEEVD', infot, nout, lerr, ok )
465 infot = 10
466 CALL cheevd( 'n', 'u', 1, A, 1, X, W, 1, RW, 0, IW, 1, INFO )
467 CALL CHKXER( 'cheevd', INFOT, NOUT, LERR, OK )
468 INFOT = 10
469 CALL CHEEVD( 'n', 'u', 2, A, 2, X, W, 3, RW, 1, IW, 1, INFO )
470 CALL CHKXER( 'cheevd', INFOT, NOUT, LERR, OK )
471 INFOT = 10
472 CALL CHEEVD( 'v', 'u', 2, A, 2, X, W, 8, RW, 18, IW, 12, INFO )
473 CALL CHKXER( 'cheevd', INFOT, NOUT, LERR, OK )
474 INFOT = 12
475 CALL CHEEVD( 'n', 'u', 1, A, 1, X, W, 1, RW, 1, IW, 0, INFO )
476 CALL CHKXER( 'cheevd', INFOT, NOUT, LERR, OK )
477 INFOT = 12
478 CALL CHEEVD( 'v', 'u', 2, A, 2, X, W, 8, RW, 25, IW, 11, INFO )
479 CALL CHKXER( 'cheevd', INFOT, NOUT, LERR, OK )
480 NT = NT + 12
481*
482* CHEEVD_2STAGE
483*
484 SRNAMT = 'cheevd_2stage'
485 INFOT = 1
486 CALL CHEEVD_2STAGE( '/', 'u', 0, A, 1, X, W, 1,
487 $ RW, 1, IW, 1, INFO )
488 CALL CHKXER( 'cheevd_2stage', INFOT, NOUT, LERR, OK )
489 INFOT = 1
490 CALL CHEEVD_2STAGE( 'v', 'u', 0, a, 1, x, w, 1,
491 $ rw, 1, iw, 1, info )
492 CALL chkxer( 'CHEEVD_2STAGE', infot, nout, lerr, ok )
493 infot = 2
494 CALL cheevd_2stage( 'N', '/', 0, a, 1, x, w, 1,
495 $ rw, 1, iw, 1, info )
496 CALL chkxer( 'CHEEVD_2STAGE', infot, nout, lerr, ok )
497 infot = 3
498 CALL cheevd_2stage( 'N', 'U', -1, a, 1, x, w, 1,
499 $ rw, 1, iw, 1, info )
500 CALL chkxer( 'CHEEVD_2STAGE', infot, nout, lerr, ok )
501 infot = 5
502 CALL cheevd_2stage( 'N', 'U', 2, a, 1, x, w, 3,
503 $ rw, 2, iw, 1, info )
504 CALL chkxer( 'CHEEVD_2STAGE', infot, nout, lerr, ok )
505 infot = 8
506 CALL cheevd_2stage( 'N', 'U', 1, a, 1, x, w, 0,
507 $ rw, 1, iw, 1, info )
508 CALL chkxer( 'CHEEVD_2STAGE', infot, nout, lerr, ok )
509 infot = 8
510 CALL cheevd_2stage( 'N', 'U', 2, a, 2, x, w, 2,
511 $ rw, 2, iw, 1, info )
512 CALL chkxer( 'CHEEVD_2STAGE', infot, nout, lerr, ok )
513* INFOT = 8
514* CALL CHEEVD_2STAGE( 'V', 'U', 2, A, 2, X, W, 3,
515* $ RW, 25, IW, 12, INFO )
516* CALL CHKXER( 'CHEEVD_2STAGE', INFOT, NOUT, LERR, OK )
517 infot = 10
518 CALL cheevd_2stage( 'N', 'U', 1, a, 1, x, w, 1,
519 $ rw, 0, iw, 1, info )
520 CALL chkxer( 'CHEEVD_2STAGE', infot, nout, lerr, ok )
521 infot = 10
522 CALL cheevd_2stage( 'N', 'U', 2, a, 2, x, w, 25,
523 $ rw, 1, iw, 1, info )
524 CALL chkxer( 'CHEEVD_2STAGE', infot, nout, lerr, ok )
525* INFOT = 10
526* CALL CHEEVD_2STAGE( 'V', 'U', 2, A, 2, X, W, 8,
527* $ RW, 18, IW, 12, INFO )
528* CALL CHKXER( 'CHEEVD_2STAGE', INFOT, NOUT, LERR, OK )
529 infot = 12
530 CALL cheevd_2stage( 'N', 'U', 1, a, 1, x, w, 1,
531 $ rw, 1, iw, 0, info )
532 CALL chkxer( 'CHEEVD_2STAGE', infot, nout, lerr, ok )
533 infot = 12
534* CALL CHEEVD_2STAGE( 'V', 'U', 2, A, 2, X, W, 8,
535* $ RW, 25, IW, 11, INFO )
536* CALL CHKXER( 'CHEEVD_2STAGE', INFOT, NOUT, LERR, OK )
537 nt = nt + 10
538*
539* CHEEV
540*
541 srnamt = 'CHEEV '
542 infot = 1
543 CALL cheev( '/', 'U', 0, a, 1, x, w, 1, rw, info )
544 CALL chkxer( 'CHEEV ', infot, nout, lerr, ok )
545 infot = 2
546 CALL cheev( 'N', '/', 0, a, 1, x, w, 1, rw, info )
547 CALL chkxer( 'CHEEV ', infot, nout, lerr, ok )
548 infot = 3
549 CALL cheev( 'N', 'U', -1, a, 1, x, w, 1, rw, info )
550 CALL chkxer( 'CHEEV ', infot, nout, lerr, ok )
551 infot = 5
552 CALL cheev( 'N', 'U', 2, a, 1, x, w, 3, rw, info )
553 CALL chkxer( 'CHEEV ', infot, nout, lerr, ok )
554 infot = 8
555 CALL cheev( 'N', 'U', 2, a, 2, x, w, 2, rw, info )
556 CALL chkxer( 'CHEEV ', infot, nout, lerr, ok )
557 nt = nt + 5
558*
559* CHEEV_2STAGE
560*
561 srnamt = 'CHEEV_2STAGE '
562 infot = 1
563 CALL cheev_2stage( '/', 'U', 0, a, 1, x, w, 1, rw, info )
564 CALL chkxer( 'CHEEV_2STAGE ', infot, nout, lerr, ok )
565 infot = 1
566 CALL cheev_2stage( 'V', 'U', 0, a, 1, x, w, 1, rw, info )
567 CALL chkxer( 'CHEEV_2STAGE ', infot, nout, lerr, ok )
568 infot = 2
569 CALL cheev_2stage( 'N', '/', 0, a, 1, x, w, 1, rw, info )
570 CALL chkxer( 'CHEEV_2STAGE ', infot, nout, lerr, ok )
571 infot = 3
572 CALL cheev_2stage( 'N', 'U', -1, a, 1, x, w, 1, rw, info )
573 CALL chkxer( 'CHEEV_2STAGE ', infot, nout, lerr, ok )
574 infot = 5
575 CALL cheev_2stage( 'N', 'U', 2, a, 1, x, w, 3, rw, info )
576 CALL chkxer( 'CHEEV_2STAGE ', infot, nout, lerr, ok )
577 infot = 8
578 CALL cheev_2stage( 'N', 'U', 2, a, 2, x, w, 2, rw, info )
579 CALL chkxer( 'CHEEV_2STAGE ', infot, nout, lerr, ok )
580 nt = nt + 6
581*
582* CHEEVX
583*
584 srnamt = 'CHEEVX'
585 infot = 1
586 CALL cheevx( '/', 'A', 'U', 0, a, 1, 0.0, 0.0, 0, 0, 0.0, m, x,
587 $ z, 1, w, 1, rw, iw, i3, info )
588 CALL chkxer( 'CHEEVX', infot, nout, lerr, ok )
589 infot = 2
590 CALL cheevx( 'V', '/', 'U', 0, a, 1, 0.0, 1.0, 1, 0, 0.0, m, x,
591 $ z, 1, w, 1, rw, iw, i3, info )
592 CALL chkxer( 'CHEEVX', infot, nout, lerr, ok )
593 infot = 3
594 CALL cheevx( 'V', 'A', '/', 0, a, 1, 0.0, 0.0, 0, 0, 0.0, m, x,
595 $ z, 1, w, 1, rw, iw, i3, info )
596 infot = 4
597 CALL cheevx( 'V', 'A', 'U', -1, a, 1, 0.0, 0.0, 0, 0, 0.0, m,
598 $ x, z, 1, w, 1, rw, iw, i3, info )
599 CALL chkxer( 'CHEEVX', infot, nout, lerr, ok )
600 infot = 6
601 CALL cheevx( 'V', 'A', 'U', 2, a, 1, 0.0, 0.0, 0, 0, 0.0, m, x,
602 $ z, 2, w, 3, rw, iw, i3, info )
603 CALL chkxer( 'cheevx', INFOT, NOUT, LERR, OK )
604 INFOT = 8
605 CALL CHEEVX( 'v', 'v', 'u', 1, A, 1, 0.0, 0.0, 0, 0, 0.0, M, X,
606 $ Z, 1, W, 1, RW, IW, I3, INFO )
607 CALL CHKXER( 'cheevx', INFOT, NOUT, LERR, OK )
608 INFOT = 9
609 CALL CHEEVX( 'v', 'i', 'u', 1, A, 1, 0.0, 0.0, 0, 0, 0.0, M, X,
610 $ Z, 1, W, 1, RW, IW, I3, INFO )
611 CALL CHKXER( 'cheevx', INFOT, NOUT, LERR, OK )
612 INFOT = 10
613 CALL CHEEVX( 'v', 'i', 'u', 2, A, 2, 0.0, 0.0, 2, 1, 0.0, M, X,
614 $ Z, 2, W, 3, RW, IW, I3, INFO )
615 CALL CHKXER( 'cheevx', INFOT, NOUT, LERR, OK )
616 INFOT = 15
617 CALL CHEEVX( 'v', 'a', 'u', 2, A, 2, 0.0, 0.0, 0, 0, 0.0, M, X,
618 $ Z, 1, W, 3, RW, IW, I3, INFO )
619 CALL CHKXER( 'cheevx', INFOT, NOUT, LERR, OK )
620 INFOT = 17
621 CALL CHEEVX( 'v', 'a', 'u', 2, A, 2, 0.0, 0.0, 0, 0, 0.0, M, X,
622 $ Z, 2, W, 2, RW, IW, I1, INFO )
623 CALL CHKXER( 'cheevx', INFOT, NOUT, LERR, OK )
624 NT = NT + 10
625*
626* CHEEVX_2STAGE
627*
628 SRNAMT = 'cheevx_2stage'
629 INFOT = 1
630 CALL CHEEVX_2STAGE( '/', 'a', 'u', 0, A, 1,
631 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
632 $ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
633 CALL CHKXER( 'cheevx_2stage', INFOT, NOUT, LERR, OK )
634 INFOT = 1
635 CALL CHEEVX_2STAGE( 'v', 'a', 'u', 0, A, 1,
636 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
637 $ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
638 CALL CHKXER( 'cheevx_2stage', INFOT, NOUT, LERR, OK )
639 INFOT = 2
640 CALL CHEEVX_2STAGE( 'n', '/', 'u', 0, A, 1,
641 $ 0.0D0, 1.0D0, 1, 0, 0.0D0,
642 $ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
643 CALL CHKXER( 'cheevx_2stage', INFOT, NOUT, LERR, OK )
644 INFOT = 3
645 CALL CHEEVX_2STAGE( 'n', 'a', '/', 0, A, 1,
646 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
647 $ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
648 INFOT = 4
649 CALL CHEEVX_2STAGE( 'n', 'a', 'u', -1, A, 1,
650 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
651 $ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
652 CALL CHKXER( 'cheevx_2stage', INFOT, NOUT, LERR, OK )
653 INFOT = 6
654 CALL CHEEVX_2STAGE( 'n', 'a', 'u', 2, A, 1,
655 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
656 $ M, X, Z, 2, W, 3, RW, IW, I3, INFO )
657 CALL CHKXER( 'cheevx_2stage', INFOT, NOUT, LERR, OK )
658 INFOT = 8
659 CALL CHEEVX_2STAGE( 'n', 'v', 'u', 1, A, 1,
660 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
661 $ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
662 CALL CHKXER( 'cheevx_2stage', INFOT, NOUT, LERR, OK )
663 INFOT = 9
664 CALL CHEEVX_2STAGE( 'n', 'i', 'u', 1, A, 1,
665 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
666 $ M, X, Z, 1, W, 1, RW, IW, I3, INFO )
667 CALL CHKXER( 'cheevx_2stage', INFOT, NOUT, LERR, OK )
668 INFOT = 10
669 CALL CHEEVX_2STAGE( 'n', 'i', 'u', 2, A, 2,
670 $ 0.0D0, 0.0D0, 2, 1, 0.0D0,
671 $ M, X, Z, 2, W, 3, RW, IW, I3, INFO )
672 CALL CHKXER( 'cheevx_2stage', INFOT, NOUT, LERR, OK )
673 INFOT = 15
674 CALL CHEEVX_2STAGE( 'n', 'A', 'U', 2, a, 2,
675 $ 0.0d0, 0.0d0, 0, 0, 0.0d0,
676 $ m, x, z, 0, w, 3, rw, iw, i3, info )
677 CALL chkxer( 'CHEEVX_2STAGE', infot, nout, lerr, ok )
678 infot = 17
679 CALL cheevx_2stage( 'N', 'A', 'U', 2, a, 2,
680 $ 0.0d0, 0.0d0, 0, 0, 0.0d0,
681 $ m, x, z, 2, w, 0, rw, iw, i1, info )
682 CALL chkxer( 'CHEEVX_2STAGE', infot, nout, lerr, ok )
683 nt = nt + 11
684*
685* CHEEVR
686*
687 srnamt = 'cheevr'
688 N = 1
689 INFOT = 1
690 CALL CHEEVR( '/', 'a', 'u', 0, A, 1, 0.0, 0.0, 1, 1, 0.0, M, R,
691 $ Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N,
692 $ INFO )
693 CALL CHKXER( 'cheevr', INFOT, NOUT, LERR, OK )
694 INFOT = 2
695 CALL CHEEVR( 'v', '/', 'u', 0, A, 1, 0.0, 0.0, 1, 1, 0.0, M, R,
696 $ Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N,
697 $ INFO )
698 CALL CHKXER( 'cheevr', INFOT, NOUT, LERR, OK )
699 INFOT = 3
700 CALL CHEEVR( 'v', 'a', '/', -1, A, 1, 0.0, 0.0, 1, 1, 0.0, M,
701 $ R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N,
702 $ INFO )
703 CALL CHKXER( 'cheevr', INFOT, NOUT, LERR, OK )
704 INFOT = 4
705 CALL CHEEVR( 'v', 'a', 'u', -1, A, 1, 0.0, 0.0, 1, 1, 0.0, M,
706 $ R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N,
707 $ INFO )
708 CALL CHKXER( 'cheevr', INFOT, NOUT, LERR, OK )
709 INFOT = 6
710 CALL CHEEVR( 'v', 'a', 'u', 2, A, 1, 0.0, 0.0, 1, 1, 0.0, M, R,
711 $ Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ), 10*N,
712 $ INFO )
713 CALL CHKXER( 'cheevr', INFOT, NOUT, LERR, OK )
714 INFOT = 8
715 CALL CHEEVR( 'v', 'v', 'u', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
716 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
717 $ 10*N, INFO )
718 CALL CHKXER( 'cheevr', INFOT, NOUT, LERR, OK )
719 INFOT = 9
720 CALL CHEEVR( 'v', 'i', 'u', 1, A, 1, 0.0E0, 0.0E0, 0, 1, 0.0,
721 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
722 $ 10*N, INFO )
723 CALL CHKXER( 'cheevr', INFOT, NOUT, LERR, OK )
724 INFOT = 10
725*
726 CALL CHEEVR( 'v', 'i', 'u', 2, A, 2, 0.0E0, 0.0E0, 2, 1, 0.0,
727 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
728 $ 10*N, INFO )
729 CALL CHKXER( 'cheevr', INFOT, NOUT, LERR, OK )
730 INFOT = 15
731 CALL CHEEVR( 'v', 'i', 'u', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
732 $ M, R, Z, 0, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
733 $ 10*N, INFO )
734 CALL CHKXER( 'cheevr', INFOT, NOUT, LERR, OK )
735 INFOT = 18
736 CALL CHEEVR( 'v', 'i', 'u', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
737 $ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ),
738 $ 10*N, INFO )
739 CALL CHKXER( 'cheevr', INFOT, NOUT, LERR, OK )
740 INFOT = 20
741 CALL CHEEVR( 'v', 'i', 'u', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
742 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N-1, IW( 2*N-1 ),
743 $ 10*N, INFO )
744 CALL CHKXER( 'cheevr', INFOT, NOUT, LERR, OK )
745 INFOT = 22
746 CALL CHEEVR( 'v', 'i', 'u', 1, A, 1, 0.0E0, 0.0E0, 1, 1, 0.0,
747 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW, 10*N-1,
748 $ INFO )
749 CALL CHKXER( 'cheevr', INFOT, NOUT, LERR, OK )
750 NT = NT + 12
751*
752* CHEEVR_2STAGE
753*
754 SRNAMT = 'cheevr_2stage'
755 N = 1
756 INFOT = 1
757 CALL CHEEVR_2STAGE( '/', 'a', 'u', 0, A, 1,
758 $ 0.0D0, 0.0D0, 1, 1, 0.0D0,
759 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
760 $ 10*N, INFO )
761 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
762 INFOT = 1
763 CALL CHEEVR_2STAGE( 'v', 'a', 'u', 0, A, 1,
764 $ 0.0D0, 0.0D0, 1, 1, 0.0D0,
765 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
766 $ 10*N, INFO )
767 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
768 INFOT = 2
769 CALL CHEEVR_2STAGE( 'n', '/', 'u', 0, A, 1,
770 $ 0.0D0, 0.0D0, 1, 1, 0.0D0,
771 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
772 $ 10*N, INFO )
773 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
774 INFOT = 3
775 CALL CHEEVR_2STAGE( 'n', 'a', '/', -1, A, 1,
776 $ 0.0D0, 0.0D0, 1, 1, 0.0D0,
777 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N,
778 $ IW( 2*N+1 ), 10*N, INFO )
779 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
780 INFOT = 4
781 CALL CHEEVR_2STAGE( 'n', 'a', 'u', -1, A, 1,
782 $ 0.0D0, 0.0D0, 1, 1, 0.0D0,
783 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N,
784 $ IW( 2*N+1 ), 10*N, INFO )
785 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
786 INFOT = 6
787 CALL CHEEVR_2STAGE( 'n', 'a', 'u', 2, A, 1,
788 $ 0.0D0, 0.0D0, 1, 1, 0.0D0,
789 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
790 $ 10*N, INFO )
791 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
792 INFOT = 8
793 CALL CHEEVR_2STAGE( 'n', 'v', 'u', 1, A, 1,
794 $ 0.0D0, 0.0D0, 1, 1, 0.0D0,
795 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
796 $ 10*N, INFO )
797 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
798 INFOT = 9
799 CALL CHEEVR_2STAGE( 'n', 'i', 'u', 1, A, 1,
800 $ 0.0D0, 0.0D0, 0, 1, 0.0D0,
801 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
802 $ 10*N, INFO )
803 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
804 INFOT = 10
805 CALL CHEEVR_2STAGE( 'n', 'i', 'u', 2, A, 2,
806 $ 0.0D0, 0.0D0, 2, 1, 0.0D0,
807 $ M, R, Z, 1, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
808 $ 10*N, INFO )
809 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
810 INFOT = 15
811 CALL CHEEVR_2STAGE( 'n', 'i', 'u', 1, A, 1,
812 $ 0.0D0, 0.0D0, 1, 1, 0.0D0,
813 $ M, R, Z, 0, IW, Q, 2*N, RW, 24*N, IW( 2*N+1 ),
814 $ 10*N, INFO )
815 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
816 INFOT = 18
817 CALL CHEEVR_2STAGE( 'n', 'i', 'u', 1, A, 1,
818 $ 0.0D0, 0.0D0, 1, 1, 0.0D0,
819 $ M, R, Z, 1, IW, Q, 2*N-1, RW, 24*N, IW( 2*N+1 ),
820 $ 10*N, INFO )
821 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
822 INFOT = 20
823 CALL CHEEVR_2STAGE( 'n', 'i', 'u', 1, A, 1,
824 $ 0.0D0, 0.0D0, 1, 1, 0.0D0,
825 $ M, R, Z, 1, IW, Q, 26*N, RW, 24*N-1, IW( 2*N-1 ),
826 $ 10*N, INFO )
827 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
828 INFOT = 22
829 CALL CHEEVR_2STAGE( 'n', 'i', 'u', 1, A, 1,
830 $ 0.0D0, 0.0D0, 1, 1, 0.0D0,
831 $ M, R, Z, 1, IW, Q, 26*N, RW, 24*N, IW, 10*N-1,
832 $ INFO )
833 CALL CHKXER( 'cheevr_2stage', INFOT, NOUT, LERR, OK )
834 NT = NT + 13
835*
836* CHPEVD
837*
838 SRNAMT = 'chpevd'
839 infot = 1
840 CALL chpevd( '/', 'U', 0, a, x, z, 1, w, 1, rw, 1, iw, 1,
841 $ info )
842 CALL chkxer( 'CHPEVD', infot, nout, lerr, ok )
843 infot = 2
844 CALL chpevd( 'N', '/', 0, a, x, z, 1, w, 1, rw, 1, iw, 1,
845 $ info )
846 CALL chkxer( 'CHPEVD', infot, nout, lerr, ok )
847 infot = 3
848 CALL chpevd( 'N', 'U', -1, a, x, z, 1, w, 1, rw, 1, iw, 1,
849 $ info )
850 CALL chkxer( 'CHPEVD', infot, nout, lerr, ok )
851 infot = 7
852 CALL chpevd( 'V', 'U', 2, a, x, z, 1, w, 4, rw, 25, iw, 12,
853 $ info )
854 CALL chkxer( 'CHPEVD', infot, nout, lerr, ok )
855 infot = 9
856 CALL chpevd( 'n', 'u', 1, A, X, Z, 1, W, 0, RW, 1, IW, 1,
857 $ INFO )
858 CALL CHKXER( 'chpevd', INFOT, NOUT, LERR, OK )
859 INFOT = 9
860 CALL CHPEVD( 'n', 'u', 2, A, X, Z, 2, W, 1, RW, 2, IW, 1,
861 $ INFO )
862 CALL CHKXER( 'chpevd', INFOT, NOUT, LERR, OK )
863 INFOT = 9
864 CALL CHPEVD( 'v', 'U', 2, a, x, z, 2, w, 2, rw, 25, iw, 12,
865 $ info )
866 CALL chkxer( 'chpevd', INFOT, NOUT, LERR, OK )
867 INFOT = 11
868 CALL CHPEVD( 'n', 'u', 1, A, X, Z, 1, W, 1, RW, 0, IW, 1,
869 $ INFO )
870 CALL CHKXER( 'chpevd', INFOT, NOUT, LERR, OK )
871 INFOT = 11
872 CALL CHPEVD( 'n', 'u', 2, A, X, Z, 2, W, 2, RW, 1, IW, 1,
873 $ INFO )
874 CALL CHKXER( 'chpevd', INFOT, NOUT, LERR, OK )
875 INFOT = 11
876 CALL CHPEVD( 'v', 'u', 2, A, X, Z, 2, W, 4, RW, 18, IW, 12,
877 $ INFO )
878 CALL CHKXER( 'chpevd', INFOT, NOUT, LERR, OK )
879 INFOT = 13
880 CALL CHPEVD( 'n', 'u', 1, A, X, Z, 1, W, 1, RW, 1, IW, 0,
881 $ INFO )
882 CALL CHKXER( 'chpevd', INFOT, NOUT, LERR, OK )
883 INFOT = 13
884 CALL CHPEVD( 'n', 'u', 2, A, X, Z, 2, W, 2, RW, 2, IW, 0,
885 $ INFO )
886 CALL CHKXER( 'chpevd', INFOT, NOUT, LERR, OK )
887 INFOT = 13
888 CALL CHPEVD( 'v', 'u', 2, A, X, Z, 2, W, 4, RW, 25, IW, 2,
889 $ INFO )
890 CALL CHKXER( 'chpevd', INFOT, NOUT, LERR, OK )
891 NT = NT + 13
892*
893* CHPEV
894*
895 SRNAMT = 'chpev '
896 INFOT = 1
897 CALL CHPEV( '/', 'u', 0, A, X, Z, 1, W, RW, INFO )
898 CALL CHKXER( 'chpev ', INFOT, NOUT, LERR, OK )
899 INFOT = 2
900 CALL CHPEV( 'n', '/', 0, A, X, Z, 1, W, RW, INFO )
901 CALL CHKXER( 'chpev ', INFOT, NOUT, LERR, OK )
902 INFOT = 3
903 CALL CHPEV( 'n', 'u', -1, A, X, Z, 1, W, RW, INFO )
904 CALL CHKXER( 'chpev ', INFOT, NOUT, LERR, OK )
905 INFOT = 7
906 CALL CHPEV( 'v', 'u', 2, A, X, Z, 1, W, RW, INFO )
907 CALL CHKXER( 'chpev ', INFOT, NOUT, LERR, OK )
908 NT = NT + 4
909*
910* CHPEVX
911*
912 SRNAMT = 'chpevx'
913 INFOT = 1
914 CALL CHPEVX( '/', 'a', 'u', 0, A, 0.0, 0.0, 0, 0, 0.0, M, X, Z,
915 $ 1, W, RW, IW, I3, INFO )
916 CALL CHKXER( 'chpevx', INFOT, NOUT, LERR, OK )
917 INFOT = 2
918 CALL CHPEVX( 'v', '/', 'u', 0, A, 0.0, 1.0, 1, 0, 0.0, M, X, Z,
919 $ 1, W, RW, IW, I3, INFO )
920 CALL CHKXER( 'chpevx', INFOT, NOUT, LERR, OK )
921 INFOT = 3
922 CALL CHPEVX( 'v', 'a', '/', 0, a, 0.0, 0.0, 0, 0, 0.0, m, x, z,
923 $ 1, w, rw, iw, i3, info )
924 CALL chkxer( 'CHPEVX', infot, nout, lerr, ok )
925 infot = 4
926 CALL chpevx( 'V', 'A', 'U', -1, a, 0.0, 0.0, 0, 0, 0.0, m, x,
927 $ z, 1, w, rw, iw, i3, info )
928 CALL chkxer( 'CHPEVX', infot, nout, lerr, ok )
929 infot = 7
930 CALL chpevx( 'V', 'V', 'U', 1, a, 0.0, 0.0, 0, 0, 0.0, m, x, z,
931 $ 1, w, rw, iw, i3, info )
932 CALL chkxer( 'CHPEVX', infot, nout, lerr, ok )
933 infot = 8
934 CALL chpevx( 'V', 'I', 'U', 1, a, 0.0, 0.0, 0, 0, 0.0, m, x, z,
935 $ 1, w, rw, iw, i3, info )
936 CALL chkxer( 'CHPEVX', infot, nout, lerr, ok )
937 infot = 9
938 CALL chpevx( 'V', 'I', 'U', 2, a, 0.0, 0.0, 2, 1, 0.0, m, x, z,
939 $ 2, w, rw, iw, i3, info )
940 CALL chkxer( 'CHPEVX', infot, nout, lerr, ok )
941 infot = 14
942 CALL chpevx( 'V', 'A', 'U', 2, a, 0.0, 0.0, 0, 0, 0.0, m, x, z,
943 $ 1, w, rw, iw, i3, info )
944 CALL chkxer( 'CHPEVX', infot, nout, lerr, ok )
945 nt = nt + 8
946*
947* Test error exits for the HB path.
948*
949 ELSE IF( lsamen( 2, c2, 'HB' ) ) THEN
950*
951* CHBTRD
952*
953 srnamt = 'CHBTRD'
954 infot = 1
955 CALL chbtrd( '/', 'U', 0, 0, a, 1, d, e, z, 1, w, info )
956 CALL chkxer( 'CHBTRD', infot, nout, lerr, ok )
957 infot = 2
958 CALL chbtrd( 'N', '/', 0, 0, a, 1, d, e, z, 1, w, info )
959 CALL chkxer( 'CHBTRD', infot, nout, lerr, ok )
960 infot = 3
961 CALL chbtrd( 'N', 'U', -1, 0, a, 1, d, e, z, 1, w, info )
962 CALL chkxer( 'CHBTRD', infot, nout, lerr, ok )
963 infot = 4
964 CALL chbtrd( 'N', 'U', 0, -1, a, 1, d, e, z, 1, w, info )
965 CALL chkxer( 'CHBTRD', infot, nout, lerr, ok )
966 infot = 6
967 CALL chbtrd( 'N', 'U', 1, 1, a, 1, d, e, z, 1, w, info )
968 CALL chkxer( 'CHBTRD', infot, nout, lerr, ok )
969 infot = 10
970 CALL chbtrd( 'V', 'U', 2, 0, a, 1, d, e, z, 1, w, info )
971 CALL chkxer( 'CHBTRD', infot, nout, lerr, ok )
972 nt = nt + 6
973*
974* CHETRD_HB2ST
975*
976 srnamt = 'CHETRD_HB2ST'
977 infot = 1
978 CALL chetrd_hb2st( '/', 'N', 'U', 0, 0, a, 1, d, e,
979 $ c, 1, w, 1, info )
980 CALL chkxer( 'chetrd_hb2st', INFOT, NOUT, LERR, OK )
981 INFOT = 2
982 CALL CHETRD_HB2ST( 'n', '/', 'u', 0, 0, A, 1, D, E,
983 $ C, 1, W, 1, INFO )
984 CALL CHKXER( 'chetrd_hb2st', INFOT, NOUT, LERR, OK )
985 INFOT = 2
986 CALL CHETRD_HB2ST( 'n', 'h', 'u', 0, 0, A, 1, D, E,
987 $ C, 1, W, 1, INFO )
988 CALL CHKXER( 'chetrd_hb2st', INFOT, NOUT, LERR, OK )
989 INFOT = 3
990 CALL CHETRD_HB2ST( 'n', 'n', '/', 0, 0, A, 1, D, E,
991 $ C, 1, W, 1, INFO )
992 CALL CHKXER( 'chetrd_hb2st', INFOT, NOUT, LERR, OK )
993 INFOT = 4
994 CALL CHETRD_HB2ST( 'n', 'n', 'u', -1, 0, A, 1, D, E,
995 $ C, 1, W, 1, INFO )
996 CALL CHKXER( 'chetrd_hb2st', INFOT, NOUT, LERR, OK )
997 INFOT = 5
998 CALL CHETRD_HB2ST( 'n', 'N', 'U', 0, -1, a, 1, d, e,
999 $ c, 1, w, 1, info )
1000 CALL chkxer( 'chetrd_hb2st', INFOT, NOUT, LERR, OK )
1001 INFOT = 7
1002 CALL CHETRD_HB2ST( 'n', 'n', 'u', 0, 1, A, 1, D, E,
1003 $ C, 1, W, 1, INFO )
1004 CALL CHKXER( 'chetrd_hb2st', INFOT, NOUT, LERR, OK )
1005 INFOT = 11
1006 CALL CHETRD_HB2ST( 'n', 'n', 'u', 0, 0, A, 1, D, E,
1007 $ C, 0, W, 1, INFO )
1008 CALL CHKXER( 'chetrd_hb2st', INFOT, NOUT, LERR, OK )
1009 INFOT = 13
1010 CALL CHETRD_HB2ST( 'n', 'n', 'u', 0, 0, A, 1, D, E,
1011 $ C, 1, W, 0, INFO )
1012 CALL CHKXER( 'chetrd_hb2st', INFOT, NOUT, LERR, OK )
1013 NT = NT + 9
1014*
1015* CHBEVD
1016*
1017 SRNAMT = 'chbevd'
1018 INFOT = 1
1019 CALL CHBEVD( '/', 'u', 0, 0, A, 1, X, Z, 1, W, 1, RW, 1, IW, 1,
1020 $ INFO )
1021 CALL CHKXER( 'chbevd', INFOT, NOUT, LERR, OK )
1022 INFOT = 2
1023 CALL CHBEVD( 'n', '/', 0, 0, A, 1, X, Z, 1, W, 1, RW, 1, IW, 1,
1024 $ INFO )
1025 CALL CHKXER( 'chbevd', INFOT, NOUT, LERR, OK )
1026 INFOT = 3
1027 CALL CHBEVD( 'n', 'u', -1, 0, A, 1, X, Z, 1, W, 1, RW, 1, IW,
1028 $ 1, INFO )
1029 CALL CHKXER( 'chbevd', INFOT, NOUT, LERR, OK )
1030 INFOT = 4
1031 CALL CHBEVD( 'n', 'u', 0, -1, A, 1, X, Z, 1, W, 1, RW, 1, IW,
1032 $ 1, INFO )
1033 CALL CHKXER( 'chbevd', INFOT, NOUT, LERR, OK )
1034 INFOT = 6
1035 CALL CHBEVD( 'n', 'u', 2, 1, A, 1, X, Z, 1, W, 2, RW, 2, IW, 1,
1036 $ INFO )
1037 CALL CHKXER( 'chbevd', INFOT, NOUT, LERR, OK )
1038 INFOT = 9
1039 CALL CHBEVD( 'v', 'u', 2, 1, A, 2, X, Z, 1, W, 8, RW, 25, IW,
1040 $ 12, INFO )
1041 CALL CHKXER( 'chbevd', INFOT, NOUT, LERR, OK )
1042 INFOT = 11
1043 CALL CHBEVD( 'n', 'u', 1, 0, A, 1, X, Z, 1, W, 0, RW, 1, IW, 1,
1044 $ INFO )
1045 CALL CHKXER( 'chbevd', INFOT, NOUT, LERR, OK )
1046 INFOT = 11
1047 CALL CHBEVD( 'n', 'u', 2, 1, A, 2, X, Z, 2, W, 1, RW, 2, IW, 1,
1048 $ INFO )
1049 CALL CHKXER( 'chbevd', INFOT, NOUT, LERR, OK )
1050 INFOT = 11
1051 CALL CHBEVD( 'v', 'u', 2, 1, A, 2, X, Z, 2, W, 2, RW, 25, IW,
1052 $ 12, INFO )
1053 CALL CHKXER( 'chbevd', INFOT, NOUT, LERR, OK )
1054 INFOT = 13
1055 CALL CHBEVD( 'n', 'u', 1, 0, A, 1, X, Z, 1, W, 1, RW, 0, IW, 1,
1056 $ INFO )
1057 CALL CHKXER( 'chbevd', infot, nout, lerr, ok )
1058 infot = 13
1059 CALL chbevd( 'N', 'U', 2, 1, a, 2, x, z, 2, w, 2, rw, 1, iw, 1,
1060 $ info )
1061 CALL chkxer( 'CHBEVD', infot, nout, lerr, ok )
1062 infot = 13
1063 CALL chbevd( 'V', 'U', 2, 1, a, 2, x, z, 2, w, 8, rw, 2, iw,
1064 $ 12, info )
1065 CALL chkxer( 'CHBEVD', infot, nout, lerr, ok )
1066 infot = 15
1067 CALL chbevd( 'N', 'U', 1, 0, a, 1, x, z, 1, w, 1, rw, 1, iw, 0,
1068 $ info )
1069 CALL chkxer( 'CHBEVD', infot, nout, lerr, ok )
1070 infot = 15
1071 CALL chbevd( 'N', 'u', 2, 1, A, 2, X, Z, 2, W, 2, RW, 2, IW, 0,
1072 $ INFO )
1073 CALL CHKXER( 'chbevd', INFOT, NOUT, LERR, OK )
1074 INFOT = 15
1075 CALL CHBEVD( 'v', 'u', 2, 1, A, 2, X, Z, 2, W, 8, RW, 25, IW,
1076 $ 2, INFO )
1077 CALL CHKXER( 'chbevd', INFOT, NOUT, LERR, OK )
1078 NT = NT + 15
1079*
1080* CHBEVD_2STAGE
1081*
1082 SRNAMT = 'chbevd_2stage'
1083 INFOT = 1
1084 CALL CHBEVD_2STAGE( '/', 'u', 0, 0, A, 1, X, Z, 1,
1085 $ W, 1, RW, 1, IW, 1, INFO )
1086 CALL CHKXER( 'chbevd_2stage', INFOT, NOUT, LERR, OK )
1087 INFOT = 1
1088 CALL CHBEVD_2STAGE( 'v', 'u', 0, 0, A, 1, X, Z, 1,
1089 $ W, 1, RW, 1, IW, 1, INFO )
1090 CALL CHKXER( 'chbevd_2stage', INFOT, NOUT, LERR, OK )
1091 INFOT = 2
1092 CALL CHBEVD_2STAGE( 'n', '/', 0, 0, A, 1, X, Z, 1,
1093 $ W, 1, RW, 1, IW, 1, INFO )
1094 CALL CHKXER( 'chbevd_2stage', INFOT, NOUT, LERR, OK )
1095 INFOT = 3
1096 CALL CHBEVD_2STAGE( 'n', 'u', -1, 0, A, 1, X, Z, 1,
1097 $ W, 1, RW, 1, IW, 1, INFO )
1098 CALL CHKXER( 'chbevd_2stage', INFOT, NOUT, LERR, OK )
1099 INFOT = 4
1100 CALL CHBEVD_2STAGE( 'n', 'u', 0, -1, A, 1, X, Z, 1,
1101 $ W, 1, RW, 1, IW, 1, INFO )
1102 CALL CHKXER( 'chbevd_2stage', infot, nout, lerr, ok )
1103 infot = 6
1104 CALL chbevd_2stage( 'N', 'u', 2, 1, A, 1, X, Z, 1,
1105 $ W, 2, RW, 2, IW, 1, INFO )
1106 CALL CHKXER( 'chbevd_2stage', INFOT, NOUT, LERR, OK )
1107 INFOT = 9
1108 CALL CHBEVD_2STAGE( 'n', 'u', 2, 1, A, 2, X, Z, 0,
1109 $ W, 8, RW, 25, IW, 12, INFO )
1110 CALL CHKXER( 'chbevd_2stage', INFOT, NOUT, LERR, OK )
1111 INFOT = 11
1112 CALL CHBEVD_2STAGE( 'n', 'u', 1, 0, A, 1, X, Z, 1,
1113 $ W, 0, RW, 1, IW, 1, INFO )
1114 CALL CHKXER( 'chbevd_2stage', INFOT, NOUT, LERR, OK )
1115 INFOT = 11
1116 CALL CHBEVD_2STAGE( 'n', 'u', 2, 1, A, 2, X, Z, 2,
1117 $ W, 1, RW, 2, IW, 1, INFO )
1118 CALL CHKXER( 'chbevd_2stage', INFOT, NOUT, LERR, OK )
1119* INFOT = 11
1120* CALL CHBEVD_2STAGE( 'V', 'U', 2, 1, A, 2, X, Z, 2,
1121* $ W, 2, RW, 25, IW, 12, INFO )
1122* CALL CHKXER( 'CHBEVD_2STAGE', INFOT, NOUT, LERR, OK )
1123 INFOT = 13
1124 CALL CHBEVD_2STAGE( 'n', 'u', 1, 0, A, 1, X, Z, 1,
1125 $ W, 1, RW, 0, IW, 1, INFO )
1126 CALL CHKXER( 'chbevd_2stage', INFOT, NOUT, LERR, OK )
1127 INFOT = 13
1128 CALL CHBEVD_2STAGE( 'n', 'u', 2, 1, A, 2, X, Z, 2,
1129 $ W, 25, RW, 1, IW, 1, INFO )
1130 CALL CHKXER( 'chbevd_2stage', INFOT, NOUT, LERR, OK )
1131* INFOT = 13
1132* CALL CHBEVD_2STAGE( 'V', 'U', 2, 1, A, 2, X, Z, 2,
1133* $ W, 25, RW, 2, IW, 12, INFO )
1134* CALL CHKXER( 'CHBEVD_2STAGE', INFOT, NOUT, LERR, OK )
1135 INFOT = 15
1136 CALL CHBEVD_2STAGE( 'n', 'u', 1, 0, A, 1, X, Z, 1,
1137 $ W, 1, RW, 1, IW, 0, INFO )
1138 CALL CHKXER( 'chbevd_2stage', INFOT, NOUT, LERR, OK )
1139 INFOT = 15
1140 CALL CHBEVD_2STAGE( 'n', 'u', 2, 1, A, 2, X, Z, 2,
1141 $ W, 25, RW, 2, IW, 0, INFO )
1142 CALL CHKXER( 'chbevd_2stage', INFOT, NOUT, LERR, OK )
1143* INFOT = 15
1144* CALL CHBEVD_2STAGE( 'V', 'U', 2, 1, A, 2, X, Z, 2,
1145* $ W, 25, RW, 25, IW, 2, INFO )
1146* CALL CHKXER( 'CHBEVD_2STAGE', INFOT, NOUT, LERR, OK )
1147 NT = NT + 13
1148*
1149* CHBEV
1150*
1151 SRNAMT = 'chbev '
1152 INFOT = 1
1153 CALL CHBEV( '/', 'u', 0, 0, A, 1, X, Z, 1, W, RW, INFO )
1154 CALL CHKXER( 'chbev ', INFOT, NOUT, LERR, OK )
1155 INFOT = 2
1156 CALL CHBEV( 'n', '/', 0, 0, A, 1, X, Z, 1, W, RW, INFO )
1157 CALL CHKXER( 'chbev ', INFOT, NOUT, LERR, OK )
1158 INFOT = 3
1159 CALL CHBEV( 'n', 'u', -1, 0, A, 1, X, Z, 1, W, RW, INFO )
1160 CALL CHKXER( 'chbev ', INFOT, NOUT, LERR, OK )
1161 INFOT = 4
1162 CALL CHBEV( 'n', 'u', 0, -1, A, 1, X, Z, 1, W, RW, INFO )
1163 CALL CHKXER( 'chbev ', INFOT, NOUT, LERR, OK )
1164 INFOT = 6
1165 CALL CHBEV( 'n', 'u', 2, 1, A, 1, X, Z, 1, W, RW, INFO )
1166 CALL CHKXER( 'chbev ', INFOT, NOUT, LERR, OK )
1167 INFOT = 9
1168 CALL CHBEV( 'v', 'u', 2, 0, A, 1, X, Z, 1, W, RW, INFO )
1169 CALL CHKXER( 'chbev ', INFOT, NOUT, LERR, OK )
1170 NT = NT + 6
1171*
1172* CHBEV_2STAGE
1173*
1174 SRNAMT = 'chbev_2stage '
1175 INFOT = 1
1176 CALL CHBEV_2STAGE( '/', 'u', 0, 0, A, 1, X,
1177 $ Z, 1, W, 0, RW, INFO )
1178 CALL CHKXER( 'chbev_2stage ', INFOT, NOUT, LERR, OK )
1179 INFOT = 1
1180 CALL CHBEV_2STAGE( 'v', 'u', 0, 0, A, 1, X,
1181 $ Z, 1, W, 0, RW, INFO )
1182 CALL CHKXER( 'chbev_2stage ', INFOT, NOUT, LERR, OK )
1183 INFOT = 2
1184 CALL CHBEV_2STAGE( 'n', '/', 0, 0, A, 1, X,
1185 $ Z, 1, W, 0, RW, INFO )
1186 CALL CHKXER( 'chbev_2stage ', INFOT, NOUT, LERR, OK )
1187 INFOT = 3
1188 CALL CHBEV_2STAGE( 'n', 'u', -1, 0, A, 1, X,
1189 $ Z, 1, W, 0, RW, INFO )
1190 CALL CHKXER( 'chbev_2stage ', INFOT, NOUT, LERR, OK )
1191 INFOT = 4
1192 CALL CHBEV_2STAGE( 'n', 'u', 0, -1, A, 1, X,
1193 $ Z, 1, W, 0, RW, INFO )
1194 CALL CHKXER( 'chbev_2stage ', INFOT, NOUT, LERR, OK )
1195 INFOT = 6
1196 CALL CHBEV_2STAGE( 'n', 'u', 2, 1, A, 1, X,
1197 $ Z, 1, W, 0, RW, INFO )
1198 CALL CHKXER( 'chbev_2stage ', INFOT, NOUT, LERR, OK )
1199 INFOT = 9
1200 CALL CHBEV_2STAGE( 'n', 'u', 2, 0, A, 1, X,
1201 $ Z, 0, W, 0, RW, INFO )
1202 CALL CHKXER( 'chbev_2stage ', INFOT, NOUT, LERR, OK )
1203 INFOT = 11
1204 CALL CHBEV_2STAGE( 'n', 'u', 2, 0, A, 1, X,
1205 $ Z, 1, W, 0, RW, INFO )
1206 CALL CHKXER( 'chbev_2stage ', INFOT, NOUT, LERR, OK )
1207 NT = NT + 8
1208*
1209* CHBEVX
1210*
1211 SRNAMT = 'chbevx'
1212 INFOT = 1
1213 CALL CHBEVX( '/', 'a', 'u', 0, 0, A, 1, Q, 1, 0.0, 0.0, 0, 0,
1214 $ 0.0, M, X, Z, 1, W, RW, IW, I3, INFO )
1215 CALL CHKXER( 'chbevx', infot, nout, lerr, ok )
1216 infot = 2
1217 CALL chbevx( 'V', '/', 'U', 0, 0, a, 1, q, 1, 0.0, 1.0, 1, 0,
1218 $ 0.0, m, x, z, 1, w, rw, iw, i3, info )
1219 CALL chkxer( 'CHBEVX', infot, nout, lerr, ok )
1220 infot = 3
1221 CALL chbevx( 'V', 'A', '/', 0, 0, a, 1, q, 1, 0.0, 0.0, 0, 0,
1222 $ 0.0, m, x, z, 1, w, rw, iw, i3, info )
1223 infot = 4
1224 CALL chbevx( 'V', 'A', 'U', -1, 0, a, 1, q, 1, 0.0, 0.0, 0, 0,
1225 $ 0.0, m, x, z, 1, w, rw, iw, i3, info )
1226 CALL chkxer( 'CHBEVX', infot, nout, lerr, ok )
1227 infot = 5
1228 CALL chbevx( 'V', 'A', 'U', 0, -1, a, 1, q, 1, 0.0, 0.0, 0, 0,
1229 $ 0.0, m, x, z, 1, w, rw, iw, i3, info )
1230 CALL chkxer( 'CHBEVX', infot, nout, lerr, ok )
1231 infot = 7
1232 CALL chbevx( 'V', 'A', 'U', 2, 1, a, 1, q, 2, 0.0, 0.0, 0, 0,
1233 $ 0.0, m, x, z, 2, w, rw, iw, i3, info )
1234 CALL chkxer( 'CHBEVX', infot, nout, lerr, ok )
1235 infot = 9
1236 CALL chbevx( 'V', 'A', 'U', 2, 0, a, 1, q, 1, 0.0, 0.0, 0, 0,
1237 $ 0.0, m, x, z, 2, w, rw, iw, i3, info )
1238 CALL chkxer( 'CHBEVX', infot, nout, lerr, ok )
1239 infot = 11
1240 CALL chbevx( 'V', 'V', 'U', 1, 0, a, 1, q, 1, 0.0, 0.0, 0, 0,
1241 $ 0.0, m, x, z, 1, w, rw, iw, i3, info )
1242 CALL chkxer( 'CHBEVX', infot, nout, lerr, ok )
1243 infot = 12
1244 CALL chbevx( 'V', 'I', 'U', 1, 0, a, 1, q, 1, 0.0, 0.0, 0, 0,
1245 $ 0.0, m, x, z, 1, w, rw, iw, i3, info )
1246 CALL chkxer( 'CHBEVX', infot, nout, lerr, ok )
1247 infot = 13
1248 CALL chbevx( 'V', 'I', 'U', 1, 0, a, 1, q, 1, 0.0, 0.0, 1, 2,
1249 $ 0.0, m, x, z, 1, w, rw, iw, i3, info )
1250 CALL chkxer( 'CHBEVX', infot, nout, lerr, ok )
1251 infot = 18
1252 CALL chbevx( 'V', 'A', 'u', 2, 0, a, 1, q, 2, 0.0, 0.0, 0, 0,
1253 $ 0.0, m, x, z, 1, w, rw, iw, i3, info )
1254 CALL chkxer( 'CHBEVX', infot, nout, lerr, ok )
1255 nt = nt + 11
1256*
1257* CHBEVX_2STAGE
1258*
1259 srnamt = 'chbevx_2stage'
1260 INFOT = 1
1261 CALL CHBEVX_2STAGE( '/', 'a', 'u', 0, 0, A, 1, Q, 1,
1262 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1263 $ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
1264 INFOT = 1
1265 CALL CHBEVX_2STAGE( 'v', 'a', 'u', 0, 0, A, 1, Q, 1,
1266 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1267 $ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
1268 CALL CHKXER( 'chbevx_2stage', INFOT, NOUT, LERR, OK )
1269 INFOT = 2
1270 CALL CHBEVX_2STAGE( 'n', '/', 'u', 0, 0, A, 1, Q, 1,
1271 $ 0.0D0, 1.0D0, 1, 0, 0.0D0,
1272 $ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
1273 CALL CHKXER( 'chbevx_2stage', INFOT, NOUT, LERR, OK )
1274 INFOT = 3
1275 CALL CHBEVX_2STAGE( 'n', 'a', '/', 0, 0, A, 1, Q, 1,
1276 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1277 $ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
1278 INFOT = 4
1279 CALL CHBEVX_2STAGE( 'n', 'a', 'u', -1, 0, A, 1, Q, 1,
1280 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1281 $ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
1282 CALL CHKXER( 'chbevx_2stage', INFOT, NOUT, LERR, OK )
1283 INFOT = 5
1284 CALL CHBEVX_2STAGE( 'n', 'a', 'u', 0, -1, A, 1, Q, 1,
1285 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1286 $ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
1287 CALL CHKXER( 'chbevx_2stage', INFOT, NOUT, LERR, OK )
1288 INFOT = 7
1289 CALL CHBEVX_2STAGE( 'n', 'a', 'u', 2, 1, A, 1, Q, 2,
1290 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1291 $ M, X, Z, 2, W, 0, RW, IW, I3, INFO )
1292 CALL CHKXER( 'chbevx_2stage', INFOT, NOUT, LERR, OK )
1293* INFOT = 9
1294* CALL CHBEVX_2STAGE( 'V', 'A', 'U', 2, 0, A, 1, Q, 1,
1295* $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1296* $ M, X, Z, 2, W, 0, RW, IW, I3, INFO )
1297* CALL CHKXER( 'CHBEVX_2STAGE', INFOT, NOUT, LERR, OK )
1298 INFOT = 11
1299 CALL CHBEVX_2STAGE( 'n', 'v', 'u', 1, 0, A, 1, Q, 1,
1300 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1301 $ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
1302 CALL CHKXER( 'chbevx_2stage', INFOT, NOUT, LERR, OK )
1303 INFOT = 12
1304 CALL CHBEVX_2STAGE( 'n', 'i', 'u', 1, 0, A, 1, Q, 1,
1305 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1306 $ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
1307 CALL CHKXER( 'chbevx_2stage', INFOT, NOUT, LERR, OK )
1308 INFOT = 13
1309 CALL CHBEVX_2STAGE( 'n', 'i', 'u', 1, 0, A, 1, Q, 1,
1310 $ 0.0D0, 0.0D0, 1, 2, 0.0D0,
1311 $ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
1312 CALL CHKXER( 'chbevx_2stage', INFOT, NOUT, LERR, OK )
1313 INFOT = 18
1314 CALL CHBEVX_2STAGE( 'n', 'a', 'u', 2, 0, A, 1, Q, 2,
1315 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1316 $ M, X, Z, 0, W, 0, RW, IW, I3, INFO )
1317 CALL CHKXER( 'chbevx_2stage', INFOT, NOUT, LERR, OK )
1318 INFOT = 20
1319 CALL CHBEVX_2STAGE( 'n', 'a', 'u', 2, 0, A, 1, Q, 2,
1320 $ 0.0D0, 0.0D0, 0, 0, 0.0D0,
1321 $ M, X, Z, 1, W, 0, RW, IW, I3, INFO )
1322 CALL CHKXER( 'chbevx_2stage', INFOT, NOUT, LERR, OK )
1323 NT = NT + 12
1324 END IF
1325*
1326* Print a summary line.
1327*
1328 IF( OK ) THEN
1329 WRITE( NOUT, FMT = 9999 )PATH, NT
1330 ELSE
1331 WRITE( NOUT, FMT = 9998 )PATH
1332 END IF
1333*
1334 9999 FORMAT( 1X, A3, ' routines passed the tests of the error exits',
1335 $ ' (', I3, ' tests done)' )
1336 9998 FORMAT( ' *** ', A3, ' routines failed the tests of the error ',
1337 $ 'exits ***' )
1338*
1339 RETURN
1340*
1341* End of CERRST
1342*
1343 END
chkxer
subroutine chkxer(srnamt, infot, nout, lerr, ok)
Definition cblat2.f:3196
the
end diagonal values have been computed in the(sparse) matrix id.SOL
chetrd
subroutine chetrd(uplo, n, a, lda, d, e, tau, work, lwork, info)
CHETRD
Definition chetrd.f:192
chetrd_2stage
subroutine chetrd_2stage(vect, uplo, n, a, lda, d, e, tau, hous2, lhous2, work, lwork, info)
CHETRD_2STAGE
Definition chetrd_2stage.f:224
chetrd_he2hb
subroutine chetrd_he2hb(uplo, n, kd, a, lda, ab, ldab, tau, work, lwork, info)
CHETRD_HE2HB
Definition chetrd_he2hb.f:243
cheevx
subroutine cheevx(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, iwork, ifail, info)
CHEEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for HE matrices
Definition cheevx.f:259
cheevr
subroutine cheevr(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, rwork, lrwork, iwork, liwork, info)
CHEEVR computes the eigenvalues and, optionally, the left and/or right eigenvectors for HE matrices
Definition cheevr.f:357
cheevd
subroutine cheevd(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info)
CHEEVD computes the eigenvalues and, optionally, the left and/or right eigenvectors for HE matrices
Definition cheevd.f:205
cheev_2stage
subroutine cheev_2stage(jobz, uplo, n, a, lda, w, work, lwork, rwork, info)
CHEEV_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for HE matr...
Definition cheev_2stage.f:189
cheevd_2stage
subroutine cheevd_2stage(jobz, uplo, n, a, lda, w, work, lwork, rwork, lrwork, iwork, liwork, info)
CHEEVD_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for HE mat...
Definition cheevd_2stage.f:253
cheev
subroutine cheev(jobz, uplo, n, a, lda, w, work, lwork, rwork, info)
CHEEV computes the eigenvalues and, optionally, the left and/or right eigenvectors for HE matrices
Definition cheev.f:140
cheevr_2stage
subroutine cheevr_2stage(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, isuppz, work, lwork, rwork, lrwork, iwork, liwork, info)
CHEEVR_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for HE mat...
Definition cheevr_2stage.f:406
cheevx_2stage
subroutine cheevx_2stage(jobz, range, uplo, n, a, lda, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, iwork, ifail, info)
CHEEVX_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for HE mat...
Definition cheevx_2stage.f:306
cunmtr
subroutine cunmtr(side, uplo, trans, m, n, a, lda, tau, c, ldc, work, lwork, info)
CUNMTR
Definition cunmtr.f:172
cstein
subroutine cstein(n, d, e, m, w, iblock, isplit, z, ldz, work, iwork, ifail, info)
CSTEIN
Definition cstein.f:182
cupgtr
subroutine cupgtr(uplo, n, ap, tau, q, ldq, work, info)
CUPGTR
Definition cupgtr.f:114
cupmtr
subroutine cupmtr(side, uplo, trans, m, n, ap, tau, c, ldc, work, info)
CUPMTR
Definition cupmtr.f:150
cungtr
subroutine cungtr(uplo, n, a, lda, tau, work, lwork, info)
CUNGTR
Definition cungtr.f:123
chetrd_hb2st
subroutine chetrd_hb2st(stage1, vect, uplo, n, kd, ab, ldab, d, e, hous, lhous, work, lwork, info)
CHETRD_HB2ST reduces a complex Hermitian band matrix A to real symmetric tridiagonal form T
Definition chetrd_hb2st.F:230
chptrd
subroutine chptrd(uplo, n, ap, d, e, tau, info)
CHPTRD
Definition chptrd.f:151
chbtrd
subroutine chbtrd(vect, uplo, n, kd, ab, ldab, d, e, q, ldq, work, info)
CHBTRD
Definition chbtrd.f:163
cstedc
subroutine cstedc(compz, n, d, e, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, info)
CSTEDC
Definition cstedc.f:212
csteqr
subroutine csteqr(compz, n, d, e, z, ldz, work, info)
CSTEQR
Definition csteqr.f:132
chbevd_2stage
subroutine chbevd_2stage(jobz, uplo, n, kd, ab, ldab, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, info)
CHBEVD_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER ...
Definition chbevd_2stage.f:260
chbev
subroutine chbev(jobz, uplo, n, kd, ab, ldab, w, z, ldz, work, rwork, info)
CHBEV computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrices
Definition chbev.f:152
chbevx_2stage
subroutine chbevx_2stage(jobz, range, uplo, n, kd, ab, ldab, q, ldq, vl, vu, il, iu, abstol, m, w, z, ldz, work, lwork, rwork, iwork, ifail, info)
CHBEVX_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER ...
Definition chbevx_2stage.f:327
chbevx
subroutine chbevx(jobz, range, uplo, n, kd, ab, ldab, q, ldq, vl, vu, il, iu, abstol, m, w, z, ldz, work, rwork, iwork, ifail, info)
CHBEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrice...
Definition chbevx.f:267
chbev_2stage
subroutine chbev_2stage(jobz, uplo, n, kd, ab, ldab, w, z, ldz, work, lwork, rwork, info)
CHBEV_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER m...
Definition chbev_2stage.f:211
chpevx
subroutine chpevx(jobz, range, uplo, n, ap, vl, vu, il, iu, abstol, m, w, z, ldz, work, rwork, iwork, ifail, info)
CHPEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrice...
Definition chpevx.f:240
chbevd
subroutine chbevd(jobz, uplo, n, kd, ab, ldab, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, info)
CHBEVD computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrice...
Definition chbevd.f:215
chpev
subroutine chpev(jobz, uplo, n, ap, w, z, ldz, work, rwork, info)
CHPEV computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrices
Definition chpev.f:138
chpevd
subroutine chpevd(jobz, uplo, n, ap, w, z, ldz, work, lwork, rwork, lrwork, iwork, liwork, info)
CHPEVD computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrice...
Definition chpevd.f:200
cpteqr
subroutine cpteqr(compz, n, d, e, z, ldz, work, info)
CPTEQR
Definition cpteqr.f:145
cerrst
subroutine cerrst(path, nunit)
CERRST
Definition cerrst.f:61