LAPACK  3.10.1
LAPACK: Linear Algebra PACKage
serrst.f
Go to the documentation of this file.
1 *> \brief \b SERRST
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 SERRST( 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 *> SERRST tests the error exits for SSYTRD, SORGTR, SORMTR, SSPTRD,
25 *> SOPGTR, SOPMTR, SSTEQR, SSTERF, SSTEBZ, SSTEIN, SPTEQR, SSBTRD,
26 *> SSYEV, SSYEVX, SSYEVD, SSBEV, SSBEVX, SSBEVD,
27 *> SSPEV, SSPEVX, SSPEVD, SSTEV, SSTEVX, SSTEVD, and SSTEDC.
28 *> SSYEVD_2STAGE, SSYEVR_2STAGE, SSYEVX_2STAGE,
29 *> SSYEV_2STAGE, SSBEV_2STAGE, SSBEVD_2STAGE,
30 *> SSBEVX_2STAGE, SSYTRD_2STAGE, SSYTRD_SY2SB,
31 *> SSYTRD_SB2ST
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 single_eig
58 *
59 * =====================================================================
60  SUBROUTINE serrst( 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 * NMAX has to be at least 3 or LIW may be too small
74 * .. Parameters ..
75  INTEGER NMAX, LIW, LW
76  parameter( nmax = 3, liw = 12*nmax, lw = 20*nmax )
77 * ..
78 * .. Local Scalars ..
79  CHARACTER*2 C2
80  INTEGER I, INFO, J, M, N, NSPLIT, NT
81 * ..
82 * .. Local Arrays ..
83  INTEGER I1( NMAX ), I2( NMAX ), I3( NMAX ), IW( LIW )
84  REAL A( NMAX, NMAX ), C( NMAX, NMAX ), D( NMAX ),
85  $ E( NMAX ), Q( NMAX, NMAX ), R( NMAX ),
86  $ TAU( NMAX ), W( LW ), X( NMAX ),
87  $ Z( NMAX, NMAX )
88 * ..
89 * .. External Functions ..
90  LOGICAL LSAMEN
91  EXTERNAL lsamen
92 * ..
93 * .. External Subroutines ..
94  EXTERNAL chkxer, sopgtr, sopmtr, sorgtr, sormtr, spteqr,
95  $ ssbev, ssbevd, ssbevx, ssbtrd, sspev, sspevd,
96  $ sspevx, ssptrd, sstebz, sstedc, sstein, ssteqr,
97  $ ssterf, sstev, sstevd, sstevr, sstevx, ssyev,
98  $ ssyevd, ssyevr, ssyevx, ssytrd,
99  $ ssyevd_2stage, ssyevr_2stage, ssyevx_2stage,
100  $ ssyev_2stage, ssbev_2stage, ssbevd_2stage,
101  $ ssbevx_2stage, ssytrd_2stage, ssytrd_sy2sb,
102  $ ssytrd_sb2st
103 * ..
104 * .. Scalars in Common ..
105  LOGICAL LERR, OK
106  CHARACTER*32 SRNAMT
107  INTEGER INFOT, NOUT
108 * ..
109 * .. Common blocks ..
110  COMMON / infoc / infot, nout, ok, lerr
111  COMMON / srnamc / srnamt
112 * ..
113 * .. Intrinsic Functions ..
114  INTRINSIC real
115 * ..
116 * .. Executable Statements ..
117 *
118  nout = nunit
119  WRITE( nout, fmt = * )
120  c2 = path( 2: 3 )
121 *
122 * Set the variables to innocuous values.
123 *
124  DO 20 j = 1, nmax
125  DO 10 i = 1, nmax
126  a( i, j ) = 1. / real( i+j )
127  10 CONTINUE
128  20 CONTINUE
129  DO 30 j = 1, nmax
130  d( j ) = real( j )
131  e( j ) = 0.0
132  i1( j ) = j
133  i2( j ) = j
134  tau( j ) = 1.
135  30 CONTINUE
136  ok = .true.
137  nt = 0
138 *
139 * Test error exits for the ST path.
140 *
141  IF( lsamen( 2, c2, 'ST' ) ) THEN
142 *
143 * SSYTRD
144 *
145  srnamt = 'SSYTRD'
146  infot = 1
147  CALL ssytrd( '/', 0, a, 1, d, e, tau, w, 1, info )
148  CALL chkxer( 'SSYTRD', infot, nout, lerr, ok )
149  infot = 2
150  CALL ssytrd( 'U', -1, a, 1, d, e, tau, w, 1, info )
151  CALL chkxer( 'SSYTRD', infot, nout, lerr, ok )
152  infot = 4
153  CALL ssytrd( 'U', 2, a, 1, d, e, tau, w, 1, info )
154  CALL chkxer( 'SSYTRD', infot, nout, lerr, ok )
155  infot = 9
156  CALL ssytrd( 'U', 0, a, 1, d, e, tau, w, 0, info )
157  CALL chkxer( 'SSYTRD', infot, nout, lerr, ok )
158  nt = nt + 4
159 *
160 * SSYTRD_2STAGE
161 *
162  srnamt = 'SSYTRD_2STAGE'
163  infot = 1
164  CALL ssytrd_2stage( '/', 'U', 0, a, 1, d, e, tau,
165  $ c, 1, w, 1, info )
166  CALL chkxer( 'SSYTRD_2STAGE', infot, nout, lerr, ok )
167  infot = 1
168  CALL ssytrd_2stage( 'H', 'U', 0, a, 1, d, e, tau,
169  $ c, 1, w, 1, info )
170  CALL chkxer( 'SSYTRD_2STAGE', infot, nout, lerr, ok )
171  infot = 2
172  CALL ssytrd_2stage( 'N', '/', 0, a, 1, d, e, tau,
173  $ c, 1, w, 1, info )
174  CALL chkxer( 'SSYTRD_2STAGE', infot, nout, lerr, ok )
175  infot = 3
176  CALL ssytrd_2stage( 'N', 'U', -1, a, 1, d, e, tau,
177  $ c, 1, w, 1, info )
178  CALL chkxer( 'SSYTRD_2STAGE', infot, nout, lerr, ok )
179  infot = 5
180  CALL ssytrd_2stage( 'N', 'U', 2, a, 1, d, e, tau,
181  $ c, 1, w, 1, info )
182  CALL chkxer( 'SSYTRD_2STAGE', infot, nout, lerr, ok )
183  infot = 10
184  CALL ssytrd_2stage( 'N', 'U', 0, a, 1, d, e, tau,
185  $ c, 0, w, 1, info )
186  CALL chkxer( 'SSYTRD_2STAGE', infot, nout, lerr, ok )
187  infot = 12
188  CALL ssytrd_2stage( 'N', 'U', 0, a, 1, d, e, tau,
189  $ c, 1, w, 0, info )
190  CALL chkxer( 'SSYTRD_2STAGE', infot, nout, lerr, ok )
191  nt = nt + 7
192 *
193 * SSYTRD_SY2SB
194 *
195  srnamt = 'SSYTRD_SY2SB'
196  infot = 1
197  CALL ssytrd_sy2sb( '/', 0, 0, a, 1, c, 1, tau, w, 1, info )
198  CALL chkxer( 'SSYTRD_SY2SB', infot, nout, lerr, ok )
199  infot = 2
200  CALL ssytrd_sy2sb( 'U', -1, 0, a, 1, c, 1, tau, w, 1, info )
201  CALL chkxer( 'SSYTRD_SY2SB', infot, nout, lerr, ok )
202  infot = 3
203  CALL ssytrd_sy2sb( 'U', 0, -1, a, 1, c, 1, tau, w, 1, info )
204  CALL chkxer( 'SSYTRD_SY2SB', infot, nout, lerr, ok )
205  infot = 5
206  CALL ssytrd_sy2sb( 'U', 2, 0, a, 1, c, 1, tau, w, 1, info )
207  CALL chkxer( 'SSYTRD_SY2SB', infot, nout, lerr, ok )
208  infot = 7
209  CALL ssytrd_sy2sb( 'U', 0, 2, a, 1, c, 1, tau, w, 1, info )
210  CALL chkxer( 'SSYTRD_SY2SB', infot, nout, lerr, ok )
211  infot = 10
212  CALL ssytrd_sy2sb( 'U', 0, 0, a, 1, c, 1, tau, w, 0, info )
213  CALL chkxer( 'SSYTRD_SY2SB', infot, nout, lerr, ok )
214  nt = nt + 6
215 *
216 * SSYTRD_SB2ST
217 *
218  srnamt = 'SSYTRD_SB2ST'
219  infot = 1
220  CALL ssytrd_sb2st( '/', 'N', 'U', 0, 0, a, 1, d, e,
221  $ c, 1, w, 1, info )
222  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
223  infot = 2
224  CALL ssytrd_sb2st( 'Y', '/', 'U', 0, 0, a, 1, d, e,
225  $ c, 1, w, 1, info )
226  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
227  infot = 2
228  CALL ssytrd_sb2st( 'Y', 'H', 'U', 0, 0, a, 1, d, e,
229  $ c, 1, w, 1, info )
230  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
231  infot = 3
232  CALL ssytrd_sb2st( 'Y', 'N', '/', 0, 0, a, 1, d, e,
233  $ c, 1, w, 1, info )
234  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
235  infot = 4
236  CALL ssytrd_sb2st( 'Y', 'N', 'U', -1, 0, a, 1, d, e,
237  $ c, 1, w, 1, info )
238  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
239  infot = 5
240  CALL ssytrd_sb2st( 'Y', 'N', 'U', 0, -1, a, 1, d, e,
241  $ c, 1, w, 1, info )
242  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
243  infot = 7
244  CALL ssytrd_sb2st( 'Y', 'N', 'U', 0, 1, a, 1, d, e,
245  $ c, 1, w, 1, info )
246  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
247  infot = 11
248  CALL ssytrd_sb2st( 'Y', 'N', 'U', 0, 0, a, 1, d, e,
249  $ c, 0, w, 1, info )
250  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
251  infot = 13
252  CALL ssytrd_sb2st( 'Y', 'N', 'U', 0, 0, a, 1, d, e,
253  $ c, 1, w, 0, info )
254  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
255  nt = nt + 9
256 *
257 * SORGTR
258 *
259  srnamt = 'SORGTR'
260  infot = 1
261  CALL sorgtr( '/', 0, a, 1, tau, w, 1, info )
262  CALL chkxer( 'SORGTR', infot, nout, lerr, ok )
263  infot = 2
264  CALL sorgtr( 'U', -1, a, 1, tau, w, 1, info )
265  CALL chkxer( 'SORGTR', infot, nout, lerr, ok )
266  infot = 4
267  CALL sorgtr( 'U', 2, a, 1, tau, w, 1, info )
268  CALL chkxer( 'SORGTR', infot, nout, lerr, ok )
269  infot = 7
270  CALL sorgtr( 'U', 3, a, 3, tau, w, 1, info )
271  CALL chkxer( 'SORGTR', infot, nout, lerr, ok )
272  nt = nt + 4
273 *
274 * SORMTR
275 *
276  srnamt = 'SORMTR'
277  infot = 1
278  CALL sormtr( '/', 'U', 'N', 0, 0, a, 1, tau, c, 1, w, 1, info )
279  CALL chkxer( 'SORMTR', infot, nout, lerr, ok )
280  infot = 2
281  CALL sormtr( 'L', '/', 'N', 0, 0, a, 1, tau, c, 1, w, 1, info )
282  CALL chkxer( 'SORMTR', infot, nout, lerr, ok )
283  infot = 3
284  CALL sormtr( 'L', 'U', '/', 0, 0, a, 1, tau, c, 1, w, 1, info )
285  CALL chkxer( 'SORMTR', infot, nout, lerr, ok )
286  infot = 4
287  CALL sormtr( 'L', 'U', 'N', -1, 0, a, 1, tau, c, 1, w, 1,
288  $ info )
289  CALL chkxer( 'SORMTR', infot, nout, lerr, ok )
290  infot = 5
291  CALL sormtr( 'L', 'U', 'N', 0, -1, a, 1, tau, c, 1, w, 1,
292  $ info )
293  CALL chkxer( 'SORMTR', infot, nout, lerr, ok )
294  infot = 7
295  CALL sormtr( 'L', 'U', 'N', 2, 0, a, 1, tau, c, 2, w, 1, info )
296  CALL chkxer( 'SORMTR', infot, nout, lerr, ok )
297  infot = 7
298  CALL sormtr( 'R', 'U', 'N', 0, 2, a, 1, tau, c, 1, w, 1, info )
299  CALL chkxer( 'SORMTR', infot, nout, lerr, ok )
300  infot = 10
301  CALL sormtr( 'L', 'U', 'N', 2, 0, a, 2, tau, c, 1, w, 1, info )
302  CALL chkxer( 'SORMTR', infot, nout, lerr, ok )
303  infot = 12
304  CALL sormtr( 'L', 'U', 'N', 0, 2, a, 1, tau, c, 1, w, 1, info )
305  CALL chkxer( 'SORMTR', infot, nout, lerr, ok )
306  infot = 12
307  CALL sormtr( 'R', 'U', 'N', 2, 0, a, 1, tau, c, 2, w, 1, info )
308  CALL chkxer( 'SORMTR', infot, nout, lerr, ok )
309  nt = nt + 10
310 *
311 * SSPTRD
312 *
313  srnamt = 'SSPTRD'
314  infot = 1
315  CALL ssptrd( '/', 0, a, d, e, tau, info )
316  CALL chkxer( 'SSPTRD', infot, nout, lerr, ok )
317  infot = 2
318  CALL ssptrd( 'U', -1, a, d, e, tau, info )
319  CALL chkxer( 'SSPTRD', infot, nout, lerr, ok )
320  nt = nt + 2
321 *
322 * SOPGTR
323 *
324  srnamt = 'SOPGTR'
325  infot = 1
326  CALL sopgtr( '/', 0, a, tau, z, 1, w, info )
327  CALL chkxer( 'SOPGTR', infot, nout, lerr, ok )
328  infot = 2
329  CALL sopgtr( 'U', -1, a, tau, z, 1, w, info )
330  CALL chkxer( 'SOPGTR', infot, nout, lerr, ok )
331  infot = 6
332  CALL sopgtr( 'U', 2, a, tau, z, 1, w, info )
333  CALL chkxer( 'SOPGTR', infot, nout, lerr, ok )
334  nt = nt + 3
335 *
336 * SOPMTR
337 *
338  srnamt = 'SOPMTR'
339  infot = 1
340  CALL sopmtr( '/', 'U', 'N', 0, 0, a, tau, c, 1, w, info )
341  CALL chkxer( 'SOPMTR', infot, nout, lerr, ok )
342  infot = 2
343  CALL sopmtr( 'L', '/', 'N', 0, 0, a, tau, c, 1, w, info )
344  CALL chkxer( 'SOPMTR', infot, nout, lerr, ok )
345  infot = 3
346  CALL sopmtr( 'L', 'U', '/', 0, 0, a, tau, c, 1, w, info )
347  CALL chkxer( 'SOPMTR', infot, nout, lerr, ok )
348  infot = 4
349  CALL sopmtr( 'L', 'U', 'N', -1, 0, a, tau, c, 1, w, info )
350  CALL chkxer( 'SOPMTR', infot, nout, lerr, ok )
351  infot = 5
352  CALL sopmtr( 'L', 'U', 'N', 0, -1, a, tau, c, 1, w, info )
353  CALL chkxer( 'SOPMTR', infot, nout, lerr, ok )
354  infot = 9
355  CALL sopmtr( 'L', 'U', 'N', 2, 0, a, tau, c, 1, w, info )
356  CALL chkxer( 'SOPMTR', infot, nout, lerr, ok )
357  nt = nt + 6
358 *
359 * SPTEQR
360 *
361  srnamt = 'SPTEQR'
362  infot = 1
363  CALL spteqr( '/', 0, d, e, z, 1, w, info )
364  CALL chkxer( 'SPTEQR', infot, nout, lerr, ok )
365  infot = 2
366  CALL spteqr( 'N', -1, d, e, z, 1, w, info )
367  CALL chkxer( 'SPTEQR', infot, nout, lerr, ok )
368  infot = 6
369  CALL spteqr( 'V', 2, d, e, z, 1, w, info )
370  CALL chkxer( 'SPTEQR', infot, nout, lerr, ok )
371  nt = nt + 3
372 *
373 * SSTEBZ
374 *
375  srnamt = 'SSTEBZ'
376  infot = 1
377  CALL sstebz( '/', 'E', 0, 0.0, 1.0, 1, 0, 0.0, d, e, m, nsplit,
378  $ x, i1, i2, w, iw, info )
379  CALL chkxer( 'SSTEBZ', infot, nout, lerr, ok )
380  infot = 2
381  CALL sstebz( 'A', '/', 0, 0.0, 0.0, 0, 0, 0.0, d, e, m, nsplit,
382  $ x, i1, i2, w, iw, info )
383  CALL chkxer( 'SSTEBZ', infot, nout, lerr, ok )
384  infot = 3
385  CALL sstebz( 'A', 'E', -1, 0.0, 0.0, 0, 0, 0.0, d, e, m,
386  $ nsplit, x, i1, i2, w, iw, info )
387  CALL chkxer( 'SSTEBZ', infot, nout, lerr, ok )
388  infot = 5
389  CALL sstebz( 'V', 'E', 0, 0.0, 0.0, 0, 0, 0.0, d, e, m, nsplit,
390  $ x, i1, i2, w, iw, info )
391  CALL chkxer( 'SSTEBZ', infot, nout, lerr, ok )
392  infot = 6
393  CALL sstebz( 'I', 'E', 0, 0.0, 0.0, 0, 0, 0.0, d, e, m, nsplit,
394  $ x, i1, i2, w, iw, info )
395  CALL chkxer( 'SSTEBZ', infot, nout, lerr, ok )
396  infot = 6
397  CALL sstebz( 'I', 'E', 1, 0.0, 0.0, 2, 1, 0.0, d, e, m, nsplit,
398  $ x, i1, i2, w, iw, info )
399  CALL chkxer( 'SSTEBZ', infot, nout, lerr, ok )
400  infot = 7
401  CALL sstebz( 'I', 'E', 1, 0.0, 0.0, 1, 0, 0.0, d, e, m, nsplit,
402  $ x, i1, i2, w, iw, info )
403  CALL chkxer( 'SSTEBZ', infot, nout, lerr, ok )
404  infot = 7
405  CALL sstebz( 'I', 'E', 1, 0.0, 0.0, 1, 2, 0.0, d, e, m, nsplit,
406  $ x, i1, i2, w, iw, info )
407  CALL chkxer( 'SSTEBZ', infot, nout, lerr, ok )
408  nt = nt + 8
409 *
410 * SSTEIN
411 *
412  srnamt = 'SSTEIN'
413  infot = 1
414  CALL sstein( -1, d, e, 0, x, i1, i2, z, 1, w, iw, i3, info )
415  CALL chkxer( 'SSTEIN', infot, nout, lerr, ok )
416  infot = 4
417  CALL sstein( 0, d, e, -1, x, i1, i2, z, 1, w, iw, i3, info )
418  CALL chkxer( 'SSTEIN', infot, nout, lerr, ok )
419  infot = 4
420  CALL sstein( 0, d, e, 1, x, i1, i2, z, 1, w, iw, i3, info )
421  CALL chkxer( 'SSTEIN', infot, nout, lerr, ok )
422  infot = 9
423  CALL sstein( 2, d, e, 0, x, i1, i2, z, 1, w, iw, i3, info )
424  CALL chkxer( 'SSTEIN', infot, nout, lerr, ok )
425  nt = nt + 4
426 *
427 * SSTEQR
428 *
429  srnamt = 'SSTEQR'
430  infot = 1
431  CALL ssteqr( '/', 0, d, e, z, 1, w, info )
432  CALL chkxer( 'SSTEQR', infot, nout, lerr, ok )
433  infot = 2
434  CALL ssteqr( 'N', -1, d, e, z, 1, w, info )
435  CALL chkxer( 'SSTEQR', infot, nout, lerr, ok )
436  infot = 6
437  CALL ssteqr( 'V', 2, d, e, z, 1, w, info )
438  CALL chkxer( 'SSTEQR', infot, nout, lerr, ok )
439  nt = nt + 3
440 *
441 * SSTERF
442 *
443  srnamt = 'SSTERF'
444  infot = 1
445  CALL ssterf( -1, d, e, info )
446  CALL chkxer( 'SSTERF', infot, nout, lerr, ok )
447  nt = nt + 1
448 *
449 * SSTEDC
450 *
451  srnamt = 'SSTEDC'
452  infot = 1
453  CALL sstedc( '/', 0, d, e, z, 1, w, 1, iw, 1, info )
454  CALL chkxer( 'SSTEDC', infot, nout, lerr, ok )
455  infot = 2
456  CALL sstedc( 'N', -1, d, e, z, 1, w, 1, iw, 1, info )
457  CALL chkxer( 'SSTEDC', infot, nout, lerr, ok )
458  infot = 6
459  CALL sstedc( 'V', 2, d, e, z, 1, w, 23, iw, 28, info )
460  CALL chkxer( 'SSTEDC', infot, nout, lerr, ok )
461  infot = 8
462  CALL sstedc( 'N', 1, d, e, z, 1, w, 0, iw, 1, info )
463  CALL chkxer( 'SSTEDC', infot, nout, lerr, ok )
464  infot = 8
465  CALL sstedc( 'I', 2, d, e, z, 2, w, 0, iw, 12, info )
466  CALL chkxer( 'SSTEDC', infot, nout, lerr, ok )
467  infot = 8
468  CALL sstedc( 'V', 2, d, e, z, 2, w, 0, iw, 28, info )
469  CALL chkxer( 'SSTEDC', infot, nout, lerr, ok )
470  infot = 10
471  CALL sstedc( 'N', 1, d, e, z, 1, w, 1, iw, 0, info )
472  CALL chkxer( 'SSTEDC', infot, nout, lerr, ok )
473  infot = 10
474  CALL sstedc( 'I', 2, d, e, z, 2, w, 19, iw, 0, info )
475  CALL chkxer( 'SSTEDC', infot, nout, lerr, ok )
476  infot = 10
477  CALL sstedc( 'V', 2, d, e, z, 2, w, 23, iw, 0, info )
478  CALL chkxer( 'SSTEDC', infot, nout, lerr, ok )
479  nt = nt + 9
480 *
481 * SSTEVD
482 *
483  srnamt = 'SSTEVD'
484  infot = 1
485  CALL sstevd( '/', 0, d, e, z, 1, w, 1, iw, 1, info )
486  CALL chkxer( 'SSTEVD', infot, nout, lerr, ok )
487  infot = 2
488  CALL sstevd( 'N', -1, d, e, z, 1, w, 1, iw, 1, info )
489  CALL chkxer( 'SSTEVD', infot, nout, lerr, ok )
490  infot = 6
491  CALL sstevd( 'V', 2, d, e, z, 1, w, 19, iw, 12, info )
492  CALL chkxer( 'SSTEVD', infot, nout, lerr, ok )
493  infot = 8
494  CALL sstevd( 'N', 1, d, e, z, 1, w, 0, iw, 1, info )
495  CALL chkxer( 'SSTEVD', infot, nout, lerr, ok )
496  infot = 8
497  CALL sstevd( 'V', 2, d, e, z, 2, w, 12, iw, 12, info )
498  CALL chkxer( 'SSTEVD', infot, nout, lerr, ok )
499  infot = 10
500  CALL sstevd( 'N', 0, d, e, z, 1, w, 1, iw, 0, info )
501  CALL chkxer( 'SSTEVD', infot, nout, lerr, ok )
502  infot = 10
503  CALL sstevd( 'V', 2, d, e, z, 2, w, 19, iw, 11, info )
504  CALL chkxer( 'SSTEVD', infot, nout, lerr, ok )
505  nt = nt + 7
506 *
507 * SSTEV
508 *
509  srnamt = 'SSTEV '
510  infot = 1
511  CALL sstev( '/', 0, d, e, z, 1, w, info )
512  CALL chkxer( 'SSTEV ', infot, nout, lerr, ok )
513  infot = 2
514  CALL sstev( 'N', -1, d, e, z, 1, w, info )
515  CALL chkxer( 'SSTEV ', infot, nout, lerr, ok )
516  infot = 6
517  CALL sstev( 'V', 2, d, e, z, 1, w, info )
518  CALL chkxer( 'SSTEV ', infot, nout, lerr, ok )
519  nt = nt + 3
520 *
521 * SSTEVX
522 *
523  srnamt = 'SSTEVX'
524  infot = 1
525  CALL sstevx( '/', 'A', 0, d, e, 0.0, 0.0, 0, 0, 0.0, m, x, z,
526  $ 1, w, iw, i3, info )
527  CALL chkxer( 'SSTEVX', infot, nout, lerr, ok )
528  infot = 2
529  CALL sstevx( 'N', '/', 0, d, e, 0.0, 1.0, 1, 0, 0.0, m, x, z,
530  $ 1, w, iw, i3, info )
531  CALL chkxer( 'SSTEVX', infot, nout, lerr, ok )
532  infot = 3
533  CALL sstevx( 'N', 'A', -1, d, e, 0.0, 0.0, 0, 0, 0.0, m, x, z,
534  $ 1, w, iw, i3, info )
535  CALL chkxer( 'SSTEVX', infot, nout, lerr, ok )
536  infot = 7
537  CALL sstevx( 'N', 'V', 1, d, e, 0.0, 0.0, 0, 0, 0.0, m, x, z,
538  $ 1, w, iw, i3, info )
539  CALL chkxer( 'SSTEVX', infot, nout, lerr, ok )
540  infot = 8
541  CALL sstevx( 'N', 'I', 1, d, e, 0.0, 0.0, 0, 0, 0.0, m, x, z,
542  $ 1, w, iw, i3, info )
543  CALL chkxer( 'SSTEVX', infot, nout, lerr, ok )
544  infot = 8
545  CALL sstevx( 'N', 'I', 1, d, e, 0.0, 0.0, 2, 1, 0.0, m, x, z,
546  $ 1, w, iw, i3, info )
547  CALL chkxer( 'SSTEVX', infot, nout, lerr, ok )
548  infot = 9
549  CALL sstevx( 'N', 'I', 2, d, e, 0.0, 0.0, 2, 1, 0.0, m, x, z,
550  $ 1, w, iw, i3, info )
551  CALL chkxer( 'SSTEVX', infot, nout, lerr, ok )
552  infot = 9
553  CALL sstevx( 'N', 'I', 1, d, e, 0.0, 0.0, 1, 2, 0.0, m, x, z,
554  $ 1, w, iw, i3, info )
555  CALL chkxer( 'SSTEVX', infot, nout, lerr, ok )
556  infot = 14
557  CALL sstevx( 'V', 'A', 2, d, e, 0.0, 0.0, 0, 0, 0.0, m, x, z,
558  $ 1, w, iw, i3, info )
559  CALL chkxer( 'SSTEVX', infot, nout, lerr, ok )
560  nt = nt + 9
561 *
562 * SSTEVR
563 *
564  n = 1
565  srnamt = 'SSTEVR'
566  infot = 1
567  CALL sstevr( '/', 'A', 0, d, e, 0.0, 0.0, 1, 1, 0.0, m, r, z,
568  $ 1, iw, x, 20*n, iw( 2*n+1 ), 10*n, info )
569  CALL chkxer( 'SSTEVR', infot, nout, lerr, ok )
570  infot = 2
571  CALL sstevr( 'V', '/', 0, d, e, 0.0, 0.0, 1, 1, 0.0, m, r, z,
572  $ 1, iw, x, 20*n, iw( 2*n+1 ), 10*n, info )
573  CALL chkxer( 'SSTEVR', infot, nout, lerr, ok )
574  infot = 3
575  CALL sstevr( 'V', 'A', -1, d, e, 0.0, 0.0, 1, 1, 0.0, m, r, z,
576  $ 1, iw, x, 20*n, iw( 2*n+1 ), 10*n, info )
577  CALL chkxer( 'SSTEVR', infot, nout, lerr, ok )
578  infot = 7
579  CALL sstevr( 'V', 'V', 1, d, e, 0.0, 0.0, 1, 1, 0.0, m, r, z,
580  $ 1, iw, x, 20*n, iw( 2*n+1 ), 10*n, info )
581  CALL chkxer( 'SSTEVR', infot, nout, lerr, ok )
582  infot = 8
583  CALL sstevr( 'V', 'I', 1, d, e, 0.0, 0.0, 0, 1, 0.0, m, w, z,
584  $ 1, iw, x, 20*n, iw( 2*n+1 ), 10*n, info )
585  CALL chkxer( 'SSTEVR', infot, nout, lerr, ok )
586  infot = 9
587  n = 2
588  CALL sstevr( 'V', 'I', 2, d, e, 0.0, 0.0, 2, 1, 0.0, m, w, z,
589  $ 1, iw, x, 20*n, iw( 2*n+1 ), 10*n, info )
590  CALL chkxer( 'SSTEVR', infot, nout, lerr, ok )
591  infot = 14
592  n = 1
593  CALL sstevr( 'V', 'I', 1, d, e, 0.0, 0.0, 1, 1, 0.0, m, w, z,
594  $ 0, iw, x, 20*n, iw( 2*n+1 ), 10*n, info )
595  CALL chkxer( 'SSTEVR', infot, nout, lerr, ok )
596  infot = 17
597  CALL sstevr( 'V', 'I', 1, d, e, 0.0, 0.0, 1, 1, 0.0, m, w, z,
598  $ 1, iw, x, 20*n-1, iw( 2*n+1 ), 10*n, info )
599  CALL chkxer( 'SSTEVR', infot, nout, lerr, ok )
600  infot = 19
601  CALL sstevr( 'V', 'I', 1, d, e, 0.0, 0.0, 1, 1, 0.0, m, w, z,
602  $ 1, iw, x, 20*n, iw( 2*n+1 ), 10*n-1, info )
603  CALL chkxer( 'SSTEVR', infot, nout, lerr, ok )
604  nt = nt + 9
605 *
606 * SSYEVD
607 *
608  srnamt = 'SSYEVD'
609  infot = 1
610  CALL ssyevd( '/', 'U', 0, a, 1, x, w, 1, iw, 1, info )
611  CALL chkxer( 'SSYEVD', infot, nout, lerr, ok )
612  infot = 2
613  CALL ssyevd( 'N', '/', 0, a, 1, x, w, 1, iw, 1, info )
614  CALL chkxer( 'SSYEVD', infot, nout, lerr, ok )
615  infot = 3
616  CALL ssyevd( 'N', 'U', -1, a, 1, x, w, 1, iw, 1, info )
617  CALL chkxer( 'SSYEVD', infot, nout, lerr, ok )
618  infot = 5
619  CALL ssyevd( 'N', 'U', 2, a, 1, x, w, 3, iw, 1, info )
620  CALL chkxer( 'SSYEVD', infot, nout, lerr, ok )
621  infot = 8
622  CALL ssyevd( 'N', 'U', 1, a, 1, x, w, 0, iw, 1, info )
623  CALL chkxer( 'SSYEVD', infot, nout, lerr, ok )
624  infot = 8
625  CALL ssyevd( 'N', 'U', 2, a, 2, x, w, 4, iw, 1, info )
626  CALL chkxer( 'SSYEVD', infot, nout, lerr, ok )
627  infot = 8
628  CALL ssyevd( 'V', 'U', 2, a, 2, x, w, 20, iw, 12, info )
629  CALL chkxer( 'SSYEVD', infot, nout, lerr, ok )
630  infot = 10
631  CALL ssyevd( 'N', 'U', 1, a, 1, x, w, 1, iw, 0, info )
632  CALL chkxer( 'SSYEVD', infot, nout, lerr, ok )
633  infot = 10
634  CALL ssyevd( 'N', 'U', 2, a, 2, x, w, 5, iw, 0, info )
635  CALL chkxer( 'SSYEVD', infot, nout, lerr, ok )
636  infot = 10
637  CALL ssyevd( 'V', 'U', 2, a, 2, x, w, 27, iw, 11, info )
638  CALL chkxer( 'SSYEVD', infot, nout, lerr, ok )
639  nt = nt + 10
640 *
641 * SSYEVD_2STAGE
642 *
643  srnamt = 'SSYEVD_2STAGE'
644  infot = 1
645  CALL ssyevd_2stage( '/', 'U', 0, a, 1, x, w, 1, iw, 1, info )
646  CALL chkxer( 'SSYEVD_2STAGE', infot, nout, lerr, ok )
647  infot = 1
648  CALL ssyevd_2stage( 'V', 'U', 0, a, 1, x, w, 1, iw, 1, info )
649  CALL chkxer( 'SSYEVD_2STAGE', infot, nout, lerr, ok )
650  infot = 2
651  CALL ssyevd_2stage( 'N', '/', 0, a, 1, x, w, 1, iw, 1, info )
652  CALL chkxer( 'SSYEVD_2STAGE', infot, nout, lerr, ok )
653  infot = 3
654  CALL ssyevd_2stage( 'N', 'U', -1, a, 1, x, w, 1, iw, 1, info )
655  CALL chkxer( 'SSYEVD_2STAGE', infot, nout, lerr, ok )
656  infot = 5
657  CALL ssyevd_2stage( 'N', 'U', 2, a, 1, x, w, 3, iw, 1, info )
658  CALL chkxer( 'SSYEVD_2STAGE', infot, nout, lerr, ok )
659  infot = 8
660  CALL ssyevd_2stage( 'N', 'U', 1, a, 1, x, w, 0, iw, 1, info )
661  CALL chkxer( 'SSYEVD_2STAGE', infot, nout, lerr, ok )
662  infot = 8
663  CALL ssyevd_2stage( 'N', 'U', 2, a, 2, x, w, 4, iw, 1, info )
664  CALL chkxer( 'SSYEVD_2STAGE', infot, nout, lerr, ok )
665 * INFOT = 8
666 * CALL SSYEVD_2STAGE( 'V', 'U', 2, A, 2, X, W, 20, IW, 12, INFO )
667 * CALL CHKXER( 'SSYEVD_2STAGE', INFOT, NOUT, LERR, OK )
668  infot = 10
669  CALL ssyevd_2stage( 'N', 'U', 1, a, 1, x, w, 1, iw, 0, info )
670  CALL chkxer( 'SSYEVD_2STAGE', infot, nout, lerr, ok )
671  infot = 10
672  CALL ssyevd_2stage( 'N', 'U', 2, a, 2, x, w, 25, iw, 0, info )
673  CALL chkxer( 'SSYEVD_2STAGE', infot, nout, lerr, ok )
674 * INFOT = 10
675 * CALL SSYEVD_2STAGE( 'V', 'U', 2, A, 2, X, W, 27, IW, 11, INFO )
676 * CALL CHKXER( 'SSYEVD_2STAGE', INFOT, NOUT, LERR, OK )
677  nt = nt + 9
678 *
679 * SSYEVR
680 *
681  srnamt = 'SSYEVR'
682  n = 1
683  infot = 1
684  CALL ssyevr( '/', 'A', 'U', 0, a, 1, 0.0, 0.0, 1, 1, 0.0, m, r,
685  $ z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
686  CALL chkxer( 'SSYEVR', infot, nout, lerr, ok )
687  infot = 2
688  CALL ssyevr( 'V', '/', 'U', 0, a, 1, 0.0, 0.0, 1, 1, 0.0, m, r,
689  $ z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
690  CALL chkxer( 'SSYEVR', infot, nout, lerr, ok )
691  infot = 3
692  CALL ssyevr( 'V', 'A', '/', -1, a, 1, 0.0, 0.0, 1, 1, 0.0, m,
693  $ r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
694  CALL chkxer( 'SSYEVR', infot, nout, lerr, ok )
695  infot = 4
696  CALL ssyevr( 'V', 'A', 'U', -1, a, 1, 0.0, 0.0, 1, 1, 0.0, m,
697  $ r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
698  CALL chkxer( 'SSYEVR', infot, nout, lerr, ok )
699  infot = 6
700  CALL ssyevr( 'V', 'A', 'U', 2, a, 1, 0.0, 0.0, 1, 1, 0.0, m, r,
701  $ z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
702  CALL chkxer( 'SSYEVR', infot, nout, lerr, ok )
703  infot = 8
704  CALL ssyevr( 'V', 'V', 'U', 1, a, 1, 0.0e0, 0.0e0, 1, 1, 0.0,
705  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
706  CALL chkxer( 'SSYEVR', infot, nout, lerr, ok )
707  infot = 9
708  CALL ssyevr( 'V', 'I', 'U', 1, a, 1, 0.0e0, 0.0e0, 0, 1, 0.0,
709  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
710  CALL chkxer( 'SSYEVR', infot, nout, lerr, ok )
711  infot = 10
712 *
713  CALL ssyevr( 'V', 'I', 'U', 2, a, 2, 0.0e0, 0.0e0, 2, 1, 0.0,
714  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
715  CALL chkxer( 'SSYEVR', infot, nout, lerr, ok )
716  infot = 15
717  CALL ssyevr( 'V', 'I', 'U', 1, a, 1, 0.0e0, 0.0e0, 1, 1, 0.0,
718  $ m, r, z, 0, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
719  CALL chkxer( 'SSYEVR', infot, nout, lerr, ok )
720  infot = 18
721  CALL ssyevr( 'V', 'I', 'U', 1, a, 1, 0.0e0, 0.0e0, 1, 1, 0.0,
722  $ m, r, z, 1, iw, q, 26*n-1, iw( 2*n+1 ), 10*n,
723  $ info )
724  CALL chkxer( 'SSYEVR', infot, nout, lerr, ok )
725  infot = 20
726  CALL ssyevr( 'V', 'I', 'U', 1, a, 1, 0.0e0, 0.0e0, 1, 1, 0.0,
727  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n-1,
728  $ info )
729  CALL chkxer( 'SSYEVR', infot, nout, lerr, ok )
730  nt = nt + 11
731 *
732 * SSYEVR_2STAGE
733 *
734  srnamt = 'SSYEVR_2STAGE'
735  n = 1
736  infot = 1
737  CALL ssyevr_2stage( '/', 'A', 'U', 0, a, 1,
738  $ 0.0e0, 0.0e0, 1, 1, 0.0e0,
739  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
740  CALL chkxer( 'SSYEVR_2STAGE', infot, nout, lerr, ok )
741  infot = 1
742  CALL ssyevr_2stage( 'V', 'A', 'U', 0, a, 1,
743  $ 0.0e0, 0.0e0, 1, 1, 0.0e0,
744  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
745  CALL chkxer( 'SSYEVR_2STAGE', infot, nout, lerr, ok )
746  infot = 2
747  CALL ssyevr_2stage( 'N', '/', 'U', 0, a, 1,
748  $ 0.0e0, 0.0e0, 1, 1, 0.0e0,
749  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
750  CALL chkxer( 'SSYEVR_2STAGE', infot, nout, lerr, ok )
751  infot = 3
752  CALL ssyevr_2stage( 'N', 'A', '/', -1, a, 1,
753  $ 0.0e0, 0.0e0, 1, 1, 0.0e0,
754  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
755  CALL chkxer( 'SSYEVR_2STAGE', infot, nout, lerr, ok )
756  infot = 4
757  CALL ssyevr_2stage( 'N', 'A', 'U', -1, a, 1,
758  $ 0.0e0, 0.0e0, 1, 1, 0.0e0,
759  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
760  CALL chkxer( 'SSYEVR_2STAGE', infot, nout, lerr, ok )
761  infot = 6
762  CALL ssyevr_2stage( 'N', 'A', 'U', 2, a, 1,
763  $ 0.0e0, 0.0e0, 1, 1, 0.0e0,
764  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
765  CALL chkxer( 'SSYEVR_2STAGE', infot, nout, lerr, ok )
766  infot = 8
767  CALL ssyevr_2stage( 'N', 'V', 'U', 1, a, 1,
768  $ 0.0e0, 0.0e0, 1, 1, 0.0e0,
769  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
770  CALL chkxer( 'SSYEVR_2STAGE', infot, nout, lerr, ok )
771  infot = 9
772  CALL ssyevr_2stage( 'N', 'I', 'U', 1, a, 1,
773  $ 0.0e0, 0.0e0, 0, 1, 0.0e0,
774  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
775  CALL chkxer( 'SSYEVR_2STAGE', infot, nout, lerr, ok )
776  infot = 10
777  CALL ssyevr_2stage( 'N', 'I', 'U', 2, a, 2,
778  $ 0.0e0, 0.0e0, 2, 1, 0.0e0,
779  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
780  CALL chkxer( 'SSYEVR_2STAGE', infot, nout, lerr, ok )
781  infot = 15
782  CALL ssyevr_2stage( 'N', 'I', 'U', 1, a, 1,
783  $ 0.0e0, 0.0e0, 1, 1, 0.0e0,
784  $ m, r, z, 0, iw, q, 26*n, iw( 2*n+1 ), 10*n, info )
785  CALL chkxer( 'SSYEVR_2STAGE', infot, nout, lerr, ok )
786  infot = 18
787  CALL ssyevr_2stage( 'N', 'I', 'U', 1, a, 1,
788  $ 0.0e0, 0.0e0, 1, 1, 0.0e0,
789  $ m, r, z, 1, iw, q, 0, iw( 2*n+1 ), 10*n,
790  $ info )
791  CALL chkxer( 'SSYEVR_2STAGE', infot, nout, lerr, ok )
792  infot = 20
793  CALL ssyevr_2stage( 'N', 'I', 'U', 1, a, 1,
794  $ 0.0e0, 0.0e0, 1, 1, 0.0e0,
795  $ m, r, z, 1, iw, q, 26*n, iw( 2*n+1 ), 0,
796  $ info )
797  CALL chkxer( 'SSYEVR_2STAGE', infot, nout, lerr, ok )
798  nt = nt + 12
799 *
800 * SSYEV
801 *
802  srnamt = 'SSYEV '
803  infot = 1
804  CALL ssyev( '/', 'U', 0, a, 1, x, w, 1, info )
805  CALL chkxer( 'SSYEV ', infot, nout, lerr, ok )
806  infot = 2
807  CALL ssyev( 'N', '/', 0, a, 1, x, w, 1, info )
808  CALL chkxer( 'SSYEV ', infot, nout, lerr, ok )
809  infot = 3
810  CALL ssyev( 'N', 'U', -1, a, 1, x, w, 1, info )
811  CALL chkxer( 'SSYEV ', infot, nout, lerr, ok )
812  infot = 5
813  CALL ssyev( 'N', 'U', 2, a, 1, x, w, 3, info )
814  CALL chkxer( 'SSYEV ', infot, nout, lerr, ok )
815  infot = 8
816  CALL ssyev( 'N', 'U', 1, a, 1, x, w, 1, info )
817  CALL chkxer( 'SSYEV ', infot, nout, lerr, ok )
818  nt = nt + 5
819 *
820 * SSYEV_2STAGE
821 *
822  srnamt = 'SSYEV_2STAGE '
823  infot = 1
824  CALL ssyev_2stage( '/', 'U', 0, a, 1, x, w, 1, info )
825  CALL chkxer( 'SSYEV_2STAGE ', infot, nout, lerr, ok )
826  infot = 1
827  CALL ssyev_2stage( 'V', 'U', 0, a, 1, x, w, 1, info )
828  CALL chkxer( 'SSYEV_2STAGE ', infot, nout, lerr, ok )
829  infot = 2
830  CALL ssyev_2stage( 'N', '/', 0, a, 1, x, w, 1, info )
831  CALL chkxer( 'SSYEV_2STAGE ', infot, nout, lerr, ok )
832  infot = 3
833  CALL ssyev_2stage( 'N', 'U', -1, a, 1, x, w, 1, info )
834  CALL chkxer( 'SSYEV_2STAGE ', infot, nout, lerr, ok )
835  infot = 5
836  CALL ssyev_2stage( 'N', 'U', 2, a, 1, x, w, 3, info )
837  CALL chkxer( 'SSYEV_2STAGE ', infot, nout, lerr, ok )
838  infot = 8
839  CALL ssyev_2stage( 'N', 'U', 1, a, 1, x, w, 1, info )
840  CALL chkxer( 'SSYEV_2STAGE ', infot, nout, lerr, ok )
841  nt = nt + 6
842 *
843 * SSYEVX
844 *
845  srnamt = 'SSYEVX'
846  infot = 1
847  CALL ssyevx( '/', 'A', 'U', 0, a, 1, 0.0, 0.0, 0, 0, 0.0, m, x,
848  $ z, 1, w, 1, iw, i3, info )
849  CALL chkxer( 'SSYEVX', infot, nout, lerr, ok )
850  infot = 2
851  CALL ssyevx( 'N', '/', 'U', 0, a, 1, 0.0, 1.0, 1, 0, 0.0, m, x,
852  $ z, 1, w, 1, iw, i3, info )
853  CALL chkxer( 'SSYEVX', infot, nout, lerr, ok )
854  infot = 3
855  CALL ssyevx( 'N', 'A', '/', 0, a, 1, 0.0, 0.0, 0, 0, 0.0, m, x,
856  $ z, 1, w, 1, iw, i3, info )
857  infot = 4
858  CALL ssyevx( 'N', 'A', 'U', -1, a, 1, 0.0, 0.0, 0, 0, 0.0, m,
859  $ x, z, 1, w, 1, iw, i3, info )
860  CALL chkxer( 'SSYEVX', infot, nout, lerr, ok )
861  infot = 6
862  CALL ssyevx( 'N', 'A', 'U', 2, a, 1, 0.0, 0.0, 0, 0, 0.0, m, x,
863  $ z, 1, w, 16, iw, i3, info )
864  CALL chkxer( 'SSYEVX', infot, nout, lerr, ok )
865  infot = 8
866  CALL ssyevx( 'N', 'V', 'U', 1, a, 1, 0.0, 0.0, 0, 0, 0.0, m, x,
867  $ z, 1, w, 8, iw, i3, info )
868  CALL chkxer( 'SSYEVX', infot, nout, lerr, ok )
869  infot = 9
870  CALL ssyevx( 'N', 'I', 'U', 1, a, 1, 0.0, 0.0, 0, 0, 0.0, m, x,
871  $ z, 1, w, 8, iw, i3, info )
872  CALL chkxer( 'SSYEVX', infot, nout, lerr, ok )
873  infot = 9
874  CALL ssyevx( 'N', 'I', 'U', 1, a, 1, 0.0, 0.0, 2, 1, 0.0, m, x,
875  $ z, 1, w, 8, iw, i3, info )
876  CALL chkxer( 'SSYEVX', infot, nout, lerr, ok )
877  infot = 10
878  CALL ssyevx( 'N', 'I', 'U', 2, a, 2, 0.0, 0.0, 2, 1, 0.0, m, x,
879  $ z, 1, w, 16, iw, i3, info )
880  CALL chkxer( 'SSYEVX', infot, nout, lerr, ok )
881  infot = 10
882  CALL ssyevx( 'N', 'I', 'U', 1, a, 1, 0.0, 0.0, 1, 2, 0.0, m, x,
883  $ z, 1, w, 8, iw, i3, info )
884  CALL chkxer( 'SSYEVX', infot, nout, lerr, ok )
885  infot = 15
886  CALL ssyevx( 'V', 'A', 'U', 2, a, 2, 0.0, 0.0, 0, 0, 0.0, m, x,
887  $ z, 1, w, 16, iw, i3, info )
888  CALL chkxer( 'SSYEVX', infot, nout, lerr, ok )
889  infot = 17
890  CALL ssyevx( 'V', 'A', 'U', 1, a, 1, 0.0, 0.0, 0, 0, 0.0, m, x,
891  $ z, 1, w, 0, iw, i3, info )
892  CALL chkxer( 'SSYEVX', infot, nout, lerr, ok )
893  nt = nt + 12
894 *
895 * SSYEVX_2STAGE
896 *
897  srnamt = 'SSYEVX_2STAGE'
898  infot = 1
899  CALL ssyevx_2stage( '/', 'A', 'U', 0, a, 1,
900  $ 0.0e0, 0.0e0, 0, 0, 0.0e0,
901  $ m, x, z, 1, w, 1, iw, i3, info )
902  CALL chkxer( 'SSYEVX_2STAGE', infot, nout, lerr, ok )
903  infot = 1
904  CALL ssyevx_2stage( 'V', 'A', 'U', 0, a, 1,
905  $ 0.0e0, 0.0e0, 0, 0, 0.0e0,
906  $ m, x, z, 1, w, 1, iw, i3, info )
907  CALL chkxer( 'SSYEVX_2STAGE', infot, nout, lerr, ok )
908  infot = 2
909  CALL ssyevx_2stage( 'N', '/', 'U', 0, a, 1,
910  $ 0.0e0, 1.0e0, 1, 0, 0.0e0,
911  $ m, x, z, 1, w, 1, iw, i3, info )
912  CALL chkxer( 'SSYEVX_2STAGE', infot, nout, lerr, ok )
913  infot = 3
914  CALL ssyevx_2stage( 'N', 'A', '/', 0, a, 1,
915  $ 0.0e0, 0.0e0, 0, 0, 0.0e0,
916  $ m, x, z, 1, w, 1, iw, i3, info )
917  infot = 4
918  CALL ssyevx_2stage( 'N', 'A', 'U', -1, a, 1,
919  $ 0.0e0, 0.0e0, 0, 0, 0.0e0,
920  $ m, x, z, 1, w, 1, iw, i3, info )
921  CALL chkxer( 'SSYEVX_2STAGE', infot, nout, lerr, ok )
922  infot = 6
923  CALL ssyevx_2stage( 'N', 'A', 'U', 2, a, 1,
924  $ 0.0e0, 0.0e0, 0, 0, 0.0e0,
925  $ m, x, z, 1, w, 16, iw, i3, info )
926  CALL chkxer( 'SSYEVX_2STAGE', infot, nout, lerr, ok )
927  infot = 8
928  CALL ssyevx_2stage( 'N', 'V', 'U', 1, a, 1,
929  $ 0.0e0, 0.0e0, 0, 0, 0.0e0,
930  $ m, x, z, 1, w, 8, iw, i3, info )
931  CALL chkxer( 'SSYEVX_2STAGE', infot, nout, lerr, ok )
932  infot = 9
933  CALL ssyevx_2stage( 'N', 'I', 'U', 1, a, 1,
934  $ 0.0e0, 0.0e0, 0, 0, 0.0e0,
935  $ m, x, z, 1, w, 8, iw, i3, info )
936  CALL chkxer( 'SSYEVX_2STAGE', infot, nout, lerr, ok )
937  infot = 9
938  CALL ssyevx_2stage( 'N', 'I', 'U', 1, a, 1,
939  $ 0.0e0, 0.0e0, 2, 1, 0.0e0,
940  $ m, x, z, 1, w, 8, iw, i3, info )
941  CALL chkxer( 'SSYEVX_2STAGE', infot, nout, lerr, ok )
942  infot = 10
943  CALL ssyevx_2stage( 'N', 'I', 'U', 2, a, 2,
944  $ 0.0e0, 0.0e0, 2, 1, 0.0e0,
945  $ m, x, z, 1, w, 16, iw, i3, info )
946  CALL chkxer( 'SSYEVX_2STAGE', infot, nout, lerr, ok )
947  infot = 10
948  CALL ssyevx_2stage( 'N', 'I', 'U', 1, a, 1,
949  $ 0.0e0, 0.0e0, 1, 2, 0.0e0,
950  $ m, x, z, 1, w, 8, iw, i3, info )
951  CALL chkxer( 'SSYEVX_2STAGE', infot, nout, lerr, ok )
952  infot = 15
953  CALL ssyevx_2stage( 'N', 'A', 'U', 2, a, 2,
954  $ 0.0e0, 0.0e0, 0, 0, 0.0e0,
955  $ m, x, z, 0, w, 16, iw, i3, info )
956  CALL chkxer( 'SSYEVX_2STAGE', infot, nout, lerr, ok )
957  infot = 17
958  CALL ssyevx_2stage( 'N', 'A', 'U', 1, a, 1,
959  $ 0.0e0, 0.0e0, 0, 0, 0.0e0,
960  $ m, x, z, 1, w, 0, iw, i3, info )
961  CALL chkxer( 'SSYEVX_2STAGE', infot, nout, lerr, ok )
962  nt = nt + 13
963 *
964 * SSPEVD
965 *
966  srnamt = 'SSPEVD'
967  infot = 1
968  CALL sspevd( '/', 'U', 0, a, x, z, 1, w, 1, iw, 1, info )
969  CALL chkxer( 'SSPEVD', infot, nout, lerr, ok )
970  infot = 2
971  CALL sspevd( 'N', '/', 0, a, x, z, 1, w, 1, iw, 1, info )
972  CALL chkxer( 'SSPEVD', infot, nout, lerr, ok )
973  infot = 3
974  CALL sspevd( 'N', 'U', -1, a, x, z, 1, w, 1, iw, 1, info )
975  CALL chkxer( 'SSPEVD', infot, nout, lerr, ok )
976  infot = 7
977  CALL sspevd( 'V', 'U', 2, a, x, z, 1, w, 23, iw, 12, info )
978  CALL chkxer( 'SSPEVD', infot, nout, lerr, ok )
979  infot = 9
980  CALL sspevd( 'N', 'U', 1, a, x, z, 1, w, 0, iw, 1, info )
981  CALL chkxer( 'SSPEVD', infot, nout, lerr, ok )
982  infot = 9
983  CALL sspevd( 'N', 'U', 2, a, x, z, 1, w, 3, iw, 1, info )
984  CALL chkxer( 'SSPEVD', infot, nout, lerr, ok )
985  infot = 9
986  CALL sspevd( 'V', 'U', 2, a, x, z, 2, w, 16, iw, 12, info )
987  CALL chkxer( 'SSPEVD', infot, nout, lerr, ok )
988  infot = 11
989  CALL sspevd( 'N', 'U', 1, a, x, z, 1, w, 1, iw, 0, info )
990  CALL chkxer( 'SSPEVD', infot, nout, lerr, ok )
991  infot = 11
992  CALL sspevd( 'N', 'U', 2, a, x, z, 1, w, 4, iw, 0, info )
993  CALL chkxer( 'SSPEVD', infot, nout, lerr, ok )
994  infot = 11
995  CALL sspevd( 'V', 'U', 2, a, x, z, 2, w, 23, iw, 11, info )
996  CALL chkxer( 'SSPEVD', infot, nout, lerr, ok )
997  nt = nt + 10
998 *
999 * SSPEV
1000 *
1001  srnamt = 'SSPEV '
1002  infot = 1
1003  CALL sspev( '/', 'U', 0, a, w, z, 1, x, info )
1004  CALL chkxer( 'SSPEV ', infot, nout, lerr, ok )
1005  infot = 2
1006  CALL sspev( 'N', '/', 0, a, w, z, 1, x, info )
1007  CALL chkxer( 'SSPEV ', infot, nout, lerr, ok )
1008  infot = 3
1009  CALL sspev( 'N', 'U', -1, a, w, z, 1, x, info )
1010  CALL chkxer( 'SSPEV ', infot, nout, lerr, ok )
1011  infot = 7
1012  CALL sspev( 'V', 'U', 2, a, w, z, 1, x, info )
1013  CALL chkxer( 'SSPEV ', infot, nout, lerr, ok )
1014  nt = nt + 4
1015 *
1016 * SSPEVX
1017 *
1018  srnamt = 'SSPEVX'
1019  infot = 1
1020  CALL sspevx( '/', 'A', 'U', 0, a, 0.0, 0.0, 0, 0, 0.0, m, x, z,
1021  $ 1, w, iw, i3, info )
1022  CALL chkxer( 'SSPEVX', infot, nout, lerr, ok )
1023  infot = 2
1024  CALL sspevx( 'N', '/', 'U', 0, a, 0.0, 0.0, 0, 0, 0.0, m, x, z,
1025  $ 1, w, iw, i3, info )
1026  CALL chkxer( 'SSPEVX', infot, nout, lerr, ok )
1027  infot = 3
1028  CALL sspevx( 'N', 'A', '/', 0, a, 0.0, 0.0, 0, 0, 0.0, m, x, z,
1029  $ 1, w, iw, i3, info )
1030  infot = 4
1031  CALL sspevx( 'N', 'A', 'U', -1, a, 0.0, 0.0, 0, 0, 0.0, m, x,
1032  $ z, 1, w, iw, i3, info )
1033  CALL chkxer( 'SSPEVX', infot, nout, lerr, ok )
1034  infot = 7
1035  CALL sspevx( 'N', 'V', 'U', 1, a, 0.0, 0.0, 0, 0, 0.0, m, x, z,
1036  $ 1, w, iw, i3, info )
1037  CALL chkxer( 'SSPEVX', infot, nout, lerr, ok )
1038  infot = 8
1039  CALL sspevx( 'N', 'I', 'U', 1, a, 0.0, 0.0, 0, 0, 0.0, m, x, z,
1040  $ 1, w, iw, i3, info )
1041  CALL chkxer( 'SSPEVX', infot, nout, lerr, ok )
1042  infot = 8
1043  CALL sspevx( 'N', 'I', 'U', 1, a, 0.0, 0.0, 2, 1, 0.0, m, x, z,
1044  $ 1, w, iw, i3, info )
1045  CALL chkxer( 'SSPEVX', infot, nout, lerr, ok )
1046  infot = 9
1047  CALL sspevx( 'N', 'I', 'U', 2, a, 0.0, 0.0, 2, 1, 0.0, m, x, z,
1048  $ 1, w, iw, i3, info )
1049  CALL chkxer( 'SSPEVX', infot, nout, lerr, ok )
1050  infot = 9
1051  CALL sspevx( 'N', 'I', 'U', 1, a, 0.0, 0.0, 1, 2, 0.0, m, x, z,
1052  $ 1, w, iw, i3, info )
1053  CALL chkxer( 'SSPEVX', infot, nout, lerr, ok )
1054  infot = 14
1055  CALL sspevx( 'V', 'A', 'U', 2, a, 0.0, 0.0, 0, 0, 0.0, m, x, z,
1056  $ 1, w, iw, i3, info )
1057  CALL chkxer( 'SSPEVX', infot, nout, lerr, ok )
1058  nt = nt + 10
1059 *
1060 * Test error exits for the SB path.
1061 *
1062  ELSE IF( lsamen( 2, c2, 'SB' ) ) THEN
1063 *
1064 * SSBTRD
1065 *
1066  srnamt = 'SSBTRD'
1067  infot = 1
1068  CALL ssbtrd( '/', 'U', 0, 0, a, 1, d, e, z, 1, w, info )
1069  CALL chkxer( 'SSBTRD', infot, nout, lerr, ok )
1070  infot = 2
1071  CALL ssbtrd( 'N', '/', 0, 0, a, 1, d, e, z, 1, w, info )
1072  CALL chkxer( 'SSBTRD', infot, nout, lerr, ok )
1073  infot = 3
1074  CALL ssbtrd( 'N', 'U', -1, 0, a, 1, d, e, z, 1, w, info )
1075  CALL chkxer( 'SSBTRD', infot, nout, lerr, ok )
1076  infot = 4
1077  CALL ssbtrd( 'N', 'U', 0, -1, a, 1, d, e, z, 1, w, info )
1078  CALL chkxer( 'SSBTRD', infot, nout, lerr, ok )
1079  infot = 6
1080  CALL ssbtrd( 'N', 'U', 1, 1, a, 1, d, e, z, 1, w, info )
1081  CALL chkxer( 'SSBTRD', infot, nout, lerr, ok )
1082  infot = 10
1083  CALL ssbtrd( 'V', 'U', 2, 0, a, 1, d, e, z, 1, w, info )
1084  CALL chkxer( 'SSBTRD', infot, nout, lerr, ok )
1085  nt = nt + 6
1086 *
1087 * SSYTRD_SB2ST
1088 *
1089  srnamt = 'SSYTRD_SB2ST'
1090  infot = 1
1091  CALL ssytrd_sb2st( '/', 'N', 'U', 0, 0, a, 1, d, e,
1092  $ c, 1, w, 1, info )
1093  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
1094  infot = 2
1095  CALL ssytrd_sb2st( 'N', '/', 'U', 0, 0, a, 1, d, e,
1096  $ c, 1, w, 1, info )
1097  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
1098  infot = 2
1099  CALL ssytrd_sb2st( 'N', 'H', 'U', 0, 0, a, 1, d, e,
1100  $ c, 1, w, 1, info )
1101  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
1102  infot = 3
1103  CALL ssytrd_sb2st( 'N', 'N', '/', 0, 0, a, 1, d, e,
1104  $ c, 1, w, 1, info )
1105  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
1106  infot = 4
1107  CALL ssytrd_sb2st( 'N', 'N', 'U', -1, 0, a, 1, d, e,
1108  $ c, 1, w, 1, info )
1109  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
1110  infot = 5
1111  CALL ssytrd_sb2st( 'N', 'N', 'U', 0, -1, a, 1, d, e,
1112  $ c, 1, w, 1, info )
1113  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
1114  infot = 7
1115  CALL ssytrd_sb2st( 'N', 'N', 'U', 0, 1, a, 1, d, e,
1116  $ c, 1, w, 1, info )
1117  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
1118  infot = 11
1119  CALL ssytrd_sb2st( 'N', 'N', 'U', 0, 0, a, 1, d, e,
1120  $ c, 0, w, 1, info )
1121  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
1122  infot = 13
1123  CALL ssytrd_sb2st( 'N', 'N', 'U', 0, 0, a, 1, d, e,
1124  $ c, 1, w, 0, info )
1125  CALL chkxer( 'SSYTRD_SB2ST', infot, nout, lerr, ok )
1126  nt = nt + 9
1127 *
1128 * SSBEVD
1129 *
1130  srnamt = 'SSBEVD'
1131  infot = 1
1132  CALL ssbevd( '/', 'U', 0, 0, a, 1, x, z, 1, w, 1, iw, 1, info )
1133  CALL chkxer( 'SSBEVD', infot, nout, lerr, ok )
1134  infot = 2
1135  CALL ssbevd( 'N', '/', 0, 0, a, 1, x, z, 1, w, 1, iw, 1, info )
1136  CALL chkxer( 'SSBEVD', infot, nout, lerr, ok )
1137  infot = 3
1138  CALL ssbevd( 'N', 'U', -1, 0, a, 1, x, z, 1, w, 1, iw, 1,
1139  $ info )
1140  CALL chkxer( 'SSBEVD', infot, nout, lerr, ok )
1141  infot = 4
1142  CALL ssbevd( 'N', 'U', 0, -1, a, 1, x, z, 1, w, 1, iw, 1,
1143  $ info )
1144  CALL chkxer( 'SSBEVD', infot, nout, lerr, ok )
1145  infot = 6
1146  CALL ssbevd( 'N', 'U', 2, 1, a, 1, x, z, 1, w, 4, iw, 1, info )
1147  CALL chkxer( 'SSBEVD', infot, nout, lerr, ok )
1148  infot = 9
1149  CALL ssbevd( 'V', 'U', 2, 1, a, 2, x, z, 1, w, 25, iw, 12,
1150  $ info )
1151  CALL chkxer( 'SSBEVD', infot, nout, lerr, ok )
1152  infot = 11
1153  CALL ssbevd( 'N', 'U', 1, 0, a, 1, x, z, 1, w, 0, iw, 1, info )
1154  CALL chkxer( 'SSBEVD', infot, nout, lerr, ok )
1155  infot = 11
1156  CALL ssbevd( 'N', 'U', 2, 0, a, 1, x, z, 1, w, 3, iw, 1, info )
1157  CALL chkxer( 'SSBEVD', infot, nout, lerr, ok )
1158  infot = 11
1159  CALL ssbevd( 'V', 'U', 2, 0, a, 1, x, z, 2, w, 18, iw, 12,
1160  $ info )
1161  CALL chkxer( 'SSBEVD', infot, nout, lerr, ok )
1162  infot = 13
1163  CALL ssbevd( 'N', 'U', 1, 0, a, 1, x, z, 1, w, 1, iw, 0, info )
1164  CALL chkxer( 'SSBEVD', infot, nout, lerr, ok )
1165  infot = 13
1166  CALL ssbevd( 'V', 'U', 2, 0, a, 1, x, z, 2, w, 25, iw, 11,
1167  $ info )
1168  CALL chkxer( 'SSBEVD', infot, nout, lerr, ok )
1169  nt = nt + 11
1170 *
1171 * SSBEVD_2STAGE
1172 *
1173  srnamt = 'SSBEVD_2STAGE'
1174  infot = 1
1175  CALL ssbevd_2stage( '/', 'U', 0, 0, a, 1, x, z, 1, w,
1176  $ 1, iw, 1, info )
1177  CALL chkxer( 'SSBEVD_2STAGE', infot, nout, lerr, ok )
1178  infot = 1
1179  CALL ssbevd_2stage( 'V', 'U', 0, 0, a, 1, x, z, 1, w,
1180  $ 1, iw, 1, info )
1181  CALL chkxer( 'SSBEVD_2STAGE', infot, nout, lerr, ok )
1182  infot = 2
1183  CALL ssbevd_2stage( 'N', '/', 0, 0, a, 1, x, z, 1, w,
1184  $ 1, iw, 1, info )
1185  CALL chkxer( 'SSBEVD_2STAGE', infot, nout, lerr, ok )
1186  infot = 3
1187  CALL ssbevd_2stage( 'N', 'U', -1, 0, a, 1, x, z, 1, w,
1188  $ 1, iw, 1, info )
1189  CALL chkxer( 'SSBEVD_2STAGE', infot, nout, lerr, ok )
1190  infot = 4
1191  CALL ssbevd_2stage( 'N', 'U', 0, -1, a, 1, x, z, 1, w,
1192  $ 1, iw, 1, info )
1193  CALL chkxer( 'SSBEVD_2STAGE', infot, nout, lerr, ok )
1194  infot = 6
1195  CALL ssbevd_2stage( 'N', 'U', 2, 1, a, 1, x, z, 1, w,
1196  $ 4, iw, 1, info )
1197  CALL chkxer( 'SSBEVD_2STAGE', infot, nout, lerr, ok )
1198 * INFOT = 9
1199 * CALL SSBEVD_2STAGE( 'V', 'U', 2, 1, A, 2, X, Z, 1, W,
1200 * $ 25, IW, 12, INFO )
1201 * CALL CHKXER( 'SSBEVD_2STAGE', INFOT, NOUT, LERR, OK )
1202  infot = 11
1203  CALL ssbevd_2stage( 'N', 'U', 1, 0, a, 1, x, z, 1, w,
1204  $ 0, iw, 1, info )
1205  CALL chkxer( 'SSBEVD_2STAGE', infot, nout, lerr, ok )
1206  infot = 11
1207  CALL ssbevd_2stage( 'N', 'U', 2, 0, a, 1, x, z, 1, w,
1208  $ 3, iw, 1, info )
1209  CALL chkxer( 'SSBEVD_2STAGE', infot, nout, lerr, ok )
1210 * INFOT = 11
1211 * CALL SSBEVD_2STAGE( 'V', 'U', 2, 0, A, 1, X, Z, 2, W,
1212 * $ 18, IW, 12, INFO )
1213 * CALL CHKXER( 'SSBEVD_2STAGE', INFOT, NOUT, LERR, OK )
1214  infot = 13
1215  CALL ssbevd_2stage( 'N', 'U', 1, 0, a, 1, x, z, 1, w,
1216  $ 1, iw, 0, info )
1217  CALL chkxer( 'SSBEVD_2STAGE', infot, nout, lerr, ok )
1218 * INFOT = 13
1219 * CALL SSBEVD_2STAGE( 'V', 'U', 2, 0, A, 1, X, Z, 2, W,
1220 * $ 25, IW, 11, INFO )
1221 * CALL CHKXER( 'SSBEVD_2STAGE', INFOT, NOUT, LERR, OK )
1222 * NT = NT + 12
1223  nt = nt + 9
1224 *
1225 * SSBEV
1226 *
1227  srnamt = 'SSBEV '
1228  infot = 1
1229  CALL ssbev( '/', 'U', 0, 0, a, 1, x, z, 1, w, info )
1230  CALL chkxer( 'SSBEV ', infot, nout, lerr, ok )
1231  infot = 2
1232  CALL ssbev( 'N', '/', 0, 0, a, 1, x, z, 1, w, info )
1233  CALL chkxer( 'SSBEV ', infot, nout, lerr, ok )
1234  infot = 3
1235  CALL ssbev( 'N', 'U', -1, 0, a, 1, x, z, 1, w, info )
1236  CALL chkxer( 'SSBEV ', infot, nout, lerr, ok )
1237  infot = 4
1238  CALL ssbev( 'N', 'U', 0, -1, a, 1, x, z, 1, w, info )
1239  CALL chkxer( 'SSBEV ', infot, nout, lerr, ok )
1240  infot = 6
1241  CALL ssbev( 'N', 'U', 2, 1, a, 1, x, z, 1, w, info )
1242  CALL chkxer( 'SSBEV ', infot, nout, lerr, ok )
1243  infot = 9
1244  CALL ssbev( 'V', 'U', 2, 0, a, 1, x, z, 1, w, info )
1245  CALL chkxer( 'SSBEV ', infot, nout, lerr, ok )
1246  nt = nt + 6
1247 *
1248 * SSBEV_2STAGE
1249 *
1250  srnamt = 'SSBEV_2STAGE '
1251  infot = 1
1252  CALL ssbev_2stage( '/', 'U', 0, 0, a, 1, x, z, 1, w, 0, info )
1253  CALL chkxer( 'SSBEV_2STAGE ', infot, nout, lerr, ok )
1254  infot = 1
1255  CALL ssbev_2stage( 'V', 'U', 0, 0, a, 1, x, z, 1, w, 0, info )
1256  CALL chkxer( 'SSBEV_2STAGE ', infot, nout, lerr, ok )
1257  infot = 2
1258  CALL ssbev_2stage( 'N', '/', 0, 0, a, 1, x, z, 1, w, 0, info )
1259  CALL chkxer( 'SSBEV_2STAGE ', infot, nout, lerr, ok )
1260  infot = 3
1261  CALL ssbev_2stage( 'N', 'U', -1, 0, a, 1, x, z, 1, w, 0, info )
1262  CALL chkxer( 'SSBEV_2STAGE ', infot, nout, lerr, ok )
1263  infot = 4
1264  CALL ssbev_2stage( 'N', 'U', 0, -1, a, 1, x, z, 1, w, 0, info )
1265  CALL chkxer( 'SSBEV_2STAGE ', infot, nout, lerr, ok )
1266  infot = 6
1267  CALL ssbev_2stage( 'N', 'U', 2, 1, a, 1, x, z, 1, w, 0, info )
1268  CALL chkxer( 'SSBEV_2STAGE ', infot, nout, lerr, ok )
1269  infot = 9
1270  CALL ssbev_2stage( 'N', 'U', 2, 0, a, 1, x, z, 0, w, 0, info )
1271  CALL chkxer( 'SSBEV_2STAGE ', infot, nout, lerr, ok )
1272  infot = 11
1273  CALL ssbev_2stage( 'N', 'U', 0, 0, a, 1, x, z, 1, w, 0, info )
1274  CALL chkxer( 'SSBEV_2STAGE ', infot, nout, lerr, ok )
1275  nt = nt + 8
1276 *
1277 * SSBEVX
1278 *
1279  srnamt = 'SSBEVX'
1280  infot = 1
1281  CALL ssbevx( '/', 'A', 'U', 0, 0, a, 1, q, 1, 0.0, 0.0, 0, 0,
1282  $ 0.0, m, x, z, 1, w, iw, i3, info )
1283  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1284  infot = 2
1285  CALL ssbevx( 'N', '/', 'U', 0, 0, a, 1, q, 1, 0.0, 0.0, 0, 0,
1286  $ 0.0, m, x, z, 1, w, iw, i3, info )
1287  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1288  infot = 3
1289  CALL ssbevx( 'N', 'A', '/', 0, 0, a, 1, q, 1, 0.0, 0.0, 0, 0,
1290  $ 0.0, m, x, z, 1, w, iw, i3, info )
1291  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1292  infot = 4
1293  CALL ssbevx( 'N', 'A', 'U', -1, 0, a, 1, q, 1, 0.0, 0.0, 0, 0,
1294  $ 0.0, m, x, z, 1, w, iw, i3, info )
1295  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1296  infot = 5
1297  CALL ssbevx( 'N', 'A', 'U', 0, -1, a, 1, q, 1, 0.0, 0.0, 0, 0,
1298  $ 0.0, m, x, z, 1, w, iw, i3, info )
1299  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1300  infot = 7
1301  CALL ssbevx( 'N', 'A', 'U', 2, 1, a, 1, q, 1, 0.0, 0.0, 0, 0,
1302  $ 0.0, m, x, z, 1, w, iw, i3, info )
1303  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1304  infot = 9
1305  CALL ssbevx( 'V', 'A', 'U', 2, 0, a, 1, q, 1, 0.0, 0.0, 0, 0,
1306  $ 0.0, m, x, z, 2, w, iw, i3, info )
1307  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1308  infot = 11
1309  CALL ssbevx( 'N', 'V', 'U', 1, 0, a, 1, q, 1, 0.0, 0.0, 0, 0,
1310  $ 0.0, m, x, z, 1, w, iw, i3, info )
1311  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1312  infot = 12
1313  CALL ssbevx( 'N', 'I', 'U', 1, 0, a, 1, q, 1, 0.0, 0.0, 0, 0,
1314  $ 0.0, m, x, z, 1, w, iw, i3, info )
1315  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1316  infot = 12
1317  CALL ssbevx( 'N', 'I', 'U', 1, 0, a, 1, q, 1, 0.0, 0.0, 2, 1,
1318  $ 0.0, m, x, z, 1, w, iw, i3, info )
1319  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1320  infot = 13
1321  CALL ssbevx( 'N', 'I', 'U', 2, 0, a, 1, q, 1, 0.0, 0.0, 2, 1,
1322  $ 0.0, m, x, z, 1, w, iw, i3, info )
1323  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1324  infot = 13
1325  CALL ssbevx( 'N', 'I', 'U', 1, 0, a, 1, q, 1, 0.0, 0.0, 1, 2,
1326  $ 0.0, m, x, z, 1, w, iw, i3, info )
1327  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1328  infot = 18
1329  CALL ssbevx( 'V', 'A', 'U', 2, 0, a, 1, q, 2, 0.0, 0.0, 0, 0,
1330  $ 0.0, m, x, z, 1, w, iw, i3, info )
1331  CALL chkxer( 'SSBEVX', infot, nout, lerr, ok )
1332  nt = nt + 13
1333 *
1334 * SSBEVX_2STAGE
1335 *
1336  srnamt = 'SSBEVX_2STAGE'
1337  infot = 1
1338  CALL ssbevx_2stage( '/', 'A', 'U', 0, 0, a, 1, q, 1, 0.0e0,
1339  $ 0.0e0, 0, 0, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1340  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1341  infot = 1
1342  CALL ssbevx_2stage( 'V', 'A', 'U', 0, 0, a, 1, q, 1, 0.0e0,
1343  $ 0.0e0, 0, 0, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1344  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1345  infot = 2
1346  CALL ssbevx_2stage( 'N', '/', 'U', 0, 0, a, 1, q, 1, 0.0e0,
1347  $ 0.0e0, 0, 0, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1348  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1349  infot = 3
1350  CALL ssbevx_2stage( 'N', 'A', '/', 0, 0, a, 1, q, 1, 0.0e0,
1351  $ 0.0e0, 0, 0, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1352  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1353  infot = 4
1354  CALL ssbevx_2stage( 'N', 'A', 'U', -1, 0, a, 1, q, 1, 0.0e0,
1355  $ 0.0e0, 0, 0, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1356  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1357  infot = 5
1358  CALL ssbevx_2stage( 'N', 'A', 'U', 0, -1, a, 1, q, 1, 0.0e0,
1359  $ 0.0e0, 0, 0, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1360  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1361  infot = 7
1362  CALL ssbevx_2stage( 'N', 'A', 'U', 2, 1, a, 1, q, 1, 0.0e0,
1363  $ 0.0e0, 0, 0, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1364  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1365 * INFOT = 9
1366 * CALL SSBEVX_2STAGE( 'V', 'A', 'U', 2, 0, A, 1, Q, 1, 0.0E0,
1367 * $ 0.0E0, 0, 0, 0.0E0, M, X, Z, 2, W, 0, IW, I3, INFO )
1368 * CALL CHKXER( 'SSBEVX_2STAGE', INFOT, NOUT, LERR, OK )
1369  infot = 11
1370  CALL ssbevx_2stage( 'N', 'V', 'U', 1, 0, a, 1, q, 1, 0.0e0,
1371  $ 0.0e0, 0, 0, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1372  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1373  infot = 12
1374  CALL ssbevx_2stage( 'N', 'I', 'U', 1, 0, a, 1, q, 1, 0.0e0,
1375  $ 0.0e0, 0, 0, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1376  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1377  infot = 12
1378  CALL ssbevx_2stage( 'N', 'I', 'U', 1, 0, a, 1, q, 1, 0.0e0,
1379  $ 0.0e0, 2, 1, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1380  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1381  infot = 13
1382  CALL ssbevx_2stage( 'N', 'I', 'U', 2, 0, a, 1, q, 1, 0.0e0,
1383  $ 0.0e0, 2, 1, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1384  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1385  infot = 13
1386  CALL ssbevx_2stage( 'N', 'I', 'U', 1, 0, a, 1, q, 1, 0.0e0,
1387  $ 0.0e0, 1, 2, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1388  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1389 * INFOT = 18
1390 * CALL SSBEVX_2STAGE( 'V', 'A', 'U', 2, 0, A, 1, Q, 2, 0.0E0,
1391 * $ 0.0E0, 0, 0, 0.0E0, M, X, Z, 1, W, 0, IW, I3, INFO )
1392 * CALL CHKXER( 'SSBEVX_2STAGE', INFOT, NOUT, LERR, OK )
1393  infot = 20
1394  CALL ssbevx_2stage( 'N', 'A', 'U', 0, 0, a, 1, q, 1, 0.0e0,
1395  $ 0.0e0, 0, 0, 0.0e0, m, x, z, 1, w, 0, iw, i3, info )
1396  CALL chkxer( 'SSBEVX_2STAGE', infot, nout, lerr, ok )
1397 * NT = NT + 15
1398  nt = nt + 13
1399  END IF
1400 *
1401 * Print a summary line.
1402 *
1403  IF( ok ) THEN
1404  WRITE( nout, fmt = 9999 )path, nt
1405  ELSE
1406  WRITE( nout, fmt = 9998 )path
1407  END IF
1408 *
1409  9999 FORMAT( 1x, a3, ' routines passed the tests of the error exits',
1410  $ ' (', i3, ' tests done)' )
1411  9998 FORMAT( ' *** ', a3, ' routines failed the tests of the error ',
1412  $ 'exits ***' )
1413 *
1414  RETURN
1415 *
1416 * End of SERRST
1417 *
1418  END
chkxer
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3196
ssteqr
subroutine ssteqr(COMPZ, N, D, E, Z, LDZ, WORK, INFO)
SSTEQR
Definition: ssteqr.f:131
sstedc
subroutine sstedc(COMPZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO)
SSTEDC
Definition: sstedc.f:188
ssterf
subroutine ssterf(N, D, E, INFO)
SSTERF
Definition: ssterf.f:86
sstebz
subroutine sstebz(RANGE, ORDER, N, VL, VU, IL, IU, ABSTOL, D, E, M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, INFO)
SSTEBZ
Definition: sstebz.f:273
ssptrd
subroutine ssptrd(UPLO, N, AP, D, E, TAU, INFO)
SSPTRD
Definition: ssptrd.f:150
sormtr
subroutine sormtr(SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, WORK, LWORK, INFO)
SORMTR
Definition: sormtr.f:172
sopgtr
subroutine sopgtr(UPLO, N, AP, TAU, Q, LDQ, WORK, INFO)
SOPGTR
Definition: sopgtr.f:114
ssbtrd
subroutine ssbtrd(VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, WORK, INFO)
SSBTRD
Definition: ssbtrd.f:163
sstein
subroutine sstein(N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, IWORK, IFAIL, INFO)
SSTEIN
Definition: sstein.f:174
sopmtr
subroutine sopmtr(SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, INFO)
SOPMTR
Definition: sopmtr.f:150
sorgtr
subroutine sorgtr(UPLO, N, A, LDA, TAU, WORK, LWORK, INFO)
SORGTR
Definition: sorgtr.f:123
ssbev
subroutine ssbev(JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, INFO)
SSBEV computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrices
Definition: ssbev.f:146
ssbevx_2stage
subroutine ssbevx_2stage(JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, IFAIL, INFO)
SSBEVX_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER ...
Definition: ssbevx_2stage.f:322
ssbev_2stage
subroutine ssbev_2stage(JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, LWORK, INFO)
SSBEV_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER m...
Definition: ssbev_2stage.f:204
sstevx
subroutine sstevx(JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO)
SSTEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrice...
Definition: sstevx.f:227
ssbevd
subroutine ssbevd(JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO)
SSBEVD computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrice...
Definition: ssbevd.f:193
ssbevx
subroutine ssbevx(JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO)
SSBEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrice...
Definition: ssbevx.f:265
sstev
subroutine sstev(JOBZ, N, D, E, Z, LDZ, WORK, INFO)
SSTEV computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrices
Definition: sstev.f:116
sspevx
subroutine sspevx(JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO)
SSPEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrice...
Definition: sspevx.f:234
sspevd
subroutine sspevd(JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO)
SSPEVD computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrice...
Definition: sspevd.f:178
ssbevd_2stage
subroutine ssbevd_2stage(JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO)
SSBEVD_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER ...
Definition: ssbevd_2stage.f:234
sstevd
subroutine sstevd(JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO)
SSTEVD computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrice...
Definition: sstevd.f:163
sspev
subroutine sspev(JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, INFO)
SSPEV computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrices
Definition: sspev.f:130
sstevr
subroutine sstevr(JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, LIWORK, INFO)
SSTEVR computes the eigenvalues and, optionally, the left and/or right eigenvectors for OTHER matrice...
Definition: sstevr.f:306
spteqr
subroutine spteqr(COMPZ, N, D, E, Z, LDZ, WORK, INFO)
SPTEQR
Definition: spteqr.f:145
ssytrd
subroutine ssytrd(UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO)
SSYTRD
Definition: ssytrd.f:192
ssytrd_2stage
subroutine ssytrd_2stage(VECT, UPLO, N, A, LDA, D, E, TAU, HOUS2, LHOUS2, WORK, LWORK, INFO)
SSYTRD_2STAGE
Definition: ssytrd_2stage.f:224
ssytrd_sy2sb
subroutine ssytrd_sy2sb(UPLO, N, KD, A, LDA, AB, LDAB, TAU, WORK, LWORK, INFO)
SSYTRD_SY2SB
Definition: ssytrd_sy2sb.f:243
ssyevd_2stage
subroutine ssyevd_2stage(JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, LIWORK, INFO)
SSYEVD_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for SY mat...
Definition: ssyevd_2stage.f:227
ssyevr
subroutine ssyevr(JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, LIWORK, INFO)
SSYEVR computes the eigenvalues and, optionally, the left and/or right eigenvectors for SY matrices
Definition: ssyevr.f:336
ssyev_2stage
subroutine ssyev_2stage(JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO)
SSYEV_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for SY matr...
Definition: ssyev_2stage.f:183
ssyev
subroutine ssyev(JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO)
SSYEV computes the eigenvalues and, optionally, the left and/or right eigenvectors for SY matrices
Definition: ssyev.f:132
ssyevd
subroutine ssyevd(JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, LIWORK, INFO)
SSYEVD computes the eigenvalues and, optionally, the left and/or right eigenvectors for SY matrices
Definition: ssyevd.f:183
ssyevx
subroutine ssyevx(JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, IFAIL, INFO)
SSYEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for SY matrices
Definition: ssyevx.f:253
ssyevr_2stage
subroutine ssyevr_2stage(JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, LIWORK, INFO)
SSYEVR_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for SY mat...
Definition: ssyevr_2stage.f:381
ssyevx_2stage
subroutine ssyevx_2stage(JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, IFAIL, INFO)
SSYEVX_2STAGE computes the eigenvalues and, optionally, the left and/or right eigenvectors for SY mat...
Definition: ssyevx_2stage.f:300
serrst
subroutine serrst(PATH, NUNIT)
SERRST
Definition: serrst.f:61
ssytrd_sb2st
subroutine ssytrd_sb2st(STAGE1, VECT, UPLO, N, KD, AB, LDAB, D, E, HOUS, LHOUS, WORK, LWORK, INFO)
SSYTRD_SB2ST reduces a real symmetric band matrix A to real symmetric tridiagonal form T
Definition: ssytrd_sb2st.F:230