LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ serrvx()

subroutine serrvx ( character*3  PATH,
integer  NUNIT 
)

SERRVX

SERRVXX

Purpose:
 SERRVX tests the error exits for the REAL driver routines
 for solving linear systems of equations.
Parameters
[in]PATH
          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.
[in]NUNIT
          NUNIT is INTEGER
          The unit number for output.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
November 2017
Purpose:
 SERRVX tests the error exits for the REAL driver routines
 for solving linear systems of equations.
Parameters
[in]PATH
          PATH is CHARACTER*3
          The LAPACK path name for the routines to be tested.
[in]NUNIT
          NUNIT is INTEGER
          The unit number for output.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
December 2016

Definition at line 57 of file serrvx.f.

57 *
58 * -- LAPACK test routine (version 3.8.0) --
59 * -- LAPACK is a software package provided by Univ. of Tennessee, --
60 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
61 * November 2017
62 *
63 * .. Scalar Arguments ..
64  CHARACTER*3 path
65  INTEGER nunit
66 * ..
67 *
68 * =====================================================================
69 *
70 * .. Parameters ..
71  INTEGER nmax
72  parameter( nmax = 4 )
73 * ..
74 * .. Local Scalars ..
75  CHARACTER eq
76  CHARACTER*2 c2
77  INTEGER i, info, j
78  REAL rcond
79 * ..
80 * .. Local Arrays ..
81  INTEGER ip( nmax ), iw( nmax )
82  REAL a( nmax, nmax ), af( nmax, nmax ), b( nmax ),
83  $ c( nmax ), e( nmax ), r( nmax ), r1( nmax ),
84  $ r2( nmax ), w( 2*nmax ), x( nmax )
85 * ..
86 * .. External Functions ..
87  LOGICAL lsamen
88  EXTERNAL lsamen
89 * ..
90 * .. External Subroutines ..
91  EXTERNAL chkxer, sgbsv, sgbsvx, sgesv, sgesvx, sgtsv,
96 * ..
97 * .. Scalars in Common ..
98  LOGICAL lerr, ok
99  CHARACTER*32 srnamt
100  INTEGER infot, nout
101 * ..
102 * .. Common blocks ..
103  COMMON / infoc / infot, nout, ok, lerr
104  COMMON / srnamc / srnamt
105 * ..
106 * .. Intrinsic Functions ..
107  INTRINSIC real
108 * ..
109 * .. Executable Statements ..
110 *
111  nout = nunit
112  WRITE( nout, fmt = * )
113  c2 = path( 2: 3 )
114 *
115 * Set the variables to innocuous values.
116 *
117  DO 20 j = 1, nmax
118  DO 10 i = 1, nmax
119  a( i, j ) = 1. / REAL( i+j )
120  af( i, j ) = 1. / REAL( i+j )
121  10 CONTINUE
122  b( j ) = 0.e+0
123  e( j ) = 0.e+0
124  r1( j ) = 0.e+0
125  r2( j ) = 0.e+0
126  w( j ) = 0.e+0
127  x( j ) = 0.e+0
128  c( j ) = 0.e+0
129  r( j ) = 0.e+0
130  ip( j ) = j
131  20 CONTINUE
132  eq = ' '
133  ok = .true.
134 *
135  IF( lsamen( 2, c2, 'GE' ) ) THEN
136 *
137 * SGESV
138 *
139  srnamt = 'SGESV '
140  infot = 1
141  CALL sgesv( -1, 0, a, 1, ip, b, 1, info )
142  CALL chkxer( 'SGESV ', infot, nout, lerr, ok )
143  infot = 2
144  CALL sgesv( 0, -1, a, 1, ip, b, 1, info )
145  CALL chkxer( 'SGESV ', infot, nout, lerr, ok )
146  infot = 4
147  CALL sgesv( 2, 1, a, 1, ip, b, 2, info )
148  CALL chkxer( 'SGESV ', infot, nout, lerr, ok )
149  infot = 7
150  CALL sgesv( 2, 1, a, 2, ip, b, 1, info )
151  CALL chkxer( 'SGESV ', infot, nout, lerr, ok )
152 *
153 * SGESVX
154 *
155  srnamt = 'SGESVX'
156  infot = 1
157  CALL sgesvx( '/', 'N', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
158  $ x, 1, rcond, r1, r2, w, iw, info )
159  CALL chkxer( 'SGESVX', infot, nout, lerr, ok )
160  infot = 2
161  CALL sgesvx( 'N', '/', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
162  $ x, 1, rcond, r1, r2, w, iw, info )
163  CALL chkxer( 'SGESVX', infot, nout, lerr, ok )
164  infot = 3
165  CALL sgesvx( 'N', 'N', -1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
166  $ x, 1, rcond, r1, r2, w, iw, info )
167  CALL chkxer( 'SGESVX', infot, nout, lerr, ok )
168  infot = 4
169  CALL sgesvx( 'N', 'N', 0, -1, a, 1, af, 1, ip, eq, r, c, b, 1,
170  $ x, 1, rcond, r1, r2, w, iw, info )
171  CALL chkxer( 'SGESVX', infot, nout, lerr, ok )
172  infot = 6
173  CALL sgesvx( 'N', 'N', 2, 1, a, 1, af, 2, ip, eq, r, c, b, 2,
174  $ x, 2, rcond, r1, r2, w, iw, info )
175  CALL chkxer( 'SGESVX', infot, nout, lerr, ok )
176  infot = 8
177  CALL sgesvx( 'N', 'N', 2, 1, a, 2, af, 1, ip, eq, r, c, b, 2,
178  $ x, 2, rcond, r1, r2, w, iw, info )
179  CALL chkxer( 'SGESVX', infot, nout, lerr, ok )
180  infot = 10
181  eq = '/'
182  CALL sgesvx( 'F', 'N', 0, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
183  $ x, 1, rcond, r1, r2, w, iw, info )
184  CALL chkxer( 'SGESVX', infot, nout, lerr, ok )
185  infot = 11
186  eq = 'R'
187  CALL sgesvx( 'F', 'N', 1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
188  $ x, 1, rcond, r1, r2, w, iw, info )
189  CALL chkxer( 'SGESVX', infot, nout, lerr, ok )
190  infot = 12
191  eq = 'C'
192  CALL sgesvx( 'F', 'N', 1, 0, a, 1, af, 1, ip, eq, r, c, b, 1,
193  $ x, 1, rcond, r1, r2, w, iw, info )
194  CALL chkxer( 'SGESVX', infot, nout, lerr, ok )
195  infot = 14
196  CALL sgesvx( 'N', 'N', 2, 1, a, 2, af, 2, ip, eq, r, c, b, 1,
197  $ x, 2, rcond, r1, r2, w, iw, info )
198  CALL chkxer( 'SGESVX', infot, nout, lerr, ok )
199  infot = 16
200  CALL sgesvx( 'N', 'N', 2, 1, a, 2, af, 2, ip, eq, r, c, b, 2,
201  $ x, 1, rcond, r1, r2, w, iw, info )
202  CALL chkxer( 'SGESVX', infot, nout, lerr, ok )
203 *
204  ELSE IF( lsamen( 2, c2, 'GB' ) ) THEN
205 *
206 * SGBSV
207 *
208  srnamt = 'SGBSV '
209  infot = 1
210  CALL sgbsv( -1, 0, 0, 0, a, 1, ip, b, 1, info )
211  CALL chkxer( 'SGBSV ', infot, nout, lerr, ok )
212  infot = 2
213  CALL sgbsv( 1, -1, 0, 0, a, 1, ip, b, 1, info )
214  CALL chkxer( 'SGBSV ', infot, nout, lerr, ok )
215  infot = 3
216  CALL sgbsv( 1, 0, -1, 0, a, 1, ip, b, 1, info )
217  CALL chkxer( 'SGBSV ', infot, nout, lerr, ok )
218  infot = 4
219  CALL sgbsv( 0, 0, 0, -1, a, 1, ip, b, 1, info )
220  CALL chkxer( 'SGBSV ', infot, nout, lerr, ok )
221  infot = 6
222  CALL sgbsv( 1, 1, 1, 0, a, 3, ip, b, 1, info )
223  CALL chkxer( 'SGBSV ', infot, nout, lerr, ok )
224  infot = 9
225  CALL sgbsv( 2, 0, 0, 0, a, 1, ip, b, 1, info )
226  CALL chkxer( 'SGBSV ', infot, nout, lerr, ok )
227 *
228 * SGBSVX
229 *
230  srnamt = 'SGBSVX'
231  infot = 1
232  CALL sgbsvx( '/', 'N', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
233  $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
234  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
235  infot = 2
236  CALL sgbsvx( 'N', '/', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
237  $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
238  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
239  infot = 3
240  CALL sgbsvx( 'N', 'N', -1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
241  $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
242  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
243  infot = 4
244  CALL sgbsvx( 'N', 'N', 1, -1, 0, 0, a, 1, af, 1, ip, eq, r, c,
245  $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
246  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
247  infot = 5
248  CALL sgbsvx( 'N', 'N', 1, 0, -1, 0, a, 1, af, 1, ip, eq, r, c,
249  $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
250  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
251  infot = 6
252  CALL sgbsvx( 'N', 'N', 0, 0, 0, -1, a, 1, af, 1, ip, eq, r, c,
253  $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
254  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
255  infot = 8
256  CALL sgbsvx( 'N', 'N', 1, 1, 1, 0, a, 2, af, 4, ip, eq, r, c,
257  $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
258  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
259  infot = 10
260  CALL sgbsvx( 'N', 'N', 1, 1, 1, 0, a, 3, af, 3, ip, eq, r, c,
261  $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
262  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
263  infot = 12
264  eq = '/'
265  CALL sgbsvx( 'F', 'N', 0, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
266  $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
267  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
268  infot = 13
269  eq = 'R'
270  CALL sgbsvx( 'F', 'N', 1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
271  $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
272  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
273  infot = 14
274  eq = 'C'
275  CALL sgbsvx( 'F', 'N', 1, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
276  $ b, 1, x, 1, rcond, r1, r2, w, iw, info )
277  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
278  infot = 16
279  CALL sgbsvx( 'N', 'N', 2, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
280  $ b, 1, x, 2, rcond, r1, r2, w, iw, info )
281  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
282  infot = 18
283  CALL sgbsvx( 'N', 'N', 2, 0, 0, 0, a, 1, af, 1, ip, eq, r, c,
284  $ b, 2, x, 1, rcond, r1, r2, w, iw, info )
285  CALL chkxer( 'SGBSVX', infot, nout, lerr, ok )
286 *
287  ELSE IF( lsamen( 2, c2, 'GT' ) ) THEN
288 *
289 * SGTSV
290 *
291  srnamt = 'SGTSV '
292  infot = 1
293  CALL sgtsv( -1, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1,
294  $ info )
295  CALL chkxer( 'SGTSV ', infot, nout, lerr, ok )
296  infot = 2
297  CALL sgtsv( 0, -1, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1,
298  $ info )
299  CALL chkxer( 'SGTSV ', infot, nout, lerr, ok )
300  infot = 7
301  CALL sgtsv( 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ), b, 1, info )
302  CALL chkxer( 'SGTSV ', infot, nout, lerr, ok )
303 *
304 * SGTSVX
305 *
306  srnamt = 'SGTSVX'
307  infot = 1
308  CALL sgtsvx( '/', 'N', 0, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
309  $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
310  $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
311  CALL chkxer( 'SGTSVX', infot, nout, lerr, ok )
312  infot = 2
313  CALL sgtsvx( 'N', '/', 0, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
314  $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
315  $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
316  CALL chkxer( 'SGTSVX', infot, nout, lerr, ok )
317  infot = 3
318  CALL sgtsvx( 'N', 'N', -1, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
319  $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
320  $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
321  CALL chkxer( 'SGTSVX', infot, nout, lerr, ok )
322  infot = 4
323  CALL sgtsvx( 'N', 'N', 0, -1, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
324  $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
325  $ ip, b, 1, x, 1, rcond, r1, r2, w, iw, info )
326  CALL chkxer( 'SGTSVX', infot, nout, lerr, ok )
327  infot = 14
328  CALL sgtsvx( 'N', 'N', 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
329  $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
330  $ ip, b, 1, x, 2, rcond, r1, r2, w, iw, info )
331  CALL chkxer( 'SGTSVX', infot, nout, lerr, ok )
332  infot = 16
333  CALL sgtsvx( 'N', 'N', 2, 0, a( 1, 1 ), a( 1, 2 ), a( 1, 3 ),
334  $ af( 1, 1 ), af( 1, 2 ), af( 1, 3 ), af( 1, 4 ),
335  $ ip, b, 2, x, 1, rcond, r1, r2, w, iw, info )
336  CALL chkxer( 'SGTSVX', infot, nout, lerr, ok )
337 *
338  ELSE IF( lsamen( 2, c2, 'PO' ) ) THEN
339 *
340 * SPOSV
341 *
342  srnamt = 'SPOSV '
343  infot = 1
344  CALL sposv( '/', 0, 0, a, 1, b, 1, info )
345  CALL chkxer( 'SPOSV ', infot, nout, lerr, ok )
346  infot = 2
347  CALL sposv( 'U', -1, 0, a, 1, b, 1, info )
348  CALL chkxer( 'SPOSV ', infot, nout, lerr, ok )
349  infot = 3
350  CALL sposv( 'U', 0, -1, a, 1, b, 1, info )
351  CALL chkxer( 'SPOSV ', infot, nout, lerr, ok )
352  infot = 5
353  CALL sposv( 'U', 2, 0, a, 1, b, 2, info )
354  CALL chkxer( 'SPOSV ', infot, nout, lerr, ok )
355  infot = 7
356  CALL sposv( 'U', 2, 0, a, 2, b, 1, info )
357  CALL chkxer( 'SPOSV ', infot, nout, lerr, ok )
358 *
359 * SPOSVX
360 *
361  srnamt = 'SPOSVX'
362  infot = 1
363  CALL sposvx( '/', 'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
364  $ rcond, r1, r2, w, iw, info )
365  CALL chkxer( 'SPOSVX', infot, nout, lerr, ok )
366  infot = 2
367  CALL sposvx( 'N', '/', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
368  $ rcond, r1, r2, w, iw, info )
369  CALL chkxer( 'SPOSVX', infot, nout, lerr, ok )
370  infot = 3
371  CALL sposvx( 'N', 'U', -1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
372  $ rcond, r1, r2, w, iw, info )
373  CALL chkxer( 'SPOSVX', infot, nout, lerr, ok )
374  infot = 4
375  CALL sposvx( 'N', 'U', 0, -1, a, 1, af, 1, eq, c, b, 1, x, 1,
376  $ rcond, r1, r2, w, iw, info )
377  CALL chkxer( 'SPOSVX', infot, nout, lerr, ok )
378  infot = 6
379  CALL sposvx( 'N', 'U', 2, 0, a, 1, af, 2, eq, c, b, 2, x, 2,
380  $ rcond, r1, r2, w, iw, info )
381  CALL chkxer( 'SPOSVX', infot, nout, lerr, ok )
382  infot = 8
383  CALL sposvx( 'N', 'U', 2, 0, a, 2, af, 1, eq, c, b, 2, x, 2,
384  $ rcond, r1, r2, w, iw, info )
385  CALL chkxer( 'SPOSVX', infot, nout, lerr, ok )
386  infot = 9
387  eq = '/'
388  CALL sposvx( 'F', 'U', 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
389  $ rcond, r1, r2, w, iw, info )
390  CALL chkxer( 'SPOSVX', infot, nout, lerr, ok )
391  infot = 10
392  eq = 'Y'
393  CALL sposvx( 'F', 'U', 1, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
394  $ rcond, r1, r2, w, iw, info )
395  CALL chkxer( 'SPOSVX', infot, nout, lerr, ok )
396  infot = 12
397  CALL sposvx( 'N', 'U', 2, 0, a, 2, af, 2, eq, c, b, 1, x, 2,
398  $ rcond, r1, r2, w, iw, info )
399  CALL chkxer( 'SPOSVX', infot, nout, lerr, ok )
400  infot = 14
401  CALL sposvx( 'N', 'U', 2, 0, a, 2, af, 2, eq, c, b, 2, x, 1,
402  $ rcond, r1, r2, w, iw, info )
403  CALL chkxer( 'SPOSVX', infot, nout, lerr, ok )
404 *
405  ELSE IF( lsamen( 2, c2, 'PP' ) ) THEN
406 *
407 * SPPSV
408 *
409  srnamt = 'SPPSV '
410  infot = 1
411  CALL sppsv( '/', 0, 0, a, b, 1, info )
412  CALL chkxer( 'SPPSV ', infot, nout, lerr, ok )
413  infot = 2
414  CALL sppsv( 'U', -1, 0, a, b, 1, info )
415  CALL chkxer( 'SPPSV ', infot, nout, lerr, ok )
416  infot = 3
417  CALL sppsv( 'U', 0, -1, a, b, 1, info )
418  CALL chkxer( 'SPPSV ', infot, nout, lerr, ok )
419  infot = 6
420  CALL sppsv( 'U', 2, 0, a, b, 1, info )
421  CALL chkxer( 'SPPSV ', infot, nout, lerr, ok )
422 *
423 * SPPSVX
424 *
425  srnamt = 'SPPSVX'
426  infot = 1
427  CALL sppsvx( '/', 'U', 0, 0, a, af, eq, c, b, 1, x, 1, rcond,
428  $ r1, r2, w, iw, info )
429  CALL chkxer( 'SPPSVX', infot, nout, lerr, ok )
430  infot = 2
431  CALL sppsvx( 'N', '/', 0, 0, a, af, eq, c, b, 1, x, 1, rcond,
432  $ r1, r2, w, iw, info )
433  CALL chkxer( 'SPPSVX', infot, nout, lerr, ok )
434  infot = 3
435  CALL sppsvx( 'N', 'U', -1, 0, a, af, eq, c, b, 1, x, 1, rcond,
436  $ r1, r2, w, iw, info )
437  CALL chkxer( 'SPPSVX', infot, nout, lerr, ok )
438  infot = 4
439  CALL sppsvx( 'N', 'U', 0, -1, a, af, eq, c, b, 1, x, 1, rcond,
440  $ r1, r2, w, iw, info )
441  CALL chkxer( 'SPPSVX', infot, nout, lerr, ok )
442  infot = 7
443  eq = '/'
444  CALL sppsvx( 'F', 'U', 0, 0, a, af, eq, c, b, 1, x, 1, rcond,
445  $ r1, r2, w, iw, info )
446  CALL chkxer( 'SPPSVX', infot, nout, lerr, ok )
447  infot = 8
448  eq = 'Y'
449  CALL sppsvx( 'F', 'U', 1, 0, a, af, eq, c, b, 1, x, 1, rcond,
450  $ r1, r2, w, iw, info )
451  CALL chkxer( 'SPPSVX', infot, nout, lerr, ok )
452  infot = 10
453  CALL sppsvx( 'N', 'U', 2, 0, a, af, eq, c, b, 1, x, 2, rcond,
454  $ r1, r2, w, iw, info )
455  CALL chkxer( 'SPPSVX', infot, nout, lerr, ok )
456  infot = 12
457  CALL sppsvx( 'N', 'U', 2, 0, a, af, eq, c, b, 2, x, 1, rcond,
458  $ r1, r2, w, iw, info )
459  CALL chkxer( 'SPPSVX', infot, nout, lerr, ok )
460 *
461  ELSE IF( lsamen( 2, c2, 'PB' ) ) THEN
462 *
463 * SPBSV
464 *
465  srnamt = 'SPBSV '
466  infot = 1
467  CALL spbsv( '/', 0, 0, 0, a, 1, b, 1, info )
468  CALL chkxer( 'SPBSV ', infot, nout, lerr, ok )
469  infot = 2
470  CALL spbsv( 'U', -1, 0, 0, a, 1, b, 1, info )
471  CALL chkxer( 'SPBSV ', infot, nout, lerr, ok )
472  infot = 3
473  CALL spbsv( 'U', 1, -1, 0, a, 1, b, 1, info )
474  CALL chkxer( 'SPBSV ', infot, nout, lerr, ok )
475  infot = 4
476  CALL spbsv( 'U', 0, 0, -1, a, 1, b, 1, info )
477  CALL chkxer( 'SPBSV ', infot, nout, lerr, ok )
478  infot = 6
479  CALL spbsv( 'U', 1, 1, 0, a, 1, b, 2, info )
480  CALL chkxer( 'SPBSV ', infot, nout, lerr, ok )
481  infot = 8
482  CALL spbsv( 'U', 2, 0, 0, a, 1, b, 1, info )
483  CALL chkxer( 'SPBSV ', infot, nout, lerr, ok )
484 *
485 * SPBSVX
486 *
487  srnamt = 'SPBSVX'
488  infot = 1
489  CALL spbsvx( '/', 'U', 0, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
490  $ rcond, r1, r2, w, iw, info )
491  CALL chkxer( 'SPBSVX', infot, nout, lerr, ok )
492  infot = 2
493  CALL spbsvx( 'N', '/', 0, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
494  $ rcond, r1, r2, w, iw, info )
495  CALL chkxer( 'SPBSVX', infot, nout, lerr, ok )
496  infot = 3
497  CALL spbsvx( 'N', 'U', -1, 0, 0, a, 1, af, 1, eq, c, b, 1, x,
498  $ 1, rcond, r1, r2, w, iw, info )
499  CALL chkxer( 'SPBSVX', infot, nout, lerr, ok )
500  infot = 4
501  CALL spbsvx( 'N', 'U', 1, -1, 0, a, 1, af, 1, eq, c, b, 1, x,
502  $ 1, rcond, r1, r2, w, iw, info )
503  CALL chkxer( 'SPBSVX', infot, nout, lerr, ok )
504  infot = 5
505  CALL spbsvx( 'N', 'U', 0, 0, -1, a, 1, af, 1, eq, c, b, 1, x,
506  $ 1, rcond, r1, r2, w, iw, info )
507  CALL chkxer( 'SPBSVX', infot, nout, lerr, ok )
508  infot = 7
509  CALL spbsvx( 'N', 'U', 1, 1, 0, a, 1, af, 2, eq, c, b, 2, x, 2,
510  $ rcond, r1, r2, w, iw, info )
511  CALL chkxer( 'SPBSVX', infot, nout, lerr, ok )
512  infot = 9
513  CALL spbsvx( 'N', 'U', 1, 1, 0, a, 2, af, 1, eq, c, b, 2, x, 2,
514  $ rcond, r1, r2, w, iw, info )
515  CALL chkxer( 'SPBSVX', infot, nout, lerr, ok )
516  infot = 10
517  eq = '/'
518  CALL spbsvx( 'F', 'U', 0, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
519  $ rcond, r1, r2, w, iw, info )
520  CALL chkxer( 'SPBSVX', infot, nout, lerr, ok )
521  infot = 11
522  eq = 'Y'
523  CALL spbsvx( 'F', 'U', 1, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 1,
524  $ rcond, r1, r2, w, iw, info )
525  CALL chkxer( 'SPBSVX', infot, nout, lerr, ok )
526  infot = 13
527  CALL spbsvx( 'N', 'U', 2, 0, 0, a, 1, af, 1, eq, c, b, 1, x, 2,
528  $ rcond, r1, r2, w, iw, info )
529  CALL chkxer( 'SPBSVX', infot, nout, lerr, ok )
530  infot = 15
531  CALL spbsvx( 'N', 'U', 2, 0, 0, a, 1, af, 1, eq, c, b, 2, x, 1,
532  $ rcond, r1, r2, w, iw, info )
533  CALL chkxer( 'SPBSVX', infot, nout, lerr, ok )
534 *
535  ELSE IF( lsamen( 2, c2, 'PT' ) ) THEN
536 *
537 * SPTSV
538 *
539  srnamt = 'SPTSV '
540  infot = 1
541  CALL sptsv( -1, 0, a( 1, 1 ), a( 1, 2 ), b, 1, info )
542  CALL chkxer( 'SPTSV ', infot, nout, lerr, ok )
543  infot = 2
544  CALL sptsv( 0, -1, a( 1, 1 ), a( 1, 2 ), b, 1, info )
545  CALL chkxer( 'SPTSV ', infot, nout, lerr, ok )
546  infot = 6
547  CALL sptsv( 2, 0, a( 1, 1 ), a( 1, 2 ), b, 1, info )
548  CALL chkxer( 'SPTSV ', infot, nout, lerr, ok )
549 *
550 * SPTSVX
551 *
552  srnamt = 'SPTSVX'
553  infot = 1
554  CALL sptsvx( '/', 0, 0, a( 1, 1 ), a( 1, 2 ), af( 1, 1 ),
555  $ af( 1, 2 ), b, 1, x, 1, rcond, r1, r2, w, info )
556  CALL chkxer( 'SPTSVX', infot, nout, lerr, ok )
557  infot = 2
558  CALL sptsvx( 'N', -1, 0, a( 1, 1 ), a( 1, 2 ), af( 1, 1 ),
559  $ af( 1, 2 ), b, 1, x, 1, rcond, r1, r2, w, info )
560  CALL chkxer( 'SPTSVX', infot, nout, lerr, ok )
561  infot = 3
562  CALL sptsvx( 'N', 0, -1, a( 1, 1 ), a( 1, 2 ), af( 1, 1 ),
563  $ af( 1, 2 ), b, 1, x, 1, rcond, r1, r2, w, info )
564  CALL chkxer( 'SPTSVX', infot, nout, lerr, ok )
565  infot = 9
566  CALL sptsvx( 'N', 2, 0, a( 1, 1 ), a( 1, 2 ), af( 1, 1 ),
567  $ af( 1, 2 ), b, 1, x, 2, rcond, r1, r2, w, info )
568  CALL chkxer( 'SPTSVX', infot, nout, lerr, ok )
569  infot = 11
570  CALL sptsvx( 'N', 2, 0, a( 1, 1 ), a( 1, 2 ), af( 1, 1 ),
571  $ af( 1, 2 ), b, 2, x, 1, rcond, r1, r2, w, info )
572  CALL chkxer( 'SPTSVX', infot, nout, lerr, ok )
573 *
574  ELSE IF( lsamen( 2, c2, 'SY' ) ) THEN
575 *
576 * SSYSV
577 *
578  srnamt = 'SSYSV '
579  infot = 1
580  CALL ssysv( '/', 0, 0, a, 1, ip, b, 1, w, 1, info )
581  CALL chkxer( 'SSYSV ', infot, nout, lerr, ok )
582  infot = 2
583  CALL ssysv( 'U', -1, 0, a, 1, ip, b, 1, w, 1, info )
584  CALL chkxer( 'SSYSV ', infot, nout, lerr, ok )
585  infot = 3
586  CALL ssysv( 'U', 0, -1, a, 1, ip, b, 1, w, 1, info )
587  CALL chkxer( 'SSYSV ', infot, nout, lerr, ok )
588  infot = 8
589  CALL ssysv( 'U', 2, 0, a, 2, ip, b, 1, w, 1, info )
590  CALL chkxer( 'SSYSV ', infot, nout, lerr, ok )
591  infot = 10
592  CALL ssysv( 'U', 0, 0, a, 1, ip, b, 1, w, 0, info )
593  CALL chkxer( 'SSYSV ', infot, nout, lerr, ok )
594  infot = 10
595  CALL ssysv( 'U', 0, 0, a, 1, ip, b, 1, w, -2, info )
596  CALL chkxer( 'SSYSV ', infot, nout, lerr, ok )
597 *
598 * SSYSVX
599 *
600  srnamt = 'SSYSVX'
601  infot = 1
602  CALL ssysvx( '/', 'U', 0, 0, a, 1, af, 1, ip, b, 1, x, 1,
603  $ rcond, r1, r2, w, 1, iw, info )
604  CALL chkxer( 'SSYSVX', infot, nout, lerr, ok )
605  infot = 2
606  CALL ssysvx( 'N', '/', 0, 0, a, 1, af, 1, ip, b, 1, x, 1,
607  $ rcond, r1, r2, w, 1, iw, info )
608  CALL chkxer( 'SSYSVX', infot, nout, lerr, ok )
609  infot = 3
610  CALL ssysvx( 'N', 'U', -1, 0, a, 1, af, 1, ip, b, 1, x, 1,
611  $ rcond, r1, r2, w, 1, iw, info )
612  CALL chkxer( 'SSYSVX', infot, nout, lerr, ok )
613  infot = 4
614  CALL ssysvx( 'N', 'U', 0, -1, a, 1, af, 1, ip, b, 1, x, 1,
615  $ rcond, r1, r2, w, 1, iw, info )
616  CALL chkxer( 'SSYSVX', infot, nout, lerr, ok )
617  infot = 6
618  CALL ssysvx( 'N', 'U', 2, 0, a, 1, af, 2, ip, b, 2, x, 2,
619  $ rcond, r1, r2, w, 4, iw, info )
620  CALL chkxer( 'SSYSVX', infot, nout, lerr, ok )
621  infot = 8
622  CALL ssysvx( 'N', 'U', 2, 0, a, 2, af, 1, ip, b, 2, x, 2,
623  $ rcond, r1, r2, w, 4, iw, info )
624  CALL chkxer( 'SSYSVX', infot, nout, lerr, ok )
625  infot = 11
626  CALL ssysvx( 'N', 'U', 2, 0, a, 2, af, 2, ip, b, 1, x, 2,
627  $ rcond, r1, r2, w, 4, iw, info )
628  CALL chkxer( 'SSYSVX', infot, nout, lerr, ok )
629  infot = 13
630  CALL ssysvx( 'N', 'U', 2, 0, a, 2, af, 2, ip, b, 2, x, 1,
631  $ rcond, r1, r2, w, 4, iw, info )
632  CALL chkxer( 'SSYSVX', infot, nout, lerr, ok )
633  infot = 18
634  CALL ssysvx( 'N', 'U', 2, 0, a, 2, af, 2, ip, b, 2, x, 2,
635  $ rcond, r1, r2, w, 3, iw, info )
636  CALL chkxer( 'SSYSVX', infot, nout, lerr, ok )
637 *
638 *
639  ELSE IF( lsamen( 2, c2, 'SR' ) ) THEN
640 *
641 * SSYSV_ROOK
642 *
643  srnamt = 'SSYSV_ROOK'
644  infot = 1
645  CALL ssysv_rook( '/', 0, 0, a, 1, ip, b, 1, w, 1, info )
646  CALL chkxer( 'SSYSV_ROOK', infot, nout, lerr, ok )
647  infot = 2
648  CALL ssysv_rook( 'U', -1, 0, a, 1, ip, b, 1, w, 1, info )
649  CALL chkxer( 'SSYSV_ROOK', infot, nout, lerr, ok )
650  infot = 3
651  CALL ssysv_rook( 'U', 0, -1, a, 1, ip, b, 1, w, 1, info )
652  CALL chkxer( 'SSYSV_ROOK', infot, nout, lerr, ok )
653  infot = 8
654  CALL ssysv_rook( 'U', 2, 0, a, 2, ip, b, 1, w, 1, info )
655  CALL chkxer( 'SSYSV_ROOK', infot, nout, lerr, ok )
656  infot = 10
657  CALL ssysv_rook( 'U', 0, 0, a, 1, ip, b, 1, w, 0, info )
658  CALL chkxer( 'SSYSV_ROOK', infot, nout, lerr, ok )
659  infot = 10
660  CALL ssysv_rook( 'U', 0, 0, a, 1, ip, b, 1, w, -2, info )
661  CALL chkxer( 'SSYSV_ROOK', infot, nout, lerr, ok )
662 *
663  ELSE IF( lsamen( 2, c2, 'SK' ) ) THEN
664 *
665 * SSYSV_RK
666 *
667 * Test error exits of the driver that uses factorization
668 * of a symmetric indefinite matrix with rook
669 * (bounded Bunch-Kaufman) pivoting with the new storage
670 * format for factors L ( or U) and D.
671 *
672 * L (or U) is stored in A, diagonal of D is stored on the
673 * diagonal of A, subdiagonal of D is stored in a separate array E.
674 *
675  srnamt = 'SSYSV_RK'
676  infot = 1
677  CALL ssysv_rk( '/', 0, 0, a, 1, e, ip, b, 1, w, 1, info )
678  CALL chkxer( 'SSYSV_RK', infot, nout, lerr, ok )
679  infot = 2
680  CALL ssysv_rk( 'U', -1, 0, a, 1, e, ip, b, 1, w, 1, info )
681  CALL chkxer( 'SSYSV_RK', infot, nout, lerr, ok )
682  infot = 3
683  CALL ssysv_rk( 'U', 0, -1, a, 1, e, ip, b, 1, w, 1, info )
684  CALL chkxer( 'SSYSV_RK', infot, nout, lerr, ok )
685  infot = 5
686  CALL ssysv_rk( 'U', 2, 0, a, 1, e, ip, b, 2, w, 1, info )
687  CALL chkxer( 'SSYSV_RK', infot, nout, lerr, ok )
688  infot = 9
689  CALL ssysv_rk( 'U', 2, 0, a, 2, e, ip, b, 1, w, 1, info )
690  CALL chkxer( 'SSYSV_RK', infot, nout, lerr, ok )
691  infot = 11
692  CALL ssysv_rk( 'U', 0, 0, a, 1, e, ip, b, 1, w, 0, info )
693  CALL chkxer( 'SSYSV_RK', infot, nout, lerr, ok )
694  infot = 11
695  CALL ssysv_rk( 'U', 0, 0, a, 1, e, ip, b, 1, w, -2, info )
696  CALL chkxer( 'SSYSV_RK', infot, nout, lerr, ok )
697 *
698  ELSE IF( lsamen( 2, c2, 'SA' ) ) THEN
699 *
700 * SSYSV_AA
701 *
702  srnamt = 'SSYSV_AA'
703  infot = 1
704  CALL ssysv_aa( '/', 0, 0, a, 1, ip, b, 1, w, 1, info )
705  CALL chkxer( 'SSYSV_AA', infot, nout, lerr, ok )
706  infot = 2
707  CALL ssysv_aa( 'U', -1, 0, a, 1, ip, b, 1, w, 1, info )
708  CALL chkxer( 'SSYSV_AA', infot, nout, lerr, ok )
709  infot = 3
710  CALL ssysv_aa( 'U', 0, -1, a, 1, ip, b, 1, w, 1, info )
711  CALL chkxer( 'SSYSV_AA', infot, nout, lerr, ok )
712  infot = 8
713  CALL ssysv_aa( 'U', 2, 0, a, 2, ip, b, 1, w, 1, info )
714  CALL chkxer( 'SSYSV_AA', infot, nout, lerr, ok )
715 *
716  ELSE IF( lsamen( 2, c2, 'S2' ) ) THEN
717 *
718 * DSYSV_AASEN_2STAGE
719 *
720  srnamt = 'SSYSV_AA_2STAGE'
721  infot = 1
722  CALL ssysv_aa_2stage( '/', 0, 0, a, 1, a, 1, ip, ip, b, 1,
723  $ w, 1, info )
724  CALL chkxer( 'SSYSV_AA_2STAGE', infot, nout, lerr, ok )
725  infot = 2
726  CALL ssysv_aa_2stage( 'U', -1, 0, a, 1, a, 1, ip, ip, b, 1,
727  $ w, 1, info )
728  CALL chkxer( 'SSYSV_AA_2STAGE', infot, nout, lerr, ok )
729  infot = 3
730  CALL ssysv_aa_2stage( 'U', 0, -1, a, 1, a, 1, ip, ip, b, 1,
731  $ w, 1, info )
732  CALL chkxer( 'SSYSV_AA_2STAGE', infot, nout, lerr, ok )
733  infot = 5
734  CALL ssysv_aa_2stage( 'U', 2, 1, a, 1, a, 1, ip, ip, b, 1,
735  $ w, 1, info )
736  CALL chkxer( 'SSYSV_AA_2STAGE', infot, nout, lerr, ok )
737  infot = 11
738  CALL ssysv_aa_2stage( 'U', 2, 1, a, 2, a, 2, ip, ip, b, 1,
739  $ w, 1, info )
740  CALL chkxer( 'SSYSV_AA_2STAGE', infot, nout, lerr, ok )
741  infot = 7
742  CALL ssysv_aa_2stage( 'U', 2, 1, a, 2, a, 1, ip, ip, b, 2,
743  $ w, 1, info )
744  CALL chkxer( 'SSYSV_AA_2STAGE', infot, nout, lerr, ok )
745 *
746  ELSE IF( lsamen( 2, c2, 'SP' ) ) THEN
747 *
748 * SSPSV
749 *
750  srnamt = 'SSPSV '
751  infot = 1
752  CALL sspsv( '/', 0, 0, a, ip, b, 1, info )
753  CALL chkxer( 'SSPSV ', infot, nout, lerr, ok )
754  infot = 2
755  CALL sspsv( 'U', -1, 0, a, ip, b, 1, info )
756  CALL chkxer( 'SSPSV ', infot, nout, lerr, ok )
757  infot = 3
758  CALL sspsv( 'U', 0, -1, a, ip, b, 1, info )
759  CALL chkxer( 'SSPSV ', infot, nout, lerr, ok )
760  infot = 7
761  CALL sspsv( 'U', 2, 0, a, ip, b, 1, info )
762  CALL chkxer( 'SSPSV ', infot, nout, lerr, ok )
763 *
764 * SSPSVX
765 *
766  srnamt = 'SSPSVX'
767  infot = 1
768  CALL sspsvx( '/', 'U', 0, 0, a, af, ip, b, 1, x, 1, rcond, r1,
769  $ r2, w, iw, info )
770  CALL chkxer( 'SSPSVX', infot, nout, lerr, ok )
771  infot = 2
772  CALL sspsvx( 'N', '/', 0, 0, a, af, ip, b, 1, x, 1, rcond, r1,
773  $ r2, w, iw, info )
774  CALL chkxer( 'SSPSVX', infot, nout, lerr, ok )
775  infot = 3
776  CALL sspsvx( 'N', 'U', -1, 0, a, af, ip, b, 1, x, 1, rcond, r1,
777  $ r2, w, iw, info )
778  CALL chkxer( 'SSPSVX', infot, nout, lerr, ok )
779  infot = 4
780  CALL sspsvx( 'N', 'U', 0, -1, a, af, ip, b, 1, x, 1, rcond, r1,
781  $ r2, w, iw, info )
782  CALL chkxer( 'SSPSVX', infot, nout, lerr, ok )
783  infot = 9
784  CALL sspsvx( 'N', 'U', 2, 0, a, af, ip, b, 1, x, 2, rcond, r1,
785  $ r2, w, iw, info )
786  CALL chkxer( 'SSPSVX', infot, nout, lerr, ok )
787  infot = 11
788  CALL sspsvx( 'N', 'U', 2, 0, a, af, ip, b, 2, x, 1, rcond, r1,
789  $ r2, w, iw, info )
790  CALL chkxer( 'SSPSVX', infot, nout, lerr, ok )
791  END IF
792 *
793 * Print a summary line.
794 *
795  IF( ok ) THEN
796  WRITE( nout, fmt = 9999 )path
797  ELSE
798  WRITE( nout, fmt = 9998 )path
799  END IF
800 *
801  9999 FORMAT( 1x, a3, ' drivers passed the tests of the error exits' )
802  9998 FORMAT( ' *** ', a3, ' drivers failed the tests of the error ',
803  $ 'exits ***' )
804 *
805  RETURN
806 *
807 * End of SERRVX
808 *
subroutine sspsv(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
SSPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...
Definition: sspsv.f:164
subroutine ssysv_rook(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
SSYSV_ROOK computes the solution to system of linear equations A * X = B for SY matrices ...
Definition: ssysv_rook.f:206
subroutine sgesv(N, NRHS, A, LDA, IPIV, B, LDB, INFO)
SGESV computes the solution to system of linear equations A * X = B for GE matrices (simple driver) ...
Definition: sgesv.f:124
subroutine sptsvx(FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, INFO)
SPTSVX computes the solution to system of linear equations A * X = B for PT matrices ...
Definition: sptsvx.f:230
subroutine sgbsv(N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO)
SGBSV computes the solution to system of linear equations A * X = B for GB matrices (simple driver) ...
Definition: sgbsv.f:164
subroutine sgesvx(FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SGESVX computes the solution to system of linear equations A * X = B for GE matrices ...
Definition: sgesvx.f:351
subroutine sppsvx(FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SPPSVX computes the solution to system of linear equations A * X = B for OTHER matrices ...
Definition: sppsvx.f:313
subroutine ssysv_rk(UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, LWORK, INFO)
SSYSV_RK computes the solution to system of linear equations A * X = B for SY matrices ...
Definition: ssysv_rk.f:230
subroutine ssysv_aa_2stage(UPLO, N, NRHS, A, LDA, TB, LTB, IPIV, IPIV2, B, LDB, WORK, LWORK, INFO)
SSYSV_AA_2STAGE computes the solution to system of linear equations A * X = B for SY matrices ...
subroutine spbsv(UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
SPBSV computes the solution to system of linear equations A * X = B for OTHER matrices ...
Definition: spbsv.f:166
subroutine sspsvx(FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SSPSVX computes the solution to system of linear equations A * X = B for OTHER matrices ...
Definition: sspsvx.f:278
subroutine sptsv(N, NRHS, D, E, B, LDB, INFO)
SPTSV computes the solution to system of linear equations A * X = B for PT matrices ...
Definition: sptsv.f:116
subroutine sposvx(FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SPOSVX computes the solution to system of linear equations A * X = B for PO matrices ...
Definition: sposvx.f:309
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3199
subroutine sppsv(UPLO, N, NRHS, AP, B, LDB, INFO)
SPPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...
Definition: sppsv.f:146
logical function lsamen(N, CA, CB)
LSAMEN
Definition: lsamen.f:76
subroutine sposv(UPLO, N, NRHS, A, LDA, B, LDB, INFO)
SPOSV computes the solution to system of linear equations A * X = B for PO matrices ...
Definition: sposv.f:132
subroutine spbsvx(FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SPBSVX computes the solution to system of linear equations A * X = B for OTHER matrices ...
Definition: spbsvx.f:345
subroutine ssysvx(FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, IWORK, INFO)
SSYSVX computes the solution to system of linear equations A * X = B for SY matrices ...
Definition: ssysvx.f:286
subroutine ssysv(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
SSYSV computes the solution to system of linear equations A * X = B for SY matrices ...
Definition: ssysv.f:173
subroutine sgbsvx(FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SGBSVX computes the solution to system of linear equations A * X = B for GB matrices ...
Definition: sgbsvx.f:370
subroutine sgtsvx(FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO)
SGTSVX computes the solution to system of linear equations A * X = B for GT matrices ...
Definition: sgtsvx.f:295
subroutine sgtsv(N, NRHS, DL, D, DU, B, LDB, INFO)
SGTSV computes the solution to system of linear equations A * X = B for GT matrices ...
Definition: sgtsv.f:129
subroutine ssysv_aa(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
SSYSV_AA computes the solution to system of linear equations A * X = B for SY matrices ...
Definition: ssysv_aa.f:164
Here is the call graph for this function:
Here is the caller graph for this function: