OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
derrvx.f
Go to the documentation of this file.
1*> \brief \b DERRVX
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 DERRVX( 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*> DERRVX tests the error exits for the DOUBLE PRECISION driver routines
25*> for solving linear systems of equations.
26*> \endverbatim
27*
28* Arguments:
29* ==========
30*
31*> \param[in] PATH
32*> \verbatim
33*> PATH is CHARACTER*3
34*> The LAPACK path name for the routines to be tested.
35*> \endverbatim
36*>
37*> \param[in] NUNIT
38*> \verbatim
39*> NUNIT is INTEGER
40*> The unit number for output.
41*> \endverbatim
42*
43* Authors:
44* ========
45*
46*> \author Univ. of Tennessee
47*> \author Univ. of California Berkeley
48*> \author Univ. of Colorado Denver
49*> \author NAG Ltd.
50*
51*> \ingroup double_lin
52*
53* =====================================================================
54 SUBROUTINE derrvx( PATH, NUNIT )
55*
56* -- LAPACK test routine --
57* -- LAPACK is a software package provided by Univ. of Tennessee, --
58* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
59*
60* .. Scalar Arguments ..
61 CHARACTER*3 PATH
62 INTEGER NUNIT
63* ..
64*
65* =====================================================================
66*
67* .. Parameters ..
68 INTEGER NMAX
69 parameter( nmax = 4 )
70* ..
71* .. Local Scalars ..
72 CHARACTER EQ
73 CHARACTER*2 C2
74 INTEGER I, INFO, J
75 DOUBLE PRECISION RCOND
76* ..
77* .. Local Arrays ..
78 INTEGER IP( NMAX ), IW( NMAX )
79 DOUBLE PRECISION A( NMAX, NMAX ), AF( NMAX, NMAX ), B( NMAX ),
80 $ C( NMAX ), E( NMAX ), R( NMAX ), R1( NMAX ),
81 $ R2( NMAX ), W( 2*NMAX ), X( NMAX )
82* ..
83* .. External Functions ..
84 LOGICAL LSAMEN
85 EXTERNAL lsamen
86* ..
87* .. External Subroutines ..
88 EXTERNAL chkxer, dgbsv, dgbsvx, dgesv, dgesvx, dgtsv,
89 $ dgtsvx, dpbsv, dpbsvx, dposv, dposvx, dppsv,
90 $ dppsvx, dptsv, dptsvx, dspsv, dspsvx, dsysv,
91 $ dsysv_aa, dsysv_rk, dsysv_rook, dsysvx,
92 $ dsysv_aa_2stage
93* ..
94* .. Scalars in Common ..
95 LOGICAL LERR, OK
96 CHARACTER*32 SRNAMT
97 INTEGER INFOT, NOUT
98* ..
99* .. Common blocks ..
100 COMMON / infoc / infot, nout, ok, lerr
101 COMMON / srnamc / srnamt
102* ..
103* .. Intrinsic Functions ..
104 INTRINSIC dble
105* ..
106* .. Executable Statements ..
107*
108 nout = nunit
109 WRITE( nout, fmt = * )
110 c2 = path( 2: 3 )
111*
112* Set the variables to innocuous values.
113*
114 DO 20 j = 1, nmax
115 DO 10 i = 1, nmax
116 a( i, j ) = 1.d0 / dble( i+j )
117 af( i, j ) = 1.d0 / dble( i+j )
118 10 CONTINUE
119 b( j ) = 0.d+0
120 e( j ) = 0.d+0
121 r1( j ) = 0.d+0
122 r2( j ) = 0.d+0
123 w( j ) = 0.d+0
124 x( j ) = 0.d+0
125 c( j ) = 0.d+0
126 r( j ) = 0.d+0
127 ip( j ) = j
128 20 CONTINUE
129 eq = ' '
130 ok = .true.
131*
132 IF( lsamen( 2, c2, 'GE' ) ) THEN
133*
134* DGESV
135*
136 srnamt = 'DGESV '
137 infot = 1
138 CALL dgesv( -1, 0, a, 1, ip, b, 1, info )
139 CALL chkxer( 'dgesv ', INFOT, NOUT, LERR, OK )
140 INFOT = 2
141 CALL DGESV( 0, -1, A, 1, IP, B, 1, INFO )
142 CALL CHKXER( 'dgesv ', INFOT, NOUT, LERR, OK )
143 INFOT = 4
144 CALL DGESV( 2, 1, A, 1, IP, B, 2, INFO )
145 CALL CHKXER( 'dgesv ', INFOT, NOUT, LERR, OK )
146 INFOT = 7
147 CALL DGESV( 2, 1, A, 2, IP, B, 1, INFO )
148 CALL CHKXER( 'dgesv ', INFOT, NOUT, LERR, OK )
149*
150* DGESVX
151*
152 SRNAMT = 'dgesvx'
153 INFOT = 1
154 CALL DGESVX( '/', 'n', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1,
155 $ X, 1, RCOND, R1, R2, W, IW, INFO )
156 CALL CHKXER( 'dgesvx', INFOT, NOUT, LERR, OK )
157 INFOT = 2
158 CALL DGESVX( 'n', '/', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1,
159 $ X, 1, RCOND, R1, R2, W, IW, INFO )
160 CALL CHKXER( 'dgesvx', INFOT, NOUT, LERR, OK )
161 INFOT = 3
162 CALL DGESVX( 'n', 'n', -1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1,
163 $ X, 1, RCOND, R1, R2, W, IW, INFO )
164 CALL CHKXER( 'dgesvx', INFOT, NOUT, LERR, OK )
165 INFOT = 4
166 CALL DGESVX( 'n', 'n', 0, -1, A, 1, AF, 1, IP, EQ, R, C, B, 1,
167 $ X, 1, RCOND, R1, R2, W, IW, INFO )
168 CALL CHKXER( 'dgesvx', INFOT, NOUT, LERR, OK )
169 INFOT = 6
170 CALL DGESVX( 'n', 'n', 2, 1, A, 1, AF, 2, IP, EQ, R, C, B, 2,
171 $ X, 2, RCOND, R1, R2, W, IW, INFO )
172 CALL CHKXER( 'dgesvx', INFOT, NOUT, LERR, OK )
173 INFOT = 8
174 CALL DGESVX( 'n', 'n', 2, 1, A, 2, AF, 1, IP, EQ, R, C, B, 2,
175 $ X, 2, RCOND, R1, R2, W, IW, INFO )
176 CALL CHKXER( 'dgesvx', INFOT, NOUT, LERR, OK )
177 INFOT = 10
178 EQ = '/'
179 CALL DGESVX( 'f', 'n', 0, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1,
180 $ X, 1, RCOND, R1, R2, W, IW, INFO )
181 CALL CHKXER( 'dgesvx', INFOT, NOUT, LERR, OK )
182 INFOT = 11
183 EQ = 'r'
184 CALL DGESVX( 'f', 'n', 1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1,
185 $ X, 1, RCOND, R1, R2, W, IW, INFO )
186 CALL CHKXER( 'dgesvx', INFOT, NOUT, LERR, OK )
187 INFOT = 12
188 EQ = 'c'
189 CALL DGESVX( 'f', 'n', 1, 0, A, 1, AF, 1, IP, EQ, R, C, B, 1,
190 $ X, 1, RCOND, R1, R2, W, IW, INFO )
191 CALL CHKXER( 'dgesvx', INFOT, NOUT, LERR, OK )
192 INFOT = 14
193 CALL DGESVX( 'n', 'n', 2, 1, A, 2, AF, 2, IP, EQ, R, C, B, 1,
194 $ X, 2, RCOND, R1, R2, W, IW, INFO )
195 CALL CHKXER( 'dgesvx', INFOT, NOUT, LERR, OK )
196 INFOT = 16
197 CALL DGESVX( 'n', 'n', 2, 1, A, 2, AF, 2, IP, EQ, R, C, B, 2,
198 $ X, 1, RCOND, R1, R2, W, IW, INFO )
199 CALL CHKXER( 'dgesvx', INFOT, NOUT, LERR, OK )
200*
201 ELSE IF( LSAMEN( 2, C2, 'gb' ) ) THEN
202*
203* DGBSV
204*
205 SRNAMT = 'dgbsv '
206 INFOT = 1
207 CALL DGBSV( -1, 0, 0, 0, A, 1, IP, B, 1, INFO )
208 CALL CHKXER( 'dgbsv ', INFOT, NOUT, LERR, OK )
209 INFOT = 2
210 CALL DGBSV( 1, -1, 0, 0, A, 1, IP, B, 1, INFO )
211 CALL CHKXER( 'dgbsv ', INFOT, NOUT, LERR, OK )
212 INFOT = 3
213 CALL DGBSV( 1, 0, -1, 0, A, 1, IP, B, 1, INFO )
214 CALL CHKXER( 'dgbsv ', INFOT, NOUT, LERR, OK )
215 INFOT = 4
216 CALL DGBSV( 0, 0, 0, -1, A, 1, IP, B, 1, INFO )
217 CALL CHKXER( 'dgbsv ', INFOT, NOUT, LERR, OK )
218 INFOT = 6
219 CALL DGBSV( 1, 1, 1, 0, A, 3, IP, B, 1, INFO )
220 CALL CHKXER( 'dgbsv ', INFOT, NOUT, LERR, OK )
221 INFOT = 9
222 CALL DGBSV( 2, 0, 0, 0, A, 1, IP, B, 1, INFO )
223 CALL CHKXER( 'dgbsv ', INFOT, NOUT, LERR, OK )
224*
225* DGBSVX
226*
227 SRNAMT = 'dgbsvx'
228 INFOT = 1
229 CALL DGBSVX( '/', 'n', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
230 $ B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
231 CALL CHKXER( 'dgbsvx', INFOT, NOUT, LERR, OK )
232 INFOT = 2
233 CALL DGBSVX( 'n', '/', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
234 $ B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
235 CALL CHKXER( 'dgbsvx', INFOT, NOUT, LERR, OK )
236 INFOT = 3
237 CALL DGBSVX( 'n', 'n', -1, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
238 $ B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
239 CALL CHKXER( 'dgbsvx', INFOT, NOUT, LERR, OK )
240 INFOT = 4
241 CALL DGBSVX( 'n', 'n', 1, -1, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
242 $ B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
243 CALL CHKXER( 'dgbsvx', INFOT, NOUT, LERR, OK )
244 INFOT = 5
245 CALL DGBSVX( 'n', 'n', 1, 0, -1, 0, A, 1, AF, 1, IP, EQ, R, C,
246 $ B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
247 CALL CHKXER( 'dgbsvx', INFOT, NOUT, LERR, OK )
248 INFOT = 6
249 CALL DGBSVX( 'n', 'n', 0, 0, 0, -1, A, 1, AF, 1, IP, EQ, R, C,
250 $ B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
251 CALL CHKXER( 'dgbsvx', INFOT, NOUT, LERR, OK )
252 INFOT = 8
253 CALL DGBSVX( 'n', 'n', 1, 1, 1, 0, A, 2, AF, 4, IP, EQ, R, C,
254 $ B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
255 CALL CHKXER( 'dgbsvx', INFOT, NOUT, LERR, OK )
256 INFOT = 10
257 CALL DGBSVX( 'n', 'n', 1, 1, 1, 0, A, 3, AF, 3, IP, EQ, R, C,
258 $ B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
259 CALL CHKXER( 'dgbsvx', INFOT, NOUT, LERR, OK )
260 INFOT = 12
261 EQ = '/'
262 CALL DGBSVX( 'f', 'n', 0, 0, 0, 0, A, 1, AF, 1, IP, EQ, R, C,
263 $ B, 1, X, 1, RCOND, R1, R2, W, IW, INFO )
264 CALL CHKXER( 'dgbsvx', INFOT, NOUT, LERR, OK )
265 INFOT = 13
266 EQ = 'r'
267 CALL dgbsvx( 'F', 'N', 1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
268 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
269 CALL chkxer( 'DGBSVX', infot, nout, lerr, ok )
270 infot = 14
271 eq = 'C'
272 CALL dgbsvx( 'F', 'N', 1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
273 $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
274 CALL chkxer( 'DGBSVX', infot, nout, lerr, ok )
275 infot = 16
276 CALL dgbsvx( 'N', 'N', 2, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
277 $ b, 1, x, 2, rcond, r1, r2, w, iw, info )
278 CALL chkxer( 'DGBSVX', infot, nout, lerr, ok )
279 infot = 18
280 CALL dgbsvx( 'N', 'N', 2, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
281 $ b, 2, x, 1, rcond, r1, r2, w, iw, info )
282 CALL chkxer( 'DGBSVX', infot, nout, lerr, ok )
283*
284 ELSE IF( lsamen( 2, c2, 'GT' ) ) THEN
285*
286* DGTSV
287*
288 srnamt = 'DGTSV '
289 infot = 1
290 CALL dgtsv( -1, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1,
291 $ info )
292 CALL chkxer( 'DGTSV ', infot, nout, lerr, ok )
293 infot = 2
294 CALL dgtsv( 0, -1, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1,
295 $ info )
296 CALL chkxer( 'DGTSV ', infot, nout, lerr, ok )
297 infot = 7
298 CALL dgtsv( 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1, info )
299 CALL chkxer( 'DGTSV ', infot, nout, lerr, ok )
300*
301* DGTSVX
302*
303 srnamt = 'DGTSVX'
304 infot = 1
305 CALL dgtsvx( '/', 'N', 0, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
306 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
307 $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
308 CALL chkxer( 'DGTSVX', infot, nout, lerr, ok )
309 infot = 2
310 CALL dgtsvx( 'N', '/', 0, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
311 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
312 $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
313 CALL chkxer( 'DGTSVX', infot, nout, lerr, ok )
314 infot = 3
315 CALL dgtsvx( 'N', 'N', -1, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
316 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
317 $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
318 CALL chkxer( 'DGTSVX', infot, nout, lerr, ok )
319 infot = 4
320 CALL dgtsvx( 'N', 'N', 0, -1, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
321 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
322 $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
323 CALL chkxer( 'DGTSVX', infot, nout, lerr, ok )
324 infot = 14
325 CALL dgtsvx( 'N', 'N', 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
326 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
327 $ ip, b, 1, x, 2, rcond, r1, r2, w, iw, info )
328 CALL chkxer( 'DGTSVX', infot, nout, lerr, ok )
329 infot = 16
330 CALL dgtsvx( 'N', 'N', 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
331 $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
332 $ ip, b, 2, x, 1, rcond, r1, r2, w, iw, info )
333 CALL chkxer( 'DGTSVX', infot, nout, lerr, ok )
334*
335 ELSE IF( lsamen( 2, c2, 'PO' ) ) THEN
336*
337* DPOSV
338*
339 srnamt = 'DPOSV '
340 infot = 1
341 CALL dposv( '/', 0, 0, a, 1, b, 1, info )
342 CALL chkxer( 'DPOSV ', infot, nout, lerr, ok )
343 infot = 2
344 CALL dposv( 'U', -1, 0, a, 1, b, 1, info )
345 CALL chkxer( 'DPOSV ', infot, nout, lerr, ok )
346 infot = 3
347 CALL dposv( 'U', 0, -1, a, 1, b, 1, info )
348 CALL chkxer( 'DPOSV ', infot, nout, lerr, ok )
349 infot = 5
350 CALL dposv( 'U', 2, 0, a, 1, b, 2, info )
351 CALL chkxer( 'DPOSV ', infot, nout, lerr, ok )
352 infot = 7
353 CALL dposv( 'U', 2, 0, a, 2, b, 1, info )
354 CALL chkxer( 'DPOSV ', infot, nout, lerr, ok )
355*
356* DPOSVX
357*
358 srnamt = 'DPOSVX'
359 infot = 1
360 CALL dposvx( '/', 'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
361 $ rcond, r1, r2, w, iw, info )
362 CALL chkxer( 'DPOSVX', infot, nout, lerr, ok )
363 infot = 2
364 CALL dposvx( 'N', '/', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
365 $ rcond, r1, r2, w, iw, info )
366 CALL chkxer( 'DPOSVX', infot, nout, lerr, ok )
367 infot = 3
368 CALL dposvx( 'N', 'U', -1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
369 $ rcond, r1, r2, w, iw, info )
370 CALL chkxer( 'DPOSVX', infot, nout, lerr, ok )
371 infot = 4
372 CALL dposvx( 'N', 'U', 0, -1, a, 1, af, 1, eq, c, b, 1, x, 1,
373 $ rcond, r1, r2, w, iw, info )
374 CALL chkxer( 'DPOSVX', infot, nout, lerr, ok )
375 infot = 6
376 CALL dposvx( 'N', 'U', 2, 0, a, 1, af, 2, eq, c, b, 2, x, 2,
377 $ rcond, r1, r2, w, iw, info )
378 CALL chkxer( 'DPOSVX', infot, nout, lerr, ok )
379 infot = 8
380 CALL dposvx( 'N', 'U', 2, 0, a, 2, af, 1, eq, c, b, 2, x, 2,
381 $ rcond, r1, r2, w, iw, info )
382 CALL chkxer( 'DPOSVX', infot, nout, lerr, ok )
383 infot = 9
384 eq = '/'
385 CALL dposvx( 'F', 'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
386 $ rcond, r1, r2, w, iw, info )
387 CALL chkxer( 'DPOSVX', infot, nout, lerr, ok )
388 infot = 10
389 eq = 'Y'
390 CALL dposvx( 'f', 'u', 1, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
391 $ RCOND, R1, R2, W, IW, INFO )
392 CALL CHKXER( 'dposvx', INFOT, NOUT, LERR, OK )
393 INFOT = 12
394 CALL DPOSVX( 'n', 'u', 2, 0, A, 2, AF, 2, EQ, C, B, 1, X, 2,
395 $ RCOND, R1, R2, W, IW, INFO )
396 CALL CHKXER( 'dposvx', INFOT, NOUT, LERR, OK )
397 INFOT = 14
398 CALL DPOSVX( 'n', 'u', 2, 0, A, 2, AF, 2, EQ, C, B, 2, X, 1,
399 $ RCOND, R1, R2, W, IW, INFO )
400 CALL CHKXER( 'dposvx', INFOT, NOUT, LERR, OK )
401*
402 ELSE IF( LSAMEN( 2, C2, 'pp' ) ) THEN
403*
404* DPPSV
405*
406 SRNAMT = 'dppsv '
407 INFOT = 1
408 CALL DPPSV( '/', 0, 0, A, B, 1, INFO )
409 CALL CHKXER( 'dppsv ', INFOT, NOUT, LERR, OK )
410 INFOT = 2
411 CALL DPPSV( 'u', -1, 0, A, B, 1, INFO )
412 CALL CHKXER( 'dppsv ', INFOT, NOUT, LERR, OK )
413 INFOT = 3
414 CALL DPPSV( 'u', 0, -1, A, B, 1, INFO )
415 CALL CHKXER( 'dppsv ', INFOT, NOUT, LERR, OK )
416 INFOT = 6
417 CALL DPPSV( 'u', 2, 0, A, B, 1, INFO )
418 CALL CHKXER( 'dppsv ', INFOT, NOUT, LERR, OK )
419*
420* DPPSVX
421*
422 SRNAMT = 'dppsvx'
423 INFOT = 1
424 CALL DPPSVX( '/', 'u', 0, 0, A, AF, EQ, C, B, 1, X, 1, RCOND,
425 $ R1, R2, W, IW, INFO )
426 CALL CHKXER( 'dppsvx', INFOT, NOUT, LERR, OK )
427 INFOT = 2
428 CALL DPPSVX( 'n', '/', 0, 0, A, AF, EQ, C, B, 1, X, 1, RCOND,
429 $ R1, R2, W, IW, INFO )
430 CALL CHKXER( 'dppsvx', INFOT, NOUT, LERR, OK )
431 INFOT = 3
432 CALL DPPSVX( 'n', 'u', -1, 0, A, AF, EQ, C, B, 1, X, 1, RCOND,
433 $ R1, R2, W, IW, INFO )
434 CALL CHKXER( 'dppsvx', INFOT, NOUT, LERR, OK )
435 INFOT = 4
436 CALL DPPSVX( 'n', 'u', 0, -1, A, AF, EQ, C, B, 1, X, 1, RCOND,
437 $ R1, R2, W, IW, INFO )
438 CALL CHKXER( 'dppsvx', INFOT, NOUT, LERR, OK )
439 INFOT = 7
440 EQ = '/'
441 CALL DPPSVX( 'f', 'u', 0, 0, A, AF, EQ, C, B, 1, X, 1, RCOND,
442 $ R1, R2, W, IW, INFO )
443 CALL CHKXER( 'dppsvx', INFOT, NOUT, LERR, OK )
444 INFOT = 8
445 EQ = 'y'
446 CALL DPPSVX( 'f', 'u', 1, 0, A, AF, EQ, C, B, 1, X, 1, RCOND,
447 $ R1, R2, W, IW, INFO )
448 CALL CHKXER( 'dppsvx', INFOT, NOUT, LERR, OK )
449 INFOT = 10
450 CALL DPPSVX( 'n', 'u', 2, 0, A, AF, EQ, C, B, 1, X, 2, RCOND,
451 $ R1, R2, W, IW, INFO )
452 CALL CHKXER( 'dppsvx', INFOT, NOUT, LERR, OK )
453 INFOT = 12
454 CALL DPPSVX( 'n', 'u', 2, 0, A, AF, EQ, C, B, 2, X, 1, RCOND,
455 $ R1, R2, W, IW, INFO )
456 CALL CHKXER( 'dppsvx', INFOT, NOUT, LERR, OK )
457*
458 ELSE IF( LSAMEN( 2, C2, 'pb' ) ) THEN
459*
460* DPBSV
461*
462 SRNAMT = 'dpbsv '
463 INFOT = 1
464 CALL DPBSV( '/', 0, 0, 0, A, 1, B, 1, INFO )
465 CALL CHKXER( 'dpbsv ', INFOT, NOUT, LERR, OK )
466 INFOT = 2
467 CALL DPBSV( 'u', -1, 0, 0, A, 1, B, 1, INFO )
468 CALL CHKXER( 'dpbsv ', INFOT, NOUT, LERR, OK )
469 INFOT = 3
470 CALL DPBSV( 'u', 1, -1, 0, A, 1, B, 1, INFO )
471 CALL CHKXER( 'dpbsv ', INFOT, NOUT, LERR, OK )
472 INFOT = 4
473 CALL DPBSV( 'u', 0, 0, -1, A, 1, B, 1, INFO )
474 CALL CHKXER( 'dpbsv ', INFOT, NOUT, LERR, OK )
475 INFOT = 6
476 CALL DPBSV( 'u', 1, 1, 0, A, 1, B, 2, INFO )
477 CALL CHKXER( 'dpbsv ', INFOT, NOUT, LERR, OK )
478 INFOT = 8
479 CALL DPBSV( 'u', 2, 0, 0, A, 1, B, 1, INFO )
480 CALL CHKXER( 'dpbsv ', INFOT, NOUT, LERR, OK )
481*
482* DPBSVX
483*
484 SRNAMT = 'dpbsvx'
485 INFOT = 1
486 CALL DPBSVX( '/', 'u', 0, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
487 $ RCOND, R1, R2, W, IW, INFO )
488 CALL CHKXER( 'dpbsvx', INFOT, NOUT, LERR, OK )
489 INFOT = 2
490 CALL DPBSVX( 'n', '/', 0, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
491 $ RCOND, R1, R2, W, IW, INFO )
492 CALL CHKXER( 'dpbsvx', INFOT, NOUT, LERR, OK )
493 INFOT = 3
494 CALL DPBSVX( 'n', 'U', -1, 0, 0, a, 1, af, 1, eq, c, b, 1, x,
495 $ 1, rcond, r1, r2, w, iw, info )
496 CALL chkxer( 'DPBSVX', infot, nout, lerr, ok )
497 infot = 4
498 CALL dpbsvx( 'N', 'U', 1, -1, 0, a, 1, af, 1, eq, c, b, 1, x,
499 $ 1, rcond, r1, r2, w, iw, info )
500 CALL chkxer( 'DPBSVX', infot, nout, lerr, ok )
501 infot = 5
502 CALL dpbsvx( 'N', 'u', 0, 0, -1, A, 1, AF, 1, EQ, C, B, 1, X,
503 $ 1, RCOND, R1, R2, W, IW, INFO )
504 CALL CHKXER( 'dpbsvx', INFOT, NOUT, LERR, OK )
505 INFOT = 7
506 CALL DPBSVX( 'n', 'u', 1, 1, 0, A, 1, AF, 2, EQ, C, B, 2, X, 2,
507 $ RCOND, R1, R2, W, IW, INFO )
508 CALL CHKXER( 'dpbsvx', INFOT, NOUT, LERR, OK )
509 INFOT = 9
510 CALL DPBSVX( 'n', 'u', 1, 1, 0, A, 2, AF, 1, EQ, C, B, 2, X, 2,
511 $ RCOND, R1, R2, W, IW, INFO )
512 CALL CHKXER( 'dpbsvx', INFOT, NOUT, LERR, OK )
513 INFOT = 10
514 EQ = '/'
515 CALL DPBSVX( 'f', 'u', 0, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
516 $ RCOND, R1, R2, W, IW, INFO )
517 CALL CHKXER( 'dpbsvx', INFOT, NOUT, LERR, OK )
518 INFOT = 11
519 EQ = 'y'
520 CALL DPBSVX( 'f', 'u', 1, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 1,
521 $ RCOND, R1, R2, W, IW, INFO )
522 CALL CHKXER( 'dpbsvx', INFOT, NOUT, LERR, OK )
523 INFOT = 13
524 CALL DPBSVX( 'n', 'u', 2, 0, 0, A, 1, AF, 1, EQ, C, B, 1, X, 2,
525 $ RCOND, R1, R2, W, IW, INFO )
526 CALL CHKXER( 'dpbsvx', INFOT, NOUT, LERR, OK )
527 INFOT = 15
528 CALL DPBSVX( 'n', 'u', 2, 0, 0, A, 1, AF, 1, EQ, C, B, 2, X, 1,
529 $ RCOND, R1, R2, W, IW, INFO )
530 CALL CHKXER( 'dpbsvx', INFOT, NOUT, LERR, OK )
531*
532 ELSE IF( LSAMEN( 2, C2, 'pt' ) ) THEN
533*
534* DPTSV
535*
536 SRNAMT = 'dptsv '
537 INFOT = 1
538 CALL DPTSV( -1, 0, A( 1, 1 ), A( 1, 2 ), B, 1, INFO )
539 CALL CHKXER( 'dptsv ', INFOT, NOUT, LERR, OK )
540 INFOT = 2
541 CALL DPTSV( 0, -1, A( 1, 1 ), A( 1, 2 ), B, 1, INFO )
542 CALL CHKXER( 'dptsv ', INFOT, NOUT, LERR, OK )
543 INFOT = 6
544 CALL DPTSV( 2, 0, A( 1, 1 ), A( 1, 2 ), B, 1, INFO )
545 CALL CHKXER( 'dptsv ', INFOT, NOUT, LERR, OK )
546*
547* DPTSVX
548*
549 SRNAMT = 'dptsvx'
550 INFOT = 1
551 CALL DPTSVX( '/', 0, 0, A( 1, 1 ), A( 1, 2 ), AF( 1, 1 ),
552 $ AF( 1, 2 ), B, 1, X, 1, RCOND, R1, R2, W, INFO )
553 CALL CHKXER( 'dptsvx', INFOT, NOUT, LERR, OK )
554 INFOT = 2
555 CALL DPTSVX( 'n', -1, 0, A( 1, 1 ), A( 1, 2 ), AF( 1, 1 ),
556 $ AF( 1, 2 ), B, 1, X, 1, RCOND, R1, R2, W, INFO )
557 CALL CHKXER( 'dptsvx', INFOT, NOUT, LERR, OK )
558 INFOT = 3
559 CALL DPTSVX( 'n', 0, -1, A( 1, 1 ), A( 1, 2 ), AF( 1, 1 ),
560 $ AF( 1, 2 ), B, 1, X, 1, RCOND, R1, R2, W, INFO )
561 CALL CHKXER( 'dptsvx', INFOT, NOUT, LERR, OK )
562 INFOT = 9
563 CALL DPTSVX( 'n', 2, 0, A( 1, 1 ), A( 1, 2 ), AF( 1, 1 ),
564 $ AF( 1, 2 ), B, 1, X, 2, RCOND, R1, R2, W, INFO )
565 CALL CHKXER( 'dptsvx', INFOT, NOUT, LERR, OK )
566 INFOT = 11
567 CALL DPTSVX( 'n', 2, 0, A( 1, 1 ), A( 1, 2 ), AF( 1, 1 ),
568 $ AF( 1, 2 ), B, 2, X, 1, RCOND, R1, R2, W, INFO )
569 CALL CHKXER( 'dptsvx', INFOT, NOUT, LERR, OK )
570*
571 ELSE IF( LSAMEN( 2, C2, 'sy' ) ) THEN
572*
573* DSYSV
574*
575 SRNAMT = 'dsysv '
576 INFOT = 1
577 CALL DSYSV( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
578 CALL CHKXER( 'dsysv ', INFOT, NOUT, LERR, OK )
579 INFOT = 2
580 CALL DSYSV( 'u', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
581 CALL CHKXER( 'dsysv ', INFOT, NOUT, LERR, OK )
582 INFOT = 3
583 CALL DSYSV( 'u', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
584 CALL CHKXER( 'dsysv ', INFOT, NOUT, LERR, OK )
585 INFOT = 5
586 CALL DSYSV( 'u', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
587 CALL CHKXER( 'dsysv_rook', INFOT, NOUT, LERR, OK )
588 INFOT = 8
589 CALL DSYSV( 'u', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
590 CALL CHKXER( 'dsysv ', INFOT, NOUT, LERR, OK )
591 INFOT = 10
592 CALL DSYSV( 'u', 0, 0, A, 1, IP, B, 1, W, 0, INFO )
593 CALL CHKXER( 'dsysv ', INFOT, NOUT, LERR, OK )
594 INFOT = 10
595 CALL DSYSV( 'u', 0, 0, A, 1, IP, B, 1, W, -2, INFO )
596 CALL CHKXER( 'dsysv ', INFOT, NOUT, LERR, OK )
597*
598* DSYSVX
599*
600 SRNAMT = 'dsysvx'
601 INFOT = 1
602 CALL DSYSVX( '/', 'u', 0, 0, A, 1, AF, 1, IP, B, 1, X, 1,
603 $ RCOND, R1, R2, W, 1, IW, INFO )
604 CALL CHKXER( 'dsysvx', INFOT, NOUT, LERR, OK )
605 INFOT = 2
606 CALL DSYSVX( 'n', '/', 0, 0, A, 1, AF, 1, IP, B, 1, X, 1,
607 $ RCOND, R1, R2, W, 1, IW, INFO )
608 CALL CHKXER( 'dsysvx', INFOT, NOUT, LERR, OK )
609 INFOT = 3
610 CALL DSYSVX( 'n', 'u', -1, 0, A, 1, AF, 1, IP, B, 1, X, 1,
611 $ RCOND, R1, R2, W, 1, IW, INFO )
612 CALL CHKXER( 'dsysvx', INFOT, NOUT, LERR, OK )
613 INFOT = 4
614 CALL DSYSVX( 'n', 'u', 0, -1, A, 1, AF, 1, IP, B, 1, X, 1,
615 $ RCOND, R1, R2, W, 1, IW, INFO )
616 CALL CHKXER( 'dsysvx', INFOT, NOUT, LERR, OK )
617 INFOT = 6
618 CALL DSYSVX( 'n', 'u', 2, 0, A, 1, AF, 2, IP, B, 2, X, 2,
619 $ RCOND, R1, R2, W, 4, IW, INFO )
620 CALL CHKXER( 'dsysvx', INFOT, NOUT, LERR, OK )
621 INFOT = 8
622 CALL DSYSVX( 'n', 'u', 2, 0, A, 2, AF, 1, IP, B, 2, X, 2,
623 $ RCOND, R1, R2, W, 4, IW, INFO )
624 CALL CHKXER( 'dsysvx', INFOT, NOUT, LERR, OK )
625 INFOT = 11
626 CALL DSYSVX( 'n', 'u', 2, 0, A, 2, AF, 2, IP, B, 1, X, 2,
627 $ RCOND, R1, R2, W, 4, IW, INFO )
628 CALL CHKXER( 'dsysvx', INFOT, NOUT, LERR, OK )
629 INFOT = 13
630 CALL DSYSVX( 'n', 'u', 2, 0, A, 2, AF, 2, IP, B, 2, X, 1,
631 $ RCOND, R1, R2, W, 4, IW, INFO )
632 CALL CHKXER( 'dsysvx', INFOT, NOUT, LERR, OK )
633 INFOT = 18
634 CALL DSYSVX( 'n', 'u', 2, 0, A, 2, AF, 2, IP, B, 2, X, 2,
635 $ RCOND, R1, R2, W, 3, IW, INFO )
636 CALL CHKXER( 'dsysvx', INFOT, NOUT, LERR, OK )
637*
638 ELSE IF( LSAMEN( 2, C2, 'sr' ) ) THEN
639*
640* DSYSV_ROOK
641*
642 SRNAMT = 'dsysv_rook'
643 INFOT = 1
644 CALL DSYSV_ROOK( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
645 CALL CHKXER( 'dsysv_rook', INFOT, NOUT, LERR, OK )
646 INFOT = 2
647 CALL DSYSV_ROOK( 'u', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
648 CALL CHKXER( 'dsysv_rook', INFOT, NOUT, LERR, OK )
649 INFOT = 3
650 CALL DSYSV_ROOK( 'u', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
651 CALL CHKXER( 'dsysv_rook', INFOT, NOUT, LERR, OK )
652 INFOT = 5
653 CALL DSYSV_ROOK( 'u', 2, 0, A, 1, IP, B, 2, W, 1, INFO )
654 CALL CHKXER( 'dsysv_rook', INFOT, NOUT, LERR, OK )
655 INFOT = 8
656 CALL DSYSV_ROOK( 'u', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
657 CALL CHKXER( 'dsysv_rook', INFOT, NOUT, LERR, OK )
658 INFOT = 10
659 CALL DSYSV_ROOK( 'u', 0, 0, A, 1, IP, B, 1, W, 0, INFO )
660 CALL CHKXER( 'dsysv_rook', INFOT, NOUT, LERR, OK )
661 INFOT = 10
662 CALL DSYSV_ROOK( 'u', 0, 0, A, 1, IP, B, 1, W, -2, INFO )
663 CALL CHKXER( 'dsysv_rook', INFOT, NOUT, LERR, OK )
664*
665 ELSE IF( LSAMEN( 2, C2, 'sk' ) ) THEN
666*
667* DSYSV_RK
668*
669* Test error exits of the driver that uses factorization
670* of a symmetric indefinite matrix with rook
671* (bounded Bunch-Kaufman) pivoting with the new storage
672* format for factors L ( or U) and D.
673*
674* L (or U) is stored in A, diagonal of D is stored on the
675* diagonal of A, subdiagonal of D is stored in a separate array E.
676*
677 SRNAMT = 'dsysv_rk'
678 INFOT = 1
679 CALL DSYSV_RK( '/', 0, 0, A, 1, E, IP, B, 1, W, 1, INFO )
680 CALL CHKXER( 'dsysv_rk', INFOT, NOUT, LERR, OK )
681 INFOT = 2
682 CALL DSYSV_RK( 'u', -1, 0, A, 1, E, IP, B, 1, W, 1, INFO )
683 CALL CHKXER( 'dsysv_rk', INFOT, NOUT, LERR, OK )
684 INFOT = 3
685 CALL DSYSV_RK( 'u', 0, -1, A, 1, E, IP, B, 1, W, 1, INFO )
686 CALL CHKXER( 'dsysv_rk', INFOT, NOUT, LERR, OK )
687 INFOT = 5
688 CALL DSYSV_RK( 'u', 2, 0, A, 1, E, IP, B, 2, W, 1, INFO )
689 CALL CHKXER( 'dsysv_rk', INFOT, NOUT, LERR, OK )
690 INFOT = 9
691 CALL DSYSV_RK( 'u', 2, 0, A, 2, E, IP, B, 1, W, 1, INFO )
692 CALL CHKXER( 'dsysv_rk', INFOT, NOUT, LERR, OK )
693 INFOT = 11
694 CALL DSYSV_RK( 'u', 0, 0, A, 1, E, IP, B, 1, W, 0, INFO )
695 CALL CHKXER( 'dsysv_rk', INFOT, NOUT, LERR, OK )
696 INFOT = 11
697 CALL DSYSV_RK( 'u', 0, 0, A, 1, E, IP, B, 1, W, -2, INFO )
698 CALL CHKXER( 'dsysv_rk', INFOT, NOUT, LERR, OK )
699*
700 ELSE IF( LSAMEN( 2, C2, 'sa' ) ) THEN
701*
702* DSYSV_AA
703*
704 SRNAMT = 'dsysv_aa'
705 INFOT = 1
706 CALL DSYSV_AA( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO )
707 CALL CHKXER( 'dsysv_aa', INFOT, NOUT, LERR, OK )
708 INFOT = 2
709 CALL DSYSV_AA( 'u', -1, 0, A, 1, IP, B, 1, W, 1, INFO )
710 CALL CHKXER( 'dsysv_aa', INFOT, NOUT, LERR, OK )
711 INFOT = 3
712 CALL DSYSV_AA( 'u', 0, -1, A, 1, IP, B, 1, W, 1, INFO )
713 CALL CHKXER( 'dsysv_aa', INFOT, NOUT, LERR, OK )
714 INFOT = 8
715 CALL DSYSV_AA( 'u', 2, 0, A, 2, IP, B, 1, W, 1, INFO )
716 CALL CHKXER( 'dsysv_aa', INFOT, NOUT, LERR, OK )
717*
718 ELSE IF( LSAMEN( 2, C2, 's2' ) ) THEN
719*
720* DSYSV_AASEN_2STAGE
721*
722 SRNAMT = 'dsysv_aa_2stage'
723 INFOT = 1
724 CALL DSYSV_AA_2STAGE( '/', 0, 0, A, 1, A, 1, IP, IP, B, 1,
725 $ W, 1, INFO )
726 CALL CHKXER( 'dsysv_aa_2stage', INFOT, NOUT, LERR, OK )
727 INFOT = 2
728 CALL DSYSV_AA_2STAGE( 'u', -1, 0, A, 1, A, 1, IP, IP, B, 1,
729 $ W, 1, INFO )
730 CALL CHKXER( 'dsysv_aa_2stage', INFOT, NOUT, LERR, OK )
731 INFOT = 3
732 CALL DSYSV_AA_2STAGE( 'u', 0, -1, A, 1, A, 1, IP, IP, B, 1,
733 $ W, 1, INFO )
734 CALL CHKXER( 'dsysv_aa_2stage', INFOT, NOUT, LERR, OK )
735 INFOT = 5
736 CALL DSYSV_AA_2STAGE( 'u', 2, 1, A, 1, A, 1, IP, IP, B, 1,
737 $ W, 1, INFO )
738 CALL CHKXER( 'dsysv_aa_2stage', INFOT, NOUT, LERR, OK )
739 INFOT = 11
740 CALL DSYSV_AA_2STAGE( 'u', 2, 1, A, 2, A, 8, IP, IP, B, 1,
741 $ W, 1, INFO )
742 CALL CHKXER( 'dsysv_aa_2stage', INFOT, NOUT, LERR, OK )
743 INFOT = 7
744 CALL DSYSV_AA_2STAGE( 'u', 2, 1, A, 2, A, 1, IP, IP, B, 2,
745 $ W, 1, INFO )
746 CALL CHKXER( 'dsysv_aa_2stage', INFOT, NOUT, LERR, OK )
747*
748 ELSE IF( LSAMEN( 2, C2, 'sp' ) ) THEN
749*
750* DSPSV
751*
752 SRNAMT = 'dspsv '
753 INFOT = 1
754 CALL DSPSV( '/', 0, 0, A, IP, B, 1, INFO )
755 CALL CHKXER( 'dspsv ', INFOT, NOUT, LERR, OK )
756 INFOT = 2
757 CALL DSPSV( 'u', -1, 0, A, IP, B, 1, INFO )
758 CALL CHKXER( 'dspsv ', INFOT, NOUT, LERR, OK )
759 INFOT = 3
760 CALL DSPSV( 'u', 0, -1, A, IP, B, 1, INFO )
761 CALL CHKXER( 'dspsv ', INFOT, NOUT, LERR, OK )
762 INFOT = 7
763 CALL DSPSV( 'u', 2, 0, a, ip, b, 1, info )
764 CALL chkxer( 'DSPSV ', infot, nout, lerr, ok )
765*
766* DSPSVX
767*
768 srnamt = 'DSPSVX'
769 infot = 1
770 CALL dspsvx( '/', 'U', 0, 0, a, af, ip, b, 1, x, 1, rcond, r1,
771 $ r2, w, iw, info )
772 CALL chkxer( 'DSPSVX', infot, nout, lerr, ok )
773 infot = 2
774 CALL dspsvx( 'N', '/', 0, 0, a, af, ip, b, 1, x, 1, rcond, r1,
775 $ r2, w, iw, info )
776 CALL chkxer( 'DSPSVX', infot, nout, lerr, ok )
777 infot = 3
778 CALL dspsvx( 'N', 'U', -1, 0, a, af, ip, b, 1, x, 1, rcond, r1,
779 $ r2, w, iw, info )
780 CALL chkxer( 'DSPSVX', infot, nout, lerr, ok )
781 infot = 4
782 CALL dspsvx( 'N', 'U', 0, -1, a, af, ip, b, 1, x, 1, rcond, r1,
783 $ r2, w, iw, info )
784 CALL chkxer( 'DSPSVX', infot, nout, lerr, ok )
785 infot = 9
786 CALL dspsvx( 'N', 'U', 2, 0, a, af, ip, b, 1, x, 2, rcond, r1,
787 $ r2, w, iw, info )
788 CALL chkxer( 'DSPSVX', infot, nout, lerr, ok )
789 infot = 11
790 CALL dspsvx( 'N', 'U', 2, 0, a, af, ip, b, 2, x, 1, rcond, r1,
791 $ r2, w, iw, info )
792 CALL chkxer( 'DSPSVX', infot, nout, lerr, ok )
793 END IF
794*
795* Print a summary line.
796*
797 IF( ok ) THEN
798 WRITE( nout, fmt = 9999 )path
799 ELSE
800 WRITE( nout, fmt = 9998 )path
801 END IF
802*
803 9999 FORMAT( 1x, a3, ' drivers passed the tests of the error exits' )
804 9998 FORMAT( ' *** ', a3, ' drivers failed the tests of the error ',
805 $ 'exits ***' )
806*
807 RETURN
808*
809* End of DERRVX
810*
811 END
chkxer
subroutine chkxer(srnamt, infot, nout, lerr, ok)
Definition cblat2.f:3196
dgbsvx
subroutine dgbsvx(fact, trans, n, kl, ku, nrhs, ab, ldab, afb, ldafb, ipiv, equed, r, c, b, ldb, x, ldx, rcond, ferr, berr, work, iwork, info)
DGBSVX computes the solution to system of linear equations A * X = B for GB matrices
Definition dgbsvx.f:369
dgbsv
subroutine dgbsv(n, kl, ku, nrhs, ab, ldab, ipiv, b, ldb, info)
DGBSV computes the solution to system of linear equations A * X = B for GB matrices (simple driver)
Definition dgbsv.f:162
dgesvx
subroutine dgesvx(fact, trans, n, nrhs, a, lda, af, ldaf, ipiv, equed, r, c, b, ldb, x, ldx, rcond, ferr, berr, work, iwork, info)
DGESVX computes the solution to system of linear equations A * X = B for GE matrices
Definition dgesvx.f:349
dgesv
subroutine dgesv(n, nrhs, a, lda, ipiv, b, ldb, info)
DGESV computes the solution to system of linear equations A * X = B for GE matrices
Definition dgesv.f:122
dgtsv
subroutine dgtsv(n, nrhs, dl, d, du, b, ldb, info)
DGTSV computes the solution to system of linear equations A * X = B for GT matrices
Definition dgtsv.f:127
dgtsvx
subroutine dgtsvx(fact, trans, n, nrhs, dl, d, du, dlf, df, duf, du2, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, iwork, info)
DGTSVX computes the solution to system of linear equations A * X = B for GT matrices
Definition dgtsvx.f:293
dpbsvx
subroutine dpbsvx(fact, uplo, n, kd, nrhs, ab, ldab, afb, ldafb, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, iwork, info)
DPBSVX computes the solution to system of linear equations A * X = B for OTHER matrices
Definition dpbsvx.f:343
dppsvx
subroutine dppsvx(fact, uplo, n, nrhs, ap, afp, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, iwork, info)
DPPSVX computes the solution to system of linear equations A * X = B for OTHER matrices
Definition dppsvx.f:311
dppsv
subroutine dppsv(uplo, n, nrhs, ap, b, ldb, info)
DPPSV computes the solution to system of linear equations A * X = B for OTHER matrices
Definition dppsv.f:144
dpbsv
subroutine dpbsv(uplo, n, kd, nrhs, ab, ldab, b, ldb, info)
DPBSV computes the solution to system of linear equations A * X = B for OTHER matrices
Definition dpbsv.f:164
dspsvx
subroutine dspsvx(fact, uplo, n, nrhs, ap, afp, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, iwork, info)
DSPSVX computes the solution to system of linear equations A * X = B for OTHER matrices
Definition dspsvx.f:276
dspsv
subroutine dspsv(uplo, n, nrhs, ap, ipiv, b, ldb, info)
DSPSV computes the solution to system of linear equations A * X = B for OTHER matrices
Definition dspsv.f:162
dposv
subroutine dposv(uplo, n, nrhs, a, lda, b, ldb, info)
DPOSV computes the solution to system of linear equations A * X = B for PO matrices
Definition dposv.f:130
dposvx
subroutine dposvx(fact, uplo, n, nrhs, a, lda, af, ldaf, equed, s, b, ldb, x, ldx, rcond, ferr, berr, work, iwork, info)
DPOSVX computes the solution to system of linear equations A * X = B for PO matrices
Definition dposvx.f:307
dptsv
subroutine dptsv(n, nrhs, d, e, b, ldb, info)
DPTSV computes the solution to system of linear equations A * X = B for PT matrices
Definition dptsv.f:114
dptsvx
subroutine dptsvx(fact, n, nrhs, d, e, df, ef, b, ldb, x, ldx, rcond, ferr, berr, work, info)
DPTSVX computes the solution to system of linear equations A * X = B for PT matrices
Definition dptsvx.f:228
dsysv_rook
subroutine dsysv_rook(uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork, info)
DSYSV_ROOK computes the solution to system of linear equations A * X = B for SY matrices
Definition dsysv_rook.f:204
dsysv
subroutine dsysv(uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork, info)
DSYSV computes the solution to system of linear equations A * X = B for SY matrices
Definition dsysv.f:171
dsysvx
subroutine dsysvx(fact, uplo, n, nrhs, a, lda, af, ldaf, ipiv, b, ldb, x, ldx, rcond, ferr, berr, work, lwork, iwork, info)
DSYSVX computes the solution to system of linear equations A * X = B for SY matrices
Definition dsysvx.f:284
dsysv_rk
subroutine dsysv_rk(uplo, n, nrhs, a, lda, e, ipiv, b, ldb, work, lwork, info)
DSYSV_RK computes the solution to system of linear equations A * X = B for SY matrices
Definition dsysv_rk.f:228
dsysv_aa_2stage
subroutine dsysv_aa_2stage(uplo, n, nrhs, a, lda, tb, ltb, ipiv, ipiv2, b, ldb, work, lwork, info)
DSYSV_AA_2STAGE computes the solution to system of linear equations A * X = B for SY matrices
Definition dsysv_aa_2stage.f:188
dsysv_aa
subroutine dsysv_aa(uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork, info)
DSYSV_AA computes the solution to system of linear equations A * X = B for SY matrices
Definition dsysv_aa.f:162
derrvx
subroutine derrvx(path, nunit)
DERRVX
Definition derrvx.f:55