OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
derrgg.f
Go to the documentation of this file.
1*> \brief \b DERRGG
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 DERRGG( 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*> DERRGG tests the error exits for DGGES, DGGESX, DGGEV, DGGEVX,
25*> DGGGLM, DGGHRD, DGGLSE, DGGQRF, DGGRQF, DGGSVD3,
26*> DGGSVP3, DHGEQZ, DORCSD, DTGEVC, DTGEXC, DTGSEN, DTGSJA, DTGSNA,
27*> DGGES3, DGGEV3, and DTGSYL.
28*> \endverbatim
29*
30* Arguments:
31* ==========
32*
33*> \param[in] PATH
34*> \verbatim
35*> PATH is CHARACTER*3
36*> The LAPACK path name for the routines to be tested.
37*> \endverbatim
38*>
39*> \param[in] NUNIT
40*> \verbatim
41*> NUNIT is INTEGER
42*> The unit number for output.
43*> \endverbatim
44*
45* Authors:
46* ========
47*
48*> \author Univ. of Tennessee
49*> \author Univ. of California Berkeley
50*> \author Univ. of Colorado Denver
51*> \author NAG Ltd.
52*
53*> \ingroup double_eig
54*
55* =====================================================================
56 SUBROUTINE derrgg( PATH, NUNIT )
57*
58* -- LAPACK test routine --
59* -- LAPACK is a software package provided by Univ. of Tennessee, --
60* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
61*
62* .. Scalar Arguments ..
63 CHARACTER*3 PATH
64 INTEGER NUNIT
65* ..
66*
67* =====================================================================
68*
69* .. Parameters ..
70 INTEGER NMAX, LW
71 parameter( nmax = 3, lw = 6*nmax )
72 DOUBLE PRECISION ONE, ZERO
73 parameter( one = 1.0d+0, zero = 0.0d+0 )
74* ..
75* .. Local Scalars ..
76 CHARACTER*2 C2
77 INTEGER DUMMYK, DUMMYL, I, IFST, ILO, IHI, ILST, INFO,
78 $ J, M, NCYCLE, NT, SDIM, LWORK
79 DOUBLE PRECISION ANRM, BNRM, DIF, SCALE, TOLA, TOLB
80* ..
81* .. Local Arrays ..
82 LOGICAL BW( NMAX ), SEL( NMAX )
83 INTEGER IW( NMAX ), IDUM(NMAX)
84 DOUBLE PRECISION A( NMAX, NMAX ), B( NMAX, NMAX ), LS( NMAX ),
85 $ Q( NMAX, NMAX ), R1( NMAX ), R2( NMAX ),
86 $ R3( NMAX ), RCE( 2 ), RCV( 2 ), RS( NMAX ),
87 $ TAU( NMAX ), U( NMAX, NMAX ), V( NMAX, NMAX ),
88 $ W( LW ), Z( NMAX, NMAX )
89* ..
90* .. External Functions ..
91 LOGICAL DLCTES, DLCTSX, LSAMEN
92 EXTERNAL dlctes, dlctsx, lsamen
93* ..
94* .. External Subroutines ..
95 EXTERNAL chkxer, dgges, dggesx, dggev, dggevx, dggglm,
96 $ dgghrd, dgglse, dggqrf, dggrqf,
97 $ dhgeqz, dorcsd, dtgevc, dtgexc, dtgsen, dtgsja,
98 $ dtgsna, dtgsyl, dgghd3, dgges3, dggev3,
99 $ dggsvd3, dggsvp3, xlaenv
100* ..
101* .. Scalars in Common ..
102 LOGICAL LERR, OK
103 CHARACTER*32 SRNAMT
104 INTEGER INFOT, NOUT
105* ..
106* .. Common blocks ..
107 COMMON / infoc / infot, nout, ok, lerr
108 COMMON / srnamc / srnamt
109* ..
110* .. Executable Statements ..
111*
112 nout = nunit
113 WRITE( nout, fmt = * )
114 c2 = path( 2: 3 )
115*
116* Set the variables to innocuous values.
117*
118 DO 20 j = 1, nmax
119 sel( j ) = .true.
120 DO 10 i = 1, nmax
121 a( i, j ) = zero
122 b( i, j ) = zero
123 10 CONTINUE
124 20 CONTINUE
125 DO 30 i = 1, nmax
126 a( i, i ) = one
127 b( i, i ) = one
128 30 CONTINUE
129 ok = .true.
130 tola = 1.0d0
131 tolb = 1.0d0
132 ifst = 1
133 ilst = 1
134 nt = 0
135 lwork = 1
136*
137* Call XLAENV to set the parameters used in CLAQZ0
138*
139 CALL xlaenv( 12, 10 )
140 CALL xlaenv( 13, 12 )
141 CALL xlaenv( 14, 13 )
142 CALL xlaenv( 15, 2 )
143 CALL xlaenv( 17, 10 )
144*
145* Test error exits for the GG path.
146*
147 IF( lsamen( 2, c2, 'GG' ) ) THEN
148*
149* DGGHRD
150*
151 srnamt = 'DGGHRD'
152 infot = 1
153 CALL dgghrd( '/', 'N', 0, 1, 0, a, 1, b, 1, q, 1, z, 1, info )
154 CALL chkxer( 'DGGHRD', infot, nout, lerr, ok )
155 infot = 2
156 CALL dgghrd( 'N', '/', 0, 1, 0, a, 1, b, 1, q, 1, z, 1, info )
157 CALL chkxer( 'DGGHRD', infot, nout, lerr, ok )
158 infot = 3
159 CALL dgghrd( 'N', 'N', -1, 0, 0, a, 1, b, 1, q, 1, z, 1, info )
160 CALL chkxer( 'DGGHRD', infot, nout, lerr, ok )
161 infot = 4
162 CALL dgghrd( 'N', 'N', 0, 0, 0, a, 1, b, 1, q, 1, z, 1, info )
163 CALL chkxer( 'DGGHRD', infot, nout, lerr, ok )
164 infot = 5
165 CALL dgghrd( 'N', 'N', 0, 1, 1, a, 1, b, 1, q, 1, z, 1, info )
166 CALL chkxer( 'DGGHRD', infot, nout, lerr, ok )
167 infot = 7
168 CALL dgghrd( 'N', 'N', 2, 1, 1, a, 1, b, 2, q, 1, z, 1, info )
169 CALL chkxer( 'DGGHRD', infot, nout, lerr, ok )
170 infot = 9
171 CALL dgghrd( 'N', 'N', 2, 1, 1, a, 2, b, 1, q, 1, z, 1, info )
172 CALL chkxer( 'DGGHRD', infot, nout, lerr, ok )
173 infot = 11
174 CALL dgghrd( 'V', 'N', 2, 1, 1, a, 2, b, 2, q, 1, z, 1, info )
175 CALL chkxer( 'DGGHRD', infot, nout, lerr, ok )
176 infot = 13
177 CALL dgghrd( 'N', 'V', 2, 1, 1, a, 2, b, 2, q, 1, z, 1, info )
178 CALL chkxer( 'DGGHRD', infot, nout, lerr, ok )
179 nt = nt + 9
180*
181* DGGHD3
182*
183 srnamt = 'DGGHD3'
184 infot = 1
185 CALL dgghd3( '/', 'N', 0, 1, 0, a, 1, b, 1, q, 1, z, 1, w, lw,
186 $ info )
187 CALL chkxer( 'DGGHD3', infot, nout, lerr, ok )
188 infot = 2
189 CALL dgghd3( 'N', '/', 0, 1, 0, a, 1, b, 1, q, 1, z, 1, w, lw,
190 $ info )
191 CALL chkxer( 'DGGHD3', infot, nout, lerr, ok )
192 infot = 3
193 CALL dgghd3( 'N', 'N', -1, 0, 0, a, 1, b, 1, q, 1, z, 1, w, lw,
194 $ info )
195 CALL chkxer( 'DGGHD3', infot, nout, lerr, ok )
196 infot = 4
197 CALL dgghd3( 'N', 'N', 0, 0, 0, a, 1, b, 1, q, 1, z, 1, w, lw,
198 $ info )
199 CALL chkxer( 'DGGHD3', infot, nout, lerr, ok )
200 infot = 5
201 CALL dgghd3( 'N', 'N', 0, 1, 1, a, 1, b, 1, q, 1, z, 1, w, lw,
202 $ info )
203 CALL chkxer( 'DGGHD3', infot, nout, lerr, ok )
204 infot = 7
205 CALL dgghd3( 'N', 'N', 2, 1, 1, a, 1, b, 2, q, 1, z, 1, w, lw,
206 $ info )
207 CALL chkxer( 'DGGHD3', infot, nout, lerr, ok )
208 infot = 9
209 CALL dgghd3( 'N', 'N', 2, 1, 1, a, 2, b, 1, q, 1, z, 1, w, lw,
210 $ info )
211 CALL chkxer( 'DGGHD3', infot, nout, lerr, ok )
212 infot = 11
213 CALL dgghd3( 'V', 'N', 2, 1, 1, a, 2, b, 2, q, 1, z, 1, w, lw,
214 $ info )
215 CALL chkxer( 'DGGHD3', infot, nout, lerr, ok )
216 infot = 13
217 CALL dgghd3( 'N', 'V', 2, 1, 1, a, 2, b, 2, q, 1, z, 1, w, lw,
218 $ info )
219 CALL chkxer( 'DGGHD3', infot, nout, lerr, ok )
220 nt = nt + 9
221*
222* DHGEQZ
223*
224 srnamt = 'DHGEQZ'
225 infot = 1
226 CALL dhgeqz( '/', 'N', 'N', 0, 1, 0, a, 1, b, 1, r1, r2, r3, q,
227 $ 1, z, 1, w, lw, info )
228 CALL chkxer( 'DHGEQZ', infot, nout, lerr, ok )
229 infot = 2
230 CALL dhgeqz( 'E', '/', 'N', 0, 1, 0, a, 1, b, 1, r1, r2, r3, q,
231 $ 1, z, 1, w, lw, info )
232 CALL chkxer( 'DHGEQZ', infot, nout, lerr, ok )
233 infot = 3
234 CALL dhgeqz( 'E', 'N', '/', 0, 1, 0, a, 1, b, 1, r1, r2, r3, q,
235 $ 1, z, 1, w, lw, info )
236 CALL chkxer( 'dhgeqz', INFOT, NOUT, LERR, OK )
237 INFOT = 4
238 CALL DHGEQZ( 'e', 'n', 'n', -1, 0, 0, A, 1, B, 1, R1, R2, R3,
239 $ Q, 1, Z, 1, W, LW, INFO )
240 CALL CHKXER( 'dhgeqz', INFOT, NOUT, LERR, OK )
241 INFOT = 5
242 CALL DHGEQZ( 'e', 'n', 'n', 0, 0, 0, A, 1, B, 1, R1, R2, R3, Q,
243 $ 1, Z, 1, W, LW, INFO )
244 CALL CHKXER( 'dhgeqz', INFOT, NOUT, LERR, OK )
245 INFOT = 6
246 CALL DHGEQZ( 'e', 'n', 'n', 0, 1, 1, A, 1, B, 1, R1, R2, R3, Q,
247 $ 1, Z, 1, W, LW, INFO )
248 CALL CHKXER( 'dhgeqz', INFOT, NOUT, LERR, OK )
249 INFOT = 8
250 CALL DHGEQZ( 'e', 'n', 'n', 2, 1, 1, A, 1, B, 2, R1, R2, R3, Q,
251 $ 1, Z, 1, W, LW, INFO )
252 CALL CHKXER( 'dhgeqz', INFOT, NOUT, LERR, OK )
253 INFOT = 10
254 CALL DHGEQZ( 'e', 'n', 'n', 2, 1, 1, A, 2, B, 1, R1, R2, R3, Q,
255 $ 1, Z, 1, W, LW, INFO )
256 CALL CHKXER( 'dhgeqz', INFOT, NOUT, LERR, OK )
257 INFOT = 15
258 CALL DHGEQZ( 'e', 'v', 'n', 2, 1, 1, A, 2, B, 2, R1, R2, R3, Q,
259 $ 1, Z, 1, W, LW, INFO )
260 CALL CHKXER( 'dhgeqz', INFOT, NOUT, LERR, OK )
261 INFOT = 17
262 CALL DHGEQZ( 'e', 'n', 'v', 2, 1, 1, A, 2, B, 2, R1, R2, R3, Q,
263 $ 1, Z, 1, W, LW, INFO )
264 CALL CHKXER( 'dhgeqz', INFOT, NOUT, LERR, OK )
265 NT = NT + 10
266*
267* DTGEVC
268*
269 SRNAMT = 'dtgevc'
270 INFOT = 1
271 CALL DTGEVC( '/', 'a', SEL, 0, A, 1, B, 1, Q, 1, Z, 1, 0, M, W,
272 $ INFO )
273 CALL CHKXER( 'dtgevc', INFOT, NOUT, LERR, OK )
274 INFOT = 2
275 CALL DTGEVC( 'r', '/', SEL, 0, A, 1, B, 1, Q, 1, Z, 1, 0, M, W,
276 $ INFO )
277 CALL CHKXER( 'dtgevc', INFOT, NOUT, LERR, OK )
278 INFOT = 4
279 CALL DTGEVC( 'r', 'a', SEL, -1, A, 1, B, 1, Q, 1, Z, 1, 0, M,
280 $ W, INFO )
281 CALL CHKXER( 'dtgevc', INFOT, NOUT, LERR, OK )
282 INFOT = 6
283 CALL DTGEVC( 'r', 'a', SEL, 2, A, 1, B, 2, Q, 1, Z, 2, 0, M, W,
284 $ INFO )
285 CALL CHKXER( 'dtgevc', INFOT, NOUT, LERR, OK )
286 INFOT = 8
287 CALL DTGEVC( 'r', 'a', SEL, 2, A, 2, B, 1, Q, 1, Z, 2, 0, M, W,
288 $ INFO )
289 CALL CHKXER( 'dtgevc', INFOT, NOUT, LERR, OK )
290 INFOT = 10
291 CALL DTGEVC( 'l', 'a', SEL, 2, A, 2, B, 2, Q, 1, Z, 1, 0, M, W,
292 $ INFO )
293 CALL CHKXER( 'dtgevc', INFOT, NOUT, LERR, OK )
294 INFOT = 12
295 CALL DTGEVC( 'r', 'a', SEL, 2, A, 2, B, 2, Q, 1, Z, 1, 0, M, W,
296 $ INFO )
297 CALL CHKXER( 'dtgevc', INFOT, NOUT, LERR, OK )
298 INFOT = 13
299 CALL DTGEVC( 'r', 'a', SEL, 2, A, 2, B, 2, Q, 1, Z, 2, 1, M, W,
300 $ INFO )
301 CALL CHKXER( 'dtgevc', INFOT, NOUT, LERR, OK )
302 NT = NT + 8
303*
304* Test error exits for the GSV path.
305*
306 ELSE IF( LSAMEN( 3, PATH, 'gsv' ) ) THEN
307*
308* DGGSVD3
309*
310 SRNAMT = 'dggsvd3'
311 INFOT = 1
312 CALL DGGSVD3( '/', 'n', 'n', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B,
313 $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO )
314 CALL CHKXER( 'dggsvd3', INFOT, NOUT, LERR, OK )
315 INFOT = 2
316 CALL DGGSVD3( 'n', '/', 'n', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B,
317 $ 1, R1, R2, U, 1, V, 1, Q, 1, W, LWORK, IDUM, INFO )
318 CALL CHKXER( 'dggsvd3', INFOT, NOUT, LERR, OK )
319 INFOT = 3
320 CALL DGGSVD3( 'n', 'n', '/', 0, 0, 0, dummyk, dummyl, a, 1, b,
321 $ 1, r1, r2, u, 1, v, 1, q, 1, w, lwork, idum, info )
322 CALL chkxer( 'DGGSVD3', infot, nout, lerr, ok )
323 infot = 4
324 CALL dggsvd3( 'N', 'N', 'N', -1, 0, 0, dummyk, dummyl, a, 1, b,
325 $ 1, r1, r2, u, 1, v, 1, q, 1, w, lwork, idum, info )
326 CALL chkxer( 'DGGSVD3', infot, nout, lerr, ok )
327 infot = 5
328 CALL dggsvd3( 'N', 'N', 'N', 0, -1, 0, dummyk, dummyl, a, 1, b,
329 $ 1, r1, r2, u, 1, v, 1, q, 1, w, lwork, idum, info )
330 CALL chkxer( 'DGGSVD3', infot, nout, lerr, ok )
331 infot = 6
332 CALL dggsvd3( 'N', 'N', 'N', 0, 0, -1, dummyk, dummyl, a, 1, b,
333 $ 1, r1, r2, u, 1, v, 1, q, 1, w, lwork, idum, info )
334 CALL chkxer( 'DGGSVD3', infot, nout, lerr, ok )
335 infot = 10
336 CALL dggsvd3( 'N', 'N', 'N', 2, 1, 1, dummyk, dummyl, a, 1, b,
337 $ 1, r1, r2, u, 1, v, 1, q, 1, w, lwork, idum, info )
338 CALL chkxer( 'DGGSVD3', infot, nout, lerr, ok )
339 infot = 12
340 CALL dggsvd3( 'N', 'N', 'N', 1, 1, 2, dummyk, dummyl, a, 1, b,
341 $ 1, r1, r2, u, 1, v, 1, q, 1, w, lwork, idum, info )
342 CALL chkxer( 'DGGSVD3', infot, nout, lerr, ok )
343 infot = 16
344 CALL dggsvd3( 'U', 'N', 'N', 2, 2, 2, dummyk, dummyl, a, 2, b,
345 $ 2, r1, r2, u, 1, v, 1, q, 1, w, lwork, idum, info )
346 CALL chkxer( 'DGGSVD3', infot, nout, lerr, ok )
347 infot = 18
348 CALL dggsvd3( 'N', 'V', 'N', 1, 1, 2, dummyk, dummyl, a, 1, b,
349 $ 2, r1, r2, u, 1, v, 1, q, 1, w, lwork, idum, info )
350 CALL chkxer( 'DGGSVD3', infot, nout, lerr, ok )
351 infot = 20
352 CALL dggsvd3( 'N', 'N', 'Q', 1, 2, 1, dummyk, dummyl, a, 1, b,
353 $ 1, r1, r2, u, 1, v, 1, q, 1, w, lwork, idum, info )
354 CALL chkxer( 'DGGSVD3', infot, nout, lerr, ok )
355 nt = nt + 11
356*
357* DGGSVP3
358*
359 srnamt = 'dggsvp3'
360 INFOT = 1
361 CALL DGGSVP3( '/', 'n', 'n', 0, 0, 0, A, 1, B, 1, TOLA, TOLB,
362 $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, TAU, W,
363 $ LWORK, INFO )
364 CALL CHKXER( 'dggsvp3', INFOT, NOUT, LERR, OK )
365 INFOT = 2
366 CALL DGGSVP3( 'n', '/', 'n', 0, 0, 0, A, 1, B, 1, TOLA, TOLB,
367 $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, TAU, W,
368 $ LWORK, INFO )
369 CALL CHKXER( 'dggsvp3', INFOT, NOUT, LERR, OK )
370 INFOT = 3
371 CALL DGGSVP3( 'n', 'N', '/', 0, 0, 0, a, 1, b, 1, tola, tolb,
372 $ dummyk, dummyl, u, 1, v, 1, q, 1, iw, tau, w,
373 $ lwork, info )
374 CALL chkxer( 'DGGSVP3', infot, nout, lerr, ok )
375 infot = 4
376 CALL dggsvp3( 'N', 'N', 'N', -1, 0, 0, a, 1, b, 1, tola, tolb,
377 $ dummyk, dummyl, u, 1, v, 1, q, 1, iw, tau, w,
378 $ lwork, info )
379 CALL chkxer( 'DGGSVP3', infot, nout, lerr, ok )
380 infot = 5
381 CALL dggsvp3( 'N', 'N', 'N', 0, -1, 0, a, 1, b, 1, tola, tolb,
382 $ dummyk, dummyl, u, 1, v, 1, q, 1, iw, tau, w,
383 $ lwork, info )
384 CALL chkxer( 'DGGSVP3', infot, nout, lerr, ok )
385 infot = 6
386 CALL dggsvp3( 'N', 'N', 'N', 0, 0, -1, a, 1, b, 1, tola, tolb,
387 $ dummyk, dummyl, u, 1, v, 1, q, 1, iw, tau, w,
388 $ lwork, info )
389 CALL chkxer( 'DGGSVP3', infot, nout, lerr, ok )
390 infot = 8
391 CALL dggsvp3( 'n', 'n', 'n', 2, 1, 1, A, 1, B, 1, TOLA, TOLB,
392 $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, TAU, W,
393 $ LWORK, INFO )
394 CALL CHKXER( 'dggsvp3', INFOT, NOUT, LERR, OK )
395 INFOT = 10
396 CALL DGGSVP3( 'n', 'n', 'n', 1, 2, 1, A, 1, B, 1, TOLA, TOLB,
397 $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, TAU, W,
398 $ LWORK, INFO )
399 CALL CHKXER( 'dggsvp3', INFOT, NOUT, LERR, OK )
400 INFOT = 16
401 CALL DGGSVP3( 'u', 'n', 'n', 2, 2, 2, A, 2, B, 2, TOLA, TOLB,
402 $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, TAU, W,
403 $ LWORK, INFO )
404 CALL CHKXER( 'dggsvp3', INFOT, NOUT, LERR, OK )
405 INFOT = 18
406 CALL DGGSVP3( 'n', 'v', 'n', 1, 2, 1, A, 1, B, 2, TOLA, TOLB,
407 $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, TAU, W,
408 $ LWORK, INFO )
409 CALL CHKXER( 'dggsvp3', INFOT, NOUT, LERR, OK )
410 INFOT = 20
411 CALL DGGSVP3( 'n', 'n', 'q', 1, 1, 2, A, 1, B, 1, TOLA, TOLB,
412 $ DUMMYK, DUMMYL, U, 1, V, 1, Q, 1, IW, TAU, W,
413 $ LWORK, INFO )
414 CALL CHKXER( 'dggsvp3', INFOT, NOUT, LERR, OK )
415 NT = NT + 11
416*
417* DTGSJA
418*
419 SRNAMT = 'dtgsja'
420 INFOT = 1
421 CALL DTGSJA( '/', 'n', 'n', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B,
422 $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W,
423 $ NCYCLE, INFO )
424 CALL CHKXER( 'dtgsja', INFOT, NOUT, LERR, OK )
425 INFOT = 2
426 CALL DTGSJA( 'n', '/', 'n', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B,
427 $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W,
428 $ NCYCLE, INFO )
429 CALL CHKXER( 'dtgsja', INFOT, NOUT, LERR, OK )
430 INFOT = 3
431 CALL DTGSJA( 'n', 'n', '/', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B,
432 $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W,
433 $ NCYCLE, INFO )
434 CALL CHKXER( 'dtgsja', INFOT, NOUT, LERR, OK )
435 INFOT = 4
436 CALL DTGSJA( 'n', 'n', 'n', -1, 0, 0, DUMMYK, DUMMYL, A, 1, B,
437 $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W,
438 $ NCYCLE, INFO )
439 CALL CHKXER( 'dtgsja', INFOT, NOUT, LERR, OK )
440 INFOT = 5
441 CALL DTGSJA( 'n', 'n', 'n', 0, -1, 0, DUMMYK, DUMMYL, A, 1, B,
442 $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W,
443 $ NCYCLE, INFO )
444 CALL CHKXER( 'dtgsja', INFOT, NOUT, LERR, OK )
445 INFOT = 6
446 CALL DTGSJA( 'n', 'n', 'n', 0, 0, -1, DUMMYK, DUMMYL, A, 1, B,
447 $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W,
448 $ NCYCLE, INFO )
449 CALL CHKXER( 'dtgsja', INFOT, NOUT, LERR, OK )
450 INFOT = 10
451 CALL DTGSJA( 'n', 'n', 'n', 0, 0, 0, DUMMYK, DUMMYL, A, 0, B,
452 $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W,
453 $ NCYCLE, INFO )
454 CALL CHKXER( 'dtgsja', INFOT, NOUT, LERR, OK )
455 INFOT = 12
456 CALL DTGSJA( 'n', 'n', 'n', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B,
457 $ 0, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 1, W,
458 $ NCYCLE, INFO )
459 CALL CHKXER( 'dtgsja', INFOT, NOUT, LERR, OK )
460 INFOT = 18
461 CALL DTGSJA( 'u', 'n', 'n', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B,
462 $ 1, TOLA, TOLB, R1, R2, U, 0, V, 1, Q, 1, W,
463 $ NCYCLE, INFO )
464 CALL CHKXER( 'dtgsja', INFOT, NOUT, LERR, OK )
465 INFOT = 20
466 CALL DTGSJA( 'n', 'v', 'n', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B,
467 $ 1, TOLA, TOLB, R1, R2, U, 1, V, 0, Q, 1, W,
468 $ NCYCLE, INFO )
469 CALL CHKXER( 'dtgsja', INFOT, NOUT, LERR, OK )
470 INFOT = 22
471 CALL DTGSJA( 'n', 'n', 'q', 0, 0, 0, DUMMYK, DUMMYL, A, 1, B,
472 $ 1, TOLA, TOLB, R1, R2, U, 1, V, 1, Q, 0, W,
473 $ NCYCLE, INFO )
474 CALL CHKXER( 'dtgsja', INFOT, NOUT, LERR, OK )
475 NT = NT + 11
476*
477* Test error exits for the GLM path.
478*
479 ELSE IF( LSAMEN( 3, PATH, 'glm' ) ) THEN
480*
481* DGGGLM
482*
483 SRNAMT = 'dggglm'
484 INFOT = 1
485 CALL DGGGLM( -1, 0, 0, A, 1, B, 1, R1, R2, R3, W, LW, INFO )
486 CALL CHKXER( 'dggglm', INFOT, NOUT, LERR, OK )
487 INFOT = 2
488 CALL DGGGLM( 0, -1, 0, A, 1, B, 1, R1, R2, R3, W, LW, INFO )
489 CALL CHKXER( 'dggglm', INFOT, NOUT, LERR, OK )
490 INFOT = 2
491 CALL DGGGLM( 0, 1, 0, A, 1, B, 1, R1, R2, R3, W, LW, INFO )
492 CALL CHKXER( 'dggglm', INFOT, NOUT, LERR, OK )
493 INFOT = 3
494 CALL DGGGLM( 0, 0, -1, A, 1, B, 1, R1, R2, R3, W, LW, INFO )
495 CALL CHKXER( 'dggglm', INFOT, NOUT, LERR, OK )
496 INFOT = 3
497 CALL DGGGLM( 1, 0, 0, A, 1, B, 1, R1, R2, R3, W, LW, INFO )
498 CALL CHKXER( 'dggglm', INFOT, NOUT, LERR, OK )
499 INFOT = 5
500 CALL DGGGLM( 0, 0, 0, A, 0, B, 1, R1, R2, R3, W, LW, INFO )
501 CALL CHKXER( 'dggglm', INFOT, NOUT, LERR, OK )
502 INFOT = 7
503 CALL DGGGLM( 0, 0, 0, A, 1, B, 0, R1, R2, R3, W, LW, INFO )
504 CALL CHKXER( 'dggglm', INFOT, NOUT, LERR, OK )
505 INFOT = 12
506 CALL DGGGLM( 1, 1, 1, A, 1, B, 1, R1, R2, R3, W, 1, INFO )
507 CALL CHKXER( 'dggglm', INFOT, NOUT, LERR, OK )
508 NT = NT + 8
509*
510* Test error exits for the LSE path.
511*
512 ELSE IF( LSAMEN( 3, PATH, 'lse' ) ) THEN
513*
514* DGGLSE
515*
516 SRNAMT = 'dgglse'
517 INFOT = 1
518 CALL DGGLSE( -1, 0, 0, A, 1, B, 1, R1, R2, R3, W, LW, INFO )
519 CALL CHKXER( 'dgglse', INFOT, NOUT, LERR, OK )
520 INFOT = 2
521 CALL DGGLSE( 0, -1, 0, A, 1, B, 1, R1, R2, R3, W, LW, INFO )
522 CALL CHKXER( 'dgglse', INFOT, NOUT, LERR, OK )
523 INFOT = 3
524 CALL DGGLSE( 0, 0, -1, A, 1, B, 1, R1, R2, R3, W, LW, INFO )
525 CALL CHKXER( 'dgglse', INFOT, NOUT, LERR, OK )
526 INFOT = 3
527 CALL DGGLSE( 0, 0, 1, A, 1, B, 1, R1, R2, R3, W, LW, INFO )
528 CALL CHKXER( 'dgglse', INFOT, NOUT, LERR, OK )
529 INFOT = 3
530 CALL DGGLSE( 0, 1, 0, A, 1, B, 1, R1, R2, R3, W, LW, INFO )
531 CALL CHKXER( 'dgglse', INFOT, NOUT, LERR, OK )
532 INFOT = 5
533 CALL DGGLSE( 0, 0, 0, A, 0, B, 1, R1, R2, R3, W, LW, INFO )
534 CALL CHKXER( 'dgglse', INFOT, NOUT, LERR, OK )
535 INFOT = 7
536 CALL DGGLSE( 0, 0, 0, A, 1, B, 0, R1, R2, R3, W, LW, INFO )
537 CALL CHKXER( 'dgglse', INFOT, NOUT, LERR, OK )
538 INFOT = 12
539 CALL DGGLSE( 1, 1, 1, A, 1, B, 1, R1, R2, R3, W, 1, INFO )
540 CALL CHKXER( 'dgglse', INFOT, NOUT, LERR, OK )
541 NT = NT + 8
542*
543* Test error exits for the CSD path.
544*
545 ELSE IF( LSAMEN( 3, PATH, 'csd' ) ) THEN
546*
547* DORCSD
548*
549 SRNAMT = 'dorcsd'
550 INFOT = 7
551 CALL DORCSD( 'y', 'y', 'y', 'y', 'n', 'n',
552 $ -1, 0, 0, A, 1, A,
553 $ 1, A, 1, A, 1, A,
554 $ A, 1, A, 1, A, 1, A,
555 $ 1, W, LW, IW, INFO )
556 CALL CHKXER( 'dorcsd', INFOT, NOUT, LERR, OK )
557 INFOT = 8
558 CALL DORCSD( 'y', 'y', 'y', 'y', 'n', 'n',
559 $ 1, -1, 0, A, 1, A,
560 $ 1, A, 1, A, 1, A,
561 $ A, 1, A, 1, A, 1, A,
562 $ 1, W, LW, IW, INFO )
563 CALL CHKXER( 'dorcsd', INFOT, NOUT, LERR, OK )
564 INFOT = 9
565 CALL DORCSD( 'y', 'y', 'y', 'y', 'n', 'n',
566 $ 1, 1, -1, A, 1, A,
567 $ 1, A, 1, A, 1, A,
568 $ A, 1, A, 1, A, 1, A,
569 $ 1, W, LW, IW, INFO )
570 CALL CHKXER( 'dorcsd', INFOT, NOUT, LERR, OK )
571 INFOT = 11
572 CALL DORCSD( 'y', 'y', 'y', 'y', 'n', 'n',
573 $ 1, 1, 1, A, -1, A,
574 $ 1, A, 1, A, 1, A,
575 $ A, 1, A, 1, A, 1, A,
576 $ 1, W, LW, IW, INFO )
577 CALL CHKXER( 'dorcsd', INFOT, NOUT, LERR, OK )
578 INFOT = 20
579 CALL DORCSD( 'y', 'y', 'y', 'y', 'n', 'n',
580 $ 1, 1, 1, A, 1, A,
581 $ 1, A, 1, A, 1, A,
582 $ A, -1, A, 1, A, 1, A,
583 $ 1, W, LW, IW, INFO )
584 CALL CHKXER( 'dorcsd', INFOT, NOUT, LERR, OK )
585 INFOT = 22
586 CALL DORCSD( 'y', 'y', 'y', 'y', 'n', 'n',
587 $ 1, 1, 1, A, 1, A,
588 $ 1, A, 1, A, 1, A,
589 $ A, 1, A, -1, A, 1, A,
590 $ 1, W, LW, IW, INFO )
591 CALL CHKXER( 'dorcsd', INFOT, NOUT, LERR, OK )
592 INFOT = 24
593 CALL DORCSD( 'y', 'y', 'y', 'y', 'n', 'N',
594 $ 1, 1, 1, a, 1, a,
595 $ 1, a, 1, a, 1, a,
596 $ a, 1, a, 1, a, -1, a,
597 $ 1, w, lw, iw, info )
598 CALL chkxer( 'DORCSD', infot, nout, lerr, ok )
599 infot = 26
600 CALL dorcsd( 'y', 'y', 'y', 'y', 'n', 'n',
601 $ 1, 1, 1, A, 1, A,
602 $ 1, A, 1, A, 1, A,
603 $ A, 1, A, 1, A, 1, A,
604 $ -1, W, LW, IW, INFO )
605 CALL CHKXER( 'dorcsd', INFOT, NOUT, LERR, OK )
606 NT = NT + 8
607*
608* Test error exits for the GQR path.
609*
610 ELSE IF( LSAMEN( 3, PATH, 'gqr' ) ) THEN
611*
612* DGGQRF
613*
614 SRNAMT = 'dggqrf'
615 INFOT = 1
616 CALL DGGQRF( -1, 0, 0, A, 1, R1, B, 1, R2, W, LW, INFO )
617 CALL CHKXER( 'dggqrf', INFOT, NOUT, LERR, OK )
618 INFOT = 2
619 CALL DGGQRF( 0, -1, 0, A, 1, R1, B, 1, R2, W, LW, INFO )
620 CALL CHKXER( 'dggqrf', INFOT, NOUT, LERR, OK )
621 INFOT = 3
622 CALL DGGQRF( 0, 0, -1, A, 1, R1, B, 1, R2, W, LW, INFO )
623 CALL CHKXER( 'dggqrf', INFOT, NOUT, LERR, OK )
624 INFOT = 5
625 CALL DGGQRF( 0, 0, 0, A, 0, R1, B, 1, R2, W, LW, INFO )
626 CALL CHKXER( 'dggqrf', INFOT, NOUT, LERR, OK )
627 INFOT = 8
628 CALL DGGQRF( 0, 0, 0, A, 1, R1, B, 0, R2, W, LW, INFO )
629 CALL CHKXER( 'dggqrf', INFOT, NOUT, LERR, OK )
630 INFOT = 11
631 CALL DGGQRF( 1, 1, 2, A, 1, R1, B, 1, R2, W, 1, INFO )
632 CALL CHKXER( 'dggqrf', INFOT, NOUT, LERR, OK )
633 NT = NT + 6
634*
635* DGGRQF
636*
637 SRNAMT = 'dggrqf'
638 INFOT = 1
639 CALL DGGRQF( -1, 0, 0, A, 1, R1, B, 1, R2, W, LW, INFO )
640 CALL CHKXER( 'dggrqf', INFOT, NOUT, LERR, OK )
641 INFOT = 2
642 CALL DGGRQF( 0, -1, 0, A, 1, R1, B, 1, R2, W, LW, INFO )
643 CALL CHKXER( 'dggrqf', INFOT, NOUT, LERR, OK )
644 INFOT = 3
645 CALL DGGRQF( 0, 0, -1, A, 1, R1, B, 1, R2, W, LW, INFO )
646 CALL CHKXER( 'dggrqf', INFOT, NOUT, LERR, OK )
647 INFOT = 5
648 CALL DGGRQF( 0, 0, 0, A, 0, R1, B, 1, R2, W, LW, INFO )
649 CALL CHKXER( 'dggrqf', INFOT, NOUT, LERR, OK )
650 INFOT = 8
651 CALL DGGRQF( 0, 0, 0, A, 1, R1, B, 0, R2, W, LW, INFO )
652 CALL CHKXER( 'dggrqf', INFOT, NOUT, LERR, OK )
653 INFOT = 11
654 CALL DGGRQF( 1, 1, 2, A, 1, R1, B, 1, R2, W, 1, INFO )
655 CALL CHKXER( 'dggrqf', INFOT, NOUT, LERR, OK )
656 NT = NT + 6
657*
658* Test error exits for the DGS, DGV, DGX, and DXV paths.
659*
660 ELSE IF( LSAMEN( 3, PATH, 'dgs.OR.' )
661 $ LSAMEN( 3, PATH, 'dgv.OR.' )
662 $ LSAMEN( 3, PATH, 'dgx.OR.' ) LSAMEN( 3, PATH, 'dxv' ) )
663 $ THEN
664*
665* DGGES
666*
667 SRNAMT = 'dgges '
668 INFOT = 1
669 CALL DGGES( '/', 'n', 's', DLCTES, 1, A, 1, B, 1, SDIM, R1, R2,
670 $ R3, Q, 1, U, 1, W, 1, BW, INFO )
671 CALL CHKXER( 'dgges ', INFOT, NOUT, LERR, OK )
672 INFOT = 2
673 CALL DGGES( 'n', '/', 's', DLCTES, 1, A, 1, B, 1, SDIM, R1, R2,
674 $ R3, Q, 1, U, 1, W, 1, BW, INFO )
675 CALL CHKXER( 'dgges ', INFOT, NOUT, LERR, OK )
676 INFOT = 3
677 CALL DGGES( 'n', 'v', '/', DLCTES, 1, A, 1, B, 1, SDIM, R1, R2,
678 $ R3, Q, 1, U, 1, W, 1, BW, INFO )
679 CALL CHKXER( 'dgges ', INFOT, NOUT, LERR, OK )
680 INFOT = 5
681 CALL DGGES( 'n', 'v', 's', DLCTES, -1, A, 1, B, 1, SDIM, R1,
682 $ R2, R3, Q, 1, U, 1, W, 1, BW, INFO )
683 CALL CHKXER( 'dgges ', INFOT, NOUT, LERR, OK )
684 INFOT = 7
685 CALL DGGES( 'n', 'v', 's', DLCTES, 1, A, 0, B, 1, SDIM, R1, R2,
686 $ R3, Q, 1, U, 1, W, 1, BW, INFO )
687 CALL CHKXER( 'dgges ', INFOT, NOUT, LERR, OK )
688 INFOT = 9
689 CALL DGGES( 'n', 'v', 's', DLCTES, 1, A, 1, B, 0, SDIM, R1, R2,
690 $ R3, Q, 1, U, 1, W, 1, BW, INFO )
691 CALL CHKXER( 'dgges ', INFOT, NOUT, LERR, OK )
692 INFOT = 15
693 CALL DGGES( 'n', 'v', 's', DLCTES, 1, A, 1, B, 1, SDIM, R1, R2,
694 $ R3, Q, 0, U, 1, W, 1, BW, INFO )
695 CALL CHKXER( 'dgges ', INFOT, NOUT, LERR, OK )
696 INFOT = 15
697 CALL DGGES( 'v', 'v', 's', DLCTES, 2, A, 2, B, 2, SDIM, R1, R2,
698 $ R3, Q, 1, U, 2, W, 1, BW, INFO )
699 CALL CHKXER( 'dgges ', INFOT, NOUT, LERR, OK )
700 INFOT = 17
701 CALL DGGES( 'n', 'v', 's', DLCTES, 1, A, 1, B, 1, SDIM, R1, R2,
702 $ R3, Q, 1, U, 0, W, 1, BW, INFO )
703 CALL CHKXER( 'dgges ', INFOT, NOUT, LERR, OK )
704 INFOT = 17
705 CALL DGGES( 'v', 'v', 's', DLCTES, 2, A, 2, B, 2, SDIM, R1, R2,
706 $ R3, Q, 2, U, 1, W, 1, BW, INFO )
707 CALL CHKXER( 'dgges ', INFOT, NOUT, LERR, OK )
708 INFOT = 19
709 CALL DGGES( 'v', 'v', 's', DLCTES, 2, A, 2, B, 2, SDIM, R1, R2,
710 $ R3, Q, 2, U, 2, W, 1, BW, INFO )
711 CALL CHKXER( 'dgges ', INFOT, NOUT, LERR, OK )
712 NT = NT + 11
713*
714* DGGES3
715*
716 SRNAMT = 'dgges3 '
717 INFOT = 1
718 CALL DGGES3( '/', 'n', 's', DLCTES, 1, A, 1, B, 1, SDIM, R1,
719 $ R2, R3, Q, 1, U, 1, W, 1, BW, INFO )
720 CALL CHKXER( 'dgges3 ', INFOT, NOUT, LERR, OK )
721 INFOT = 2
722 CALL DGGES3( 'n', '/', 's', DLCTES, 1, A, 1, B, 1, SDIM, R1,
723 $ R2, R3, Q, 1, U, 1, W, 1, BW, INFO )
724 CALL CHKXER( 'dgges3 ', INFOT, NOUT, LERR, OK )
725 INFOT = 3
726 CALL DGGES3( 'n', 'v', '/', DLCTES, 1, A, 1, B, 1, SDIM, R1,
727 $ R2, R3, Q, 1, U, 1, W, 1, BW, INFO )
728 CALL CHKXER( 'dgges3 ', INFOT, NOUT, LERR, OK )
729 INFOT = 5
730 CALL DGGES3( 'n', 'v', 's', DLCTES, -1, A, 1, B, 1, SDIM, R1,
731 $ R2, R3, Q, 1, U, 1, W, 1, BW, INFO )
732 CALL CHKXER( 'dgges3 ', INFOT, NOUT, LERR, OK )
733 INFOT = 7
734 CALL DGGES3( 'n', 'v', 's', DLCTES, 1, A, 0, B, 1, SDIM, R1,
735 $ R2, R3, Q, 1, U, 1, W, 1, BW, INFO )
736 CALL CHKXER( 'dgges3 ', INFOT, NOUT, LERR, OK )
737 INFOT = 9
738 CALL DGGES3( 'n', 'v', 's', DLCTES, 1, A, 1, B, 0, SDIM, R1,
739 $ R2, R3, Q, 1, U, 1, W, 1, BW, INFO )
740 CALL CHKXER( 'dgges3 ', INFOT, NOUT, LERR, OK )
741 INFOT = 15
742 CALL DGGES3( 'n', 'v', 's', DLCTES, 1, A, 1, B, 1, SDIM, R1,
743 $ R2, R3, Q, 0, U, 1, W, 1, BW, INFO )
744 CALL CHKXER( 'dgges3 ', infot, nout, lerr, ok )
745 infot = 15
746 CALL dgges3( 'V', 'V', 'S', dlctes, 2, a, 2, b, 2, sdim, r1,
747 $ r2, r3, q, 1, u, 2, w, 1, bw, info )
748 CALL chkxer( 'DGGES3 ', infot, nout, lerr, ok )
749 infot = 17
750 CALL dgges3( 'N', 'V', 'S', dlctes, 1, a, 1, b, 1, sdim, r1,
751 $ r2, r3, q, 1, u, 0, w, 1, bw, info )
752 CALL chkxer( 'dgges3 ', INFOT, NOUT, LERR, OK )
753 INFOT = 17
754 CALL DGGES3( 'v', 'V', 'S', dlctes, 2, a, 2, b, 2, sdim, r1,
755 $ r2, r3, q, 2, u, 1, w, 1, bw, info )
756 CALL chkxer( 'DGGES3 ', infot, nout, lerr, ok )
757 infot = 19
758 CALL dgges3( 'V', 'V', 'S', dlctes, 2, a, 2, b, 2, sdim, r1,
759 $ r2, r3, q, 2, u, 2, w, 1, bw, info )
760 CALL chkxer( 'DGGES3 ', infot, nout, lerr, ok )
761 nt = nt + 11
762*
763* DGGESX
764*
765 srnamt = 'DGGESX'
766 infot = 1
767 CALL dggesx( '/', 'N', 'S', dlctsx, 'N', 1, a, 1, b, 1, sdim,
768 $ r1, r2, r3, q, 1, u, 1, rce, rcv, w, 1, iw, 1, bw,
769 $ info )
770 CALL chkxer( 'DGGESX', infot, nout, lerr, ok )
771 infot = 2
772 CALL dggesx( 'N', '/', 'S', dlctsx, 'N', 1, a, 1, b, 1, sdim,
773 $ r1, r2, r3, q, 1, u, 1, rce, rcv, w, 1, iw, 1, bw,
774 $ info )
775 CALL chkxer( 'DGGESX', infot, nout, lerr, ok )
776 infot = 3
777 CALL dggesx( 'V', 'V', '/', dlctsx, 'N', 1, a, 1, b, 1, sdim,
778 $ r1, r2, r3, q, 1, u, 1, rce, rcv, w, 1, iw, 1, bw,
779 $ info )
780 CALL chkxer( 'DGGESX', infot, nout, lerr, ok )
781 infot = 5
782 CALL dggesx( 'V', 'V', 'S', dlctsx, '/', 1, a, 1, b, 1, sdim,
783 $ r1, r2, r3, q, 1, u, 1, rce, rcv, w, 1, iw, 1, bw,
784 $ info )
785 CALL chkxer( 'DGGESX', infot, nout, lerr, ok )
786 infot = 6
787 CALL dggesx( 'V', 'V', 'S', dlctsx, 'B', -1, a, 1, b, 1, sdim,
788 $ r1, r2, r3, q, 1, u, 1, rce, rcv, w, 1, iw, 1, bw,
789 $ info )
790 CALL chkxer( 'DGGESX', infot, nout, lerr, ok )
791 infot = 8
792 CALL dggesx( 'V', 'V', 'S', dlctsx, 'B', 1, a, 0, b, 1, sdim,
793 $ r1, r2, r3, q, 1, u, 1, rce, rcv, w, 1, iw, 1, bw,
794 $ info )
795 CALL chkxer( 'DGGESX', infot, nout, lerr, ok )
796 infot = 10
797 CALL dggesx( 'V', 'V', 'S', dlctsx, 'B', 1, a, 1, b, 0, sdim,
798 $ r1, r2, r3, q, 1, u, 1, rce, rcv, w, 1, iw, 1, bw,
799 $ info )
800 CALL chkxer( 'dggesx', INFOT, NOUT, LERR, OK )
801 INFOT = 16
802 CALL DGGESX( 'v', 'v', 's', DLCTSX, 'b', 1, A, 1, B, 1, SDIM,
803 $ R1, R2, R3, Q, 0, U, 1, RCE, RCV, W, 1, IW, 1, BW,
804 $ INFO )
805 CALL CHKXER( 'dggesx', INFOT, NOUT, LERR, OK )
806 INFOT = 16
807 CALL DGGESX( 'v', 'v', 's', DLCTSX, 'b', 2, A, 2, B, 2, SDIM,
808 $ R1, R2, R3, Q, 1, U, 1, RCE, RCV, W, 1, IW, 1, BW,
809 $ INFO )
810 CALL CHKXER( 'dggesx', INFOT, NOUT, LERR, OK )
811 INFOT = 18
812 CALL DGGESX( 'v', 'v', 's', DLCTSX, 'b', 1, A, 1, B, 1, SDIM,
813 $ R1, R2, R3, Q, 1, U, 0, RCE, RCV, W, 1, IW, 1, BW,
814 $ INFO )
815 CALL CHKXER( 'dggesx', INFOT, NOUT, LERR, OK )
816 INFOT = 18
817 CALL DGGESX( 'v', 'v', 's', DLCTSX, 'b', 2, A, 2, B, 2, SDIM,
818 $ R1, R2, R3, Q, 2, U, 1, RCE, RCV, W, 1, IW, 1, BW,
819 $ INFO )
820 CALL CHKXER( 'dggesx', INFOT, NOUT, LERR, OK )
821 INFOT = 22
822 CALL DGGESX( 'v', 'v', 's', DLCTSX, 'b', 2, A, 2, B, 2, SDIM,
823 $ R1, R2, R3, Q, 2, U, 2, RCE, RCV, W, 1, IW, 1, BW,
824 $ INFO )
825 CALL CHKXER( 'dggesx', INFOT, NOUT, LERR, OK )
826 INFOT = 24
827 CALL DGGESX( 'v', 'v', 's', DLCTSX, 'v', 1, A, 1, B, 1, SDIM,
828 $ R1, R2, R3, Q, 1, U, 1, RCE, RCV, W, 32, IW, 0,
829 $ BW, INFO )
830 CALL CHKXER( 'dggesx', INFOT, NOUT, LERR, OK )
831 NT = NT + 13
832*
833* DGGEV
834*
835 SRNAMT = 'dggev '
836 INFOT = 1
837 CALL DGGEV( '/', 'n', 1, A, 1, B, 1, R1, R2, R3, Q, 1, U, 1, W,
838 $ 1, INFO )
839 CALL CHKXER( 'dggev ', INFOT, NOUT, LERR, OK )
840 INFOT = 2
841 CALL DGGEV( 'n', '/', 1, A, 1, B, 1, R1, R2, R3, Q, 1, U, 1, W,
842 $ 1, INFO )
843 CALL CHKXER( 'dggev ', INFOT, NOUT, LERR, OK )
844 INFOT = 3
845 CALL DGGEV( 'v', 'v', -1, A, 1, B, 1, R1, R2, R3, Q, 1, U, 1,
846 $ W, 1, INFO )
847 CALL CHKXER( 'dggev ', infot, nout, lerr, ok )
848 infot = 5
849 CALL dggev( 'V', 'V', 1, a, 0, b, 1, r1, r2, r3, q, 1, u, 1, w,
850 $ 1, info )
851 CALL chkxer( 'DGGEV ', infot, nout, lerr, ok )
852 infot = 7
853 CALL dggev( 'V', 'V', 1, a, 1, b, 0, r1, r2, r3, q, 1, u, 1, w,
854 $ 1, info )
855 CALL chkxer( 'DGGEV ', infot, nout, lerr, ok )
856 infot = 12
857 CALL dggev( 'N', 'v', 1, A, 1, B, 1, R1, R2, R3, Q, 0, U, 1, W,
858 $ 1, INFO )
859 CALL CHKXER( 'dggev ', INFOT, NOUT, LERR, OK )
860 INFOT = 12
861 CALL DGGEV( 'v', 'v', 2, A, 2, B, 2, R1, R2, R3, Q, 1, U, 2, W,
862 $ 1, INFO )
863 CALL CHKXER( 'dggev ', INFOT, NOUT, LERR, OK )
864 INFOT = 14
865 CALL DGGEV( 'v', 'n', 2, A, 2, B, 2, R1, R2, R3, Q, 2, U, 0, W,
866 $ 1, INFO )
867 CALL CHKXER( 'dggev ', INFOT, NOUT, LERR, OK )
868 INFOT = 14
869 CALL DGGEV( 'v', 'v', 2, A, 2, B, 2, R1, R2, R3, Q, 2, U, 1, W,
870 $ 1, INFO )
871 CALL CHKXER( 'dggev ', INFOT, NOUT, LERR, OK )
872 INFOT = 16
873 CALL DGGEV( 'v', 'v', 1, A, 1, B, 1, R1, R2, R3, Q, 1, U, 1, W,
874 $ 1, INFO )
875 CALL CHKXER( 'dggev ', INFOT, NOUT, LERR, OK )
876 NT = NT + 10
877*
878* DGGEV3
879*
880 CALL XLAENV( 12, 20 )
881 CALL XLAENV( 13, 4 )
882 CALL XLAENV( 14, 13 )
883 CALL XLAENV( 15, 2 )
884 CALL XLAENV( 17, 10 )
885 SRNAMT = 'dggev3 '
886 INFOT = 1
887 CALL DGGEV3( '/', 'N', 1, a, 1, b, 1, r1, r2, r3, q, 1, u, 1,
888 $ w, 1, info )
889 CALL chkxer( 'DGGEV3 ', infot, nout, lerr, ok )
890 infot = 2
891 CALL dggev3( 'N', '/', 1, a, 1, b, 1, r1, r2, r3, q, 1, u, 1,
892 $ w, 1, info )
893 CALL chkxer( 'DGGEV3 ', infot, nout, lerr, ok )
894 infot = 3
895 CALL dggev3( 'V', 'V', -1, a, 1, b, 1, r1, r2, r3, q, 1, u, 1,
896 $ w, 1, info )
897 CALL chkxer( 'DGGEV3 ', infot, nout, lerr, ok )
898 infot = 5
899 CALL dggev3( 'V', 'V', 1, a, 0, b, 1, r1, r2, r3, q, 1, u, 1,
900 $ w, 1, info )
901 CALL chkxer( 'DGGEV3 ', infot, nout, lerr, ok )
902 infot = 7
903 CALL dggev3( 'V', 'V', 1, a, 1, b, 0, r1, r2, r3, q, 1, u, 1,
904 $ w, 1, info )
905 CALL chkxer( 'DGGEV3 ', infot, nout, lerr, ok )
906 infot = 12
907 CALL dggev3( 'N', 'V', 1, a, 1, b, 1, r1, r2, r3, q, 0, u, 1,
908 $ w, 1, info )
909 CALL chkxer( 'DGGEV3 ', infot, nout, lerr, ok )
910 infot = 12
911 CALL dggev3( 'V', 'V', 2, a, 2, b, 2, r1, r2, r3, q, 1, u, 2,
912 $ w, 1, info )
913 CALL chkxer( 'DGGEV3 ', infot, nout, lerr, ok )
914 infot = 14
915 CALL dggev3( 'V', 'N', 2, a, 2, b, 2, r1, r2, r3, q, 2, u, 0,
916 $ w, 1, info )
917 CALL chkxer( 'DGGEV3 ', infot, nout, lerr, ok )
918 infot = 14
919 CALL dggev3( 'V', 'V', 2, a, 2, b, 2, r1, r2, r3, q, 2, u, 1,
920 $ w, 1, info )
921 CALL chkxer( 'DGGEV3 ', infot, nout, lerr, ok )
922 infot = 16
923 CALL dggev3( 'V', 'V', 1, a, 1, b, 1, r1, r2, r3, q, 1, u, 1,
924 $ w, 1, info )
925 CALL chkxer( 'DGGEV3 ', infot, nout, lerr, ok )
926 nt = nt + 10
927*
928* DGGEVX
929*
930 srnamt = 'DGGEVX'
931 infot = 1
932 CALL dggevx( '/', 'N', 'N', 'N', 1, a, 1, b, 1, r1, r2, r3, q,
933 $ 1, u, 1, ilo, ihi, ls, rs, anrm, bnrm, rce, rcv,
934 $ w, 1, iw, bw, info )
935 CALL chkxer( 'DGGEVX', infot, nout, lerr, ok )
936 infot = 2
937 CALL dggevx( 'N', '/', 'N', 'N', 1, a, 1, b, 1, r1, r2, r3, q,
938 $ 1, u, 1, ilo, ihi, ls, rs, anrm, bnrm, rce, rcv,
939 $ w, 1, iw, bw, info )
940 CALL chkxer( 'DGGEVX', infot, nout, lerr, ok )
941 infot = 3
942 CALL dggevx( 'N', 'N', '/', 'N', 1, a, 1, b, 1, r1, r2, r3, q,
943 $ 1, u, 1, ilo, ihi, ls, rs, anrm, bnrm, rce, rcv,
944 $ w, 1, iw, bw, info )
945 CALL chkxer( 'DGGEVX', infot, nout, lerr, ok )
946 infot = 4
947 CALL dggevx( 'N', 'N', 'N', '/', 1, a, 1, b, 1, r1, r2, r3, q,
948 $ 1, u, 1, ilo, ihi, ls, rs, anrm, bnrm, rce, rcv,
949 $ w, 1, iw, bw, info )
950 CALL chkxer( 'DGGEVX', infot, nout, lerr, ok )
951 infot = 5
952 CALL dggevx( 'N', 'N', 'N', 'N', -1, a, 1, b, 1, r1, r2, r3, q,
953 $ 1, u, 1, ilo, ihi, ls, rs, anrm, bnrm, rce, rcv,
954 $ w, 1, iw, bw, info )
955 CALL chkxer( 'DGGEVX', infot, nout, lerr, ok )
956 infot = 7
957 CALL dggevx( 'N', 'N', 'N', 'N', 1, a, 0, b, 1, r1, r2, r3, q,
958 $ 1, u, 1, ilo, ihi, ls, rs, anrm, bnrm, rce, rcv,
959 $ w, 1, iw, bw, info )
960 CALL chkxer( 'DGGEVX', infot, nout, lerr, ok )
961 infot = 9
962 CALL dggevx( 'N', 'N', 'N', 'N', 1, a, 1, b, 0, r1, r2, r3, q,
963 $ 1, u, 1, ilo, ihi, ls, rs, anrm, bnrm, rce, rcv,
964 $ w, 1, iw, bw, info )
965 CALL chkxer( 'DGGEVX', infot, nout, lerr, ok )
966 infot = 14
967 CALL dggevx( 'N', 'N', 'N', 'N', 1, a, 1, b, 1, r1, r2, r3, q,
968 $ 0, u, 1, ilo, ihi, ls, rs, anrm, bnrm, rce, rcv,
969 $ w, 1, iw, bw, info )
970 CALL chkxer( 'DGGEVX', infot, nout, lerr, ok )
971 infot = 14
972 CALL dggevx( 'N', 'V', 'N', 'N', 2, a, 2, b, 2, r1, r2, r3, q,
973 $ 1, u, 2, ilo, ihi, ls, rs, anrm, bnrm, rce, rcv,
974 $ w, 1, iw, bw, info )
975 CALL chkxer( 'DGGEVX', infot, nout, lerr, ok )
976 infot = 16
977 CALL dggevx( 'N', 'N', 'N', 'N', 1, a, 1, b, 1, r1, r2, r3, q,
978 $ 1, u, 0, ilo, ihi, ls, rs, anrm, bnrm, rce, rcv,
979 $ w, 1, iw, bw, info )
980 CALL chkxer( 'DGGEVX', infot, nout, lerr, ok )
981 infot = 16
982 CALL dggevx( 'N', 'N', 'V', 'N', 2, a, 2, b, 2, r1, r2, r3, q,
983 $ 2, u, 1, ilo, ihi, ls, rs, anrm, bnrm, rce, rcv,
984 $ w, 1, iw, bw, info )
985 CALL chkxer( 'DGGEVX', infot, nout, lerr, ok )
986 infot = 26
987 CALL dggevx( 'N', 'N', 'V', 'N', 2, a, 2, b, 2, r1, r2, r3, q,
988 $ 2, u, 2, ilo, ihi, ls, rs, anrm, bnrm, rce, rcv,
989 $ w, 1, iw, bw, info )
990 CALL chkxer( 'DGGEVX', infot, nout, lerr, ok )
991 nt = nt + 12
992*
993* DTGEXC
994*
995 srnamt = 'DTGEXC'
996 infot = 3
997 CALL dtgexc( .true., .true., -1, a, 1, b, 1, q, 1, z, 1, ifst,
998 $ ilst, w, 1, info )
999 CALL chkxer( 'DTGEXC', infot, nout, lerr, ok )
1000 infot = 5
1001 CALL dtgexc( .true., .true., 1, a, 0, b, 1, q, 1, z, 1, ifst,
1002 $ ilst, w, 1, info )
1003 CALL chkxer( 'DTGEXC', infot, nout, lerr, ok )
1004 infot = 7
1005 CALL dtgexc( .true., .true., 1, a, 1, b, 0, q, 1, z, 1, ifst,
1006 $ ilst, w, 1, info )
1007 CALL chkxer( 'DTGEXC', infot, nout, lerr, ok )
1008 infot = 9
1009 CALL dtgexc( .false., .true., 1, a, 1, b, 1, q, 0, z, 1, ifst,
1010 $ ilst, w, 1, info )
1011 CALL chkxer( 'DTGEXC', infot, nout, lerr, ok )
1012 infot = 9
1013 CALL dtgexc( .true., .true., 1, a, 1, b, 1, q, 0, z, 1, ifst,
1014 $ ilst, w, 1, info )
1015 CALL chkxer( 'DTGEXC', infot, nout, lerr, ok )
1016 infot = 11
1017 CALL dtgexc( .true., .false., 1, a, 1, b, 1, q, 1, z, 0, ifst,
1018 $ ilst, w, 1, info )
1019 CALL chkxer( 'DTGEXC', infot, nout, lerr, ok )
1020 infot = 11
1021 CALL dtgexc( .true., .true., 1, a, 1, b, 1, q, 1, z, 0, ifst,
1022 $ ilst, w, 1, info )
1023 CALL chkxer( 'DTGEXC', infot, nout, lerr, ok )
1024 infot = 15
1025 CALL dtgexc( .true., .true., 1, a, 1, b, 1, q, 1, z, 1, ifst,
1026 $ ilst, w, 0, info )
1027 CALL chkxer( 'DTGEXC', infot, nout, lerr, ok )
1028 nt = nt + 8
1029*
1030* DTGSEN
1031*
1032 srnamt = 'DTGSEN'
1033 infot = 1
1034 CALL dtgsen( -1, .true., .true., sel, 1, a, 1, b, 1, r1, r2,
1035 $ r3, q, 1, z, 1, m, tola, tolb, rcv, w, 1, iw, 1,
1036 $ info )
1037 CALL chkxer( 'DTGSEN', infot, nout, lerr, ok )
1038 infot = 5
1039 CALL dtgsen( 1, .true., .true., sel, -1, a, 1, b, 1, r1, r2,
1040 $ r3, q, 1, z, 1, m, tola, tolb, rcv, w, 1, iw, 1,
1041 $ info )
1042 CALL chkxer( 'DTGSEN', infot, nout, lerr, ok )
1043 infot = 7
1044 CALL dtgsen( 1, .true., .true., sel, 1, a, 0, b, 1, r1, r2, r3,
1045 $ q, 1, z, 1, m, tola, tolb, rcv, w, 1, iw, 1,
1046 $ info )
1047 CALL chkxer( 'DTGSEN', infot, nout, lerr, ok )
1048 infot = 9
1049 CALL dtgsen( 1, .true., .true., sel, 1, a, 1, b, 0, r1, r2, r3,
1050 $ q, 1, z, 1, m, tola, tolb, rcv, w, 1, iw, 1,
1051 $ info )
1052 CALL chkxer( 'DTGSEN', infot, nout, lerr, ok )
1053 infot = 14
1054 CALL dtgsen( 1, .true., .true., sel, 1, a, 1, b, 1, r1, r2, r3,
1055 $ q, 0, z, 1, m, tola, tolb, rcv, w, 1, iw, 1,
1056 $ info )
1057 CALL chkxer( 'DTGSEN', infot, nout, lerr, ok )
1058 infot = 16
1059 CALL dtgsen( 1, .true., .true., sel, 1, a, 1, b, 1, r1, r2, r3,
1060 $ q, 1, z, 0, m, tola, tolb, rcv, w, 1, iw, 1,
1061 $ info )
1062 CALL chkxer( 'DTGSEN', infot, nout, lerr, ok )
1063 infot = 22
1064 CALL dtgsen( 0, .true., .true., sel, 1, a, 1, b, 1, r1, r2, r3,
1065 $ q, 1, z, 1, m, tola, tolb, rcv, w, 1, iw, 1,
1066 $ info )
1067 CALL chkxer( 'DTGSEN', infot, nout, lerr, ok )
1068 infot = 22
1069 CALL dtgsen( 1, .true., .true., sel, 1, a, 1, b, 1, r1, r2, r3,
1070 $ q, 1, z, 1, m, tola, tolb, rcv, w, 1, iw, 1,
1071 $ info )
1072 CALL chkxer( 'DTGSEN', infot, nout, lerr, ok )
1073 infot = 22
1074 CALL dtgsen( 2, .true., .true., sel, 1, a, 1, b, 1, r1, r2, r3,
1075 $ q, 1, z, 1, m, tola, tolb, rcv, w, 1, iw, 1,
1076 $ info )
1077 CALL chkxer( 'DTGSEN', infot, nout, lerr, ok )
1078 infot = 24
1079 CALL dtgsen( 0, .true., .true., sel, 1, a, 1, b, 1, r1, r2, r3,
1080 $ q, 1, z, 1, m, tola, tolb, rcv, w, 20, iw, 0,
1081 $ info )
1082 CALL chkxer( 'DTGSEN', infot, nout, lerr, ok )
1083 infot = 24
1084 CALL dtgsen( 1, .true., .true., sel, 1, a, 1, b, 1, r1, r2, r3,
1085 $ q, 1, z, 1, m, tola, tolb, rcv, w, 20, iw, 0,
1086 $ info )
1087 CALL chkxer( 'DTGSEN', infot, nout, lerr, ok )
1088 infot = 24
1089 CALL dtgsen( 2, .true., .true., sel, 1, a, 1, b, 1, r1, r2, r3,
1090 $ q, 1, z, 1, m, tola, tolb, rcv, w, 20, iw, 1,
1091 $ info )
1092 CALL chkxer( 'DTGSEN', infot, nout, lerr, ok )
1093 nt = nt + 12
1094*
1095* DTGSNA
1096*
1097 srnamt = 'DTGSNA'
1098 infot = 1
1099 CALL dtgsna( '/', 'a', SEL, 1, A, 1, B, 1, Q, 1, U, 1, R1, R2,
1100 $ 1, M, W, 1, IW, INFO )
1101 CALL CHKXER( 'dtgsna', INFOT, NOUT, LERR, OK )
1102 INFOT = 2
1103 CALL DTGSNA( 'b', '/', sel, 1, a, 1, b, 1, q, 1, u, 1, r1, r2,
1104 $ 1, m, w, 1, iw, info )
1105 CALL chkxer( 'DTGSNA', infot, nout, lerr, ok )
1106 infot = 4
1107 CALL dtgsna( 'B', 'A', sel, -1, a, 1, b, 1, q, 1, u, 1, r1, r2,
1108 $ 1, m, w, 1, iw, info )
1109 CALL chkxer( 'DTGSNA', infot, nout, lerr, ok )
1110 infot = 6
1111 CALL dtgsna( 'B', 'A', sel, 1, a, 0, b, 1, q, 1, u, 1, r1, r2,
1112 $ 1, m, w, 1, iw, info )
1113 CALL chkxer( 'DTGSNA', infot, nout, lerr, ok )
1114 infot = 8
1115 CALL dtgsna( 'B', 'A', sel, 1, a, 1, b, 0, q, 1, u, 1, r1, r2,
1116 $ 1, m, w, 1, iw, info )
1117 CALL chkxer( 'dtgsna', INFOT, NOUT, LERR, OK )
1118 INFOT = 10
1119 CALL DTGSNA( 'e', 'a', SEL, 1, A, 1, B, 1, Q, 0, U, 1, R1, R2,
1120 $ 1, M, W, 1, IW, INFO )
1121 CALL CHKXER( 'dtgsna', INFOT, NOUT, LERR, OK )
1122 INFOT = 12
1123 CALL DTGSNA( 'e', 'a', SEL, 1, A, 1, B, 1, Q, 1, U, 0, R1, R2,
1124 $ 1, M, W, 1, IW, INFO )
1125 CALL CHKXER( 'dtgsna', INFOT, NOUT, LERR, OK )
1126 INFOT = 15
1127 CALL DTGSNA( 'e', 'a', SEL, 1, A, 1, B, 1, Q, 1, U, 1, R1, R2,
1128 $ 0, M, W, 1, IW, INFO )
1129 CALL CHKXER( 'dtgsna', INFOT, NOUT, LERR, OK )
1130 INFOT = 18
1131 CALL DTGSNA( 'e', 'a', SEL, 1, A, 1, B, 1, Q, 1, U, 1, R1, R2,
1132 $ 1, M, W, 0, IW, INFO )
1133 CALL CHKXER( 'dtgsna', INFOT, NOUT, LERR, OK )
1134 NT = NT + 9
1135*
1136* DTGSYL
1137*
1138 SRNAMT = 'dtgsyl'
1139 INFOT = 1
1140 CALL DTGSYL( '/', 0, 1, 1, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 1,
1141 $ SCALE, DIF, W, 1, IW, INFO )
1142 CALL CHKXER( 'dtgsyl', INFOT, NOUT, LERR, OK )
1143 INFOT = 2
1144 CALL DTGSYL( 'n', -1, 1, 1, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 1,
1145 $ SCALE, DIF, W, 1, IW, INFO )
1146 CALL CHKXER( 'dtgsyl', INFOT, NOUT, LERR, OK )
1147 INFOT = 3
1148 CALL DTGSYL( 'n', 0, 0, 1, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 1,
1149 $ SCALE, DIF, W, 1, IW, INFO )
1150 CALL CHKXER( 'dtgsyl', INFOT, NOUT, LERR, OK )
1151 INFOT = 4
1152 CALL DTGSYL( 'n', 0, 1, 0, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 1,
1153 $ SCALE, DIF, W, 1, IW, INFO )
1154 CALL CHKXER( 'dtgsyl', INFOT, NOUT, LERR, OK )
1155 INFOT = 6
1156 CALL DTGSYL( 'n', 0, 1, 1, A, 0, B, 1, Q, 1, U, 1, V, 1, Z, 1,
1157 $ SCALE, DIF, W, 1, IW, INFO )
1158 CALL CHKXER( 'dtgsyl', INFOT, NOUT, LERR, OK )
1159 INFOT = 8
1160 CALL DTGSYL( 'n', 0, 1, 1, A, 1, B, 0, Q, 1, U, 1, V, 1, Z, 1,
1161 $ SCALE, DIF, W, 1, IW, INFO )
1162 CALL CHKXER( 'dtgsyl', INFOT, NOUT, LERR, OK )
1163 INFOT = 10
1164 CALL DTGSYL( 'n', 0, 1, 1, A, 1, B, 1, Q, 0, U, 1, V, 1, Z, 1,
1165 $ SCALE, DIF, W, 1, IW, INFO )
1166 CALL CHKXER( 'dtgsyl', INFOT, NOUT, LERR, OK )
1167 INFOT = 12
1168 CALL DTGSYL( 'n', 0, 1, 1, A, 1, B, 1, Q, 1, U, 0, V, 1, Z, 1,
1169 $ SCALE, DIF, W, 1, IW, INFO )
1170 CALL CHKXER( 'dtgsyl', INFOT, NOUT, LERR, OK )
1171 INFOT = 14
1172 CALL DTGSYL( 'n', 0, 1, 1, A, 1, B, 1, Q, 1, U, 1, V, 0, Z, 1,
1173 $ SCALE, DIF, W, 1, IW, INFO )
1174 CALL CHKXER( 'dtgsyl', INFOT, NOUT, LERR, OK )
1175 INFOT = 16
1176 CALL DTGSYL( 'n', 0, 1, 1, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 0,
1177 $ SCALE, DIF, W, 1, IW, INFO )
1178 CALL CHKXER( 'dtgsyl', INFOT, NOUT, LERR, OK )
1179 INFOT = 20
1180 CALL DTGSYL( 'n', 1, 1, 1, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 1,
1181 $ SCALE, DIF, W, 1, IW, INFO )
1182 CALL CHKXER( 'dtgsyl', INFOT, NOUT, LERR, OK )
1183 INFOT = 20
1184 CALL DTGSYL( 'n', 2, 1, 1, A, 1, B, 1, Q, 1, U, 1, V, 1, Z, 1,
1185 $ SCALE, DIF, W, 1, IW, INFO )
1186 CALL CHKXER( 'dtgsyl', INFOT, NOUT, LERR, OK )
1187 NT = NT + 12
1188 END IF
1189*
1190* Print a summary line.
1191*
1192 IF( OK ) THEN
1193 WRITE( NOUT, FMT = 9999 )PATH, NT
1194 ELSE
1195 WRITE( NOUT, FMT = 9998 )PATH
1196 END IF
1197*
1198 9999 FORMAT( 1X, A3, ' routines passed the tests of the error exits(',
1199 $ I3, ' tests done)' )
1200 9998 FORMAT( ' *** ', A3, ' routines failed the tests of the error ',
1201 $ 'exits ***' )
1202*
1203 RETURN
1204*
1205* End of DERRGG
1206*
1207 END
chkxer
subroutine chkxer(srnamt, infot, nout, lerr, ok)
Definition cblat2.f:3196
the
end diagonal values have been computed in the(sparse) matrix id.SOL
xlaenv
subroutine xlaenv(ispec, nvalue)
XLAENV
Definition xlaenv.f:81
dhgeqz
subroutine dhgeqz(job, compq, compz, n, ilo, ihi, h, ldh, t, ldt, alphar, alphai, beta, q, ldq, z, ldz, work, lwork, info)
DHGEQZ
Definition dhgeqz.f:304
dtgevc
subroutine dtgevc(side, howmny, select, n, s, lds, p, ldp, vl, ldvl, vr, ldvr, mm, m, work, info)
DTGEVC
Definition dtgevc.f:295
dtgexc
subroutine dtgexc(wantq, wantz, n, a, lda, b, ldb, q, ldq, z, ldz, ifst, ilst, work, lwork, info)
DTGEXC
Definition dtgexc.f:220
dggesx
subroutine dggesx(jobvsl, jobvsr, sort, selctg, sense, n, a, lda, b, ldb, sdim, alphar, alphai, beta, vsl, ldvsl, vsr, ldvsr, rconde, rcondv, work, lwork, iwork, liwork, bwork, info)
DGGESX computes the eigenvalues, the Schur form, and, optionally, the matrix of Schur vectors for GE ...
Definition dggesx.f:365
dgges3
subroutine dgges3(jobvsl, jobvsr, sort, selctg, n, a, lda, b, ldb, sdim, alphar, alphai, beta, vsl, ldvsl, vsr, ldvsr, work, lwork, bwork, info)
DGGES3 computes the eigenvalues, the Schur form, and, optionally, the matrix of Schur vectors for GE ...
Definition dgges3.f:282
dgges
subroutine dgges(jobvsl, jobvsr, sort, selctg, n, a, lda, b, ldb, sdim, alphar, alphai, beta, vsl, ldvsl, vsr, ldvsr, work, lwork, bwork, info)
DGGES computes the eigenvalues, the Schur form, and, optionally, the matrix of Schur vectors for GE m...
Definition dgges.f:284
dggevx
subroutine dggevx(balanc, jobvl, jobvr, sense, n, a, lda, b, ldb, alphar, alphai, beta, vl, ldvl, vr, ldvr, ilo, ihi, lscale, rscale, abnrm, bbnrm, rconde, rcondv, work, lwork, iwork, bwork, info)
DGGEVX computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices
Definition dggevx.f:391
dggev3
subroutine dggev3(jobvl, jobvr, n, a, lda, b, ldb, alphar, alphai, beta, vl, ldvl, vr, ldvr, work, lwork, info)
DGGEV3 computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices (...
Definition dggev3.f:226
dggev
subroutine dggev(jobvl, jobvr, n, a, lda, b, ldb, alphar, alphai, beta, vl, ldvl, vr, ldvr, work, lwork, info)
DGGEV computes the eigenvalues and, optionally, the left and/or right eigenvectors for GE matrices
Definition dggev.f:226
dggsvd3
subroutine dggsvd3(jobu, jobv, jobq, m, n, p, k, l, a, lda, b, ldb, alpha, beta, u, ldu, v, ldv, q, ldq, work, lwork, iwork, info)
DGGSVD3 computes the singular value decomposition (SVD) for OTHER matrices
Definition dggsvd3.f:349
dtgsja
subroutine dtgsja(jobu, jobv, jobq, m, p, n, k, l, a, lda, b, ldb, tola, tolb, alpha, beta, u, ldu, v, ldv, q, ldq, work, ncycle, info)
DTGSJA
Definition dtgsja.f:378
dggqrf
subroutine dggqrf(n, m, p, a, lda, taua, b, ldb, taub, work, lwork, info)
DGGQRF
Definition dggqrf.f:215
dgghrd
subroutine dgghrd(compq, compz, n, ilo, ihi, a, lda, b, ldb, q, ldq, z, ldz, info)
DGGHRD
Definition dgghrd.f:207
dorcsd
recursive subroutine dorcsd(jobu1, jobu2, jobv1t, jobv2t, trans, signs, m, p, q, x11, ldx11, x12, ldx12, x21, ldx21, x22, ldx22, theta, u1, ldu1, u2, ldu2, v1t, ldv1t, v2t, ldv2t, work, lwork, iwork, info)
DORCSD
Definition dorcsd.f:300
dtgsna
subroutine dtgsna(job, howmny, select, n, a, lda, b, ldb, vl, ldvl, vr, ldvr, s, dif, mm, m, work, lwork, iwork, info)
DTGSNA
Definition dtgsna.f:381
dgghd3
subroutine dgghd3(compq, compz, n, ilo, ihi, a, lda, b, ldb, q, ldq, z, ldz, work, lwork, info)
DGGHD3
Definition dgghd3.f:230
dggrqf
subroutine dggrqf(m, p, n, a, lda, taua, b, ldb, taub, work, lwork, info)
DGGRQF
Definition dggrqf.f:214
dggsvp3
subroutine dggsvp3(jobu, jobv, jobq, m, p, n, a, lda, b, ldb, tola, tolb, k, l, u, ldu, v, ldv, q, ldq, iwork, tau, work, lwork, info)
DGGSVP3
Definition dggsvp3.f:272
dtgsen
subroutine dtgsen(ijob, wantq, wantz, select, n, a, lda, b, ldb, alphar, alphai, beta, q, ldq, z, ldz, m, pl, pr, dif, work, lwork, iwork, liwork, info)
DTGSEN
Definition dtgsen.f:451
dggglm
subroutine dggglm(n, m, p, a, lda, b, ldb, d, x, y, work, lwork, info)
DGGGLM
Definition dggglm.f:185
dgglse
subroutine dgglse(m, n, p, a, lda, b, ldb, c, d, x, work, lwork, info)
DGGLSE solves overdetermined or underdetermined systems for OTHER matrices
Definition dgglse.f:180
dtgsyl
subroutine dtgsyl(trans, ijob, m, n, a, lda, b, ldb, c, ldc, d, ldd, e, lde, f, ldf, scale, dif, work, lwork, iwork, info)
DTGSYL
Definition dtgsyl.f:299
derrgg
subroutine derrgg(path, nunit)
DERRGG
Definition derrgg.f:57
lse
logical function lse(ri, rj, lr)
Definition sblat2.f:2942