LAPACK  3.10.1
LAPACK: Linear Algebra PACKage

◆ cerrst()

subroutine cerrst ( character*3  PATH,
integer  NUNIT 
)

CERRST

Purpose:
 CERRST tests the error exits for CHETRD, CUNGTR, CUNMTR, CHPTRD,
 CUNGTR, CUPMTR, CSTEQR, CSTEIN, CPTEQR, CHBTRD,
 CHEEV, CHEEVX, CHEEVD, CHBEV, CHBEVX, CHBEVD,
 CHPEV, CHPEVX, CHPEVD, and CSTEDC.
 CHEEVD_2STAGE, CHEEVR_2STAGE, CHEEVX_2STAGE,
 CHEEV_2STAGE, CHBEV_2STAGE, CHBEVD_2STAGE,
 CHBEVX_2STAGE, CHETRD_2STAGE, CHETRD_HE2HB,
 CHETRD_HB2ST
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 60 of file cerrst.f.

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 *
chkxer
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3196
lsamen
logical function lsamen(N, CA, CB)
LSAMEN
Definition: lsamen.f:74
chetrd_he2hb
subroutine chetrd_he2hb(UPLO, N, KD, A, LDA, AB, LDAB, TAU, WORK, LWORK, INFO)
CHETRD_HE2HB
Definition: chetrd_he2hb.f:243
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
subroutine chetrd(UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO)
CHETRD
Definition: chetrd.f:192
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
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
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
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
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
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
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
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
cupgtr
subroutine cupgtr(UPLO, N, AP, TAU, Q, LDQ, WORK, INFO)
CUPGTR
Definition: cupgtr.f:114
chptrd
subroutine chptrd(UPLO, N, AP, D, E, TAU, INFO)
CHPTRD
Definition: chptrd.f:151
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
chbtrd
subroutine chbtrd(VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, WORK, INFO)
CHBTRD
Definition: chbtrd.f:163
cupmtr
subroutine cupmtr(SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, INFO)
CUPMTR
Definition: cupmtr.f:150
csteqr
subroutine csteqr(COMPZ, N, D, E, Z, LDZ, WORK, INFO)
CSTEQR
Definition: csteqr.f:132
cstedc
subroutine cstedc(COMPZ, N, D, E, Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO)
CSTEDC
Definition: cstedc.f:212
cungtr
subroutine cungtr(UPLO, N, A, LDA, TAU, WORK, LWORK, INFO)
CUNGTR
Definition: cungtr.f:123
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
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
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
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
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
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
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
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
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
Here is the call graph for this function:
Here is the caller graph for this function: