LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
serrsyx.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine serrsy (PATH, NUNIT)
 SERRSYX More...
 

Function/Subroutine Documentation

subroutine serrsy ( character*3  PATH,
integer  NUNIT 
)

SERRSYX

Purpose:
 SERRSY tests the error exits for the REAL routines
 for symmetric indefinite matrices.

 Note that this file is used only when the XBLAS are available,
 otherwise serrsy.f defines this subroutine.
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 2013

Definition at line 60 of file serrsyx.f.

60 *
61 * -- LAPACK test routine (version 3.5.0) --
62 * -- LAPACK is a software package provided by Univ. of Tennessee, --
63 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
64 * November 2013
65 *
66 * .. Scalar Arguments ..
67  CHARACTER*3 path
68  INTEGER nunit
69 * ..
70 *
71 * =====================================================================
72 *
73 * .. Parameters ..
74  INTEGER nmax
75  parameter( nmax = 4 )
76 * ..
77 * .. Local Scalars ..
78  CHARACTER eq
79  CHARACTER*2 c2
80  INTEGER i, info, j, n_err_bnds, nparams
81  REAL anrm, rcond, berr
82 * ..
83 * .. Local Arrays ..
84  INTEGER ip( nmax ), iw( nmax )
85  REAL a( nmax, nmax ), af( nmax, nmax ), b( nmax ),
86  $ r1( nmax ), r2( nmax ), w( 3*nmax ), x( nmax ),
87  $ s( nmax ), err_bnds_n( nmax, 3 ),
88  $ err_bnds_c( nmax, 3 ), params( 1 )
89 * ..
90 * .. External Functions ..
91  LOGICAL lsamen
92  EXTERNAL lsamen
93 * ..
94 * .. External Subroutines ..
95  EXTERNAL alaesm, chkxer, sspcon, ssprfs, ssptrf, ssptri,
99  $ ssyrfsx
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 * .. Intrinsic Functions ..
111  INTRINSIC real
112 * ..
113 * .. Executable Statements ..
114 *
115  nout = nunit
116  WRITE( nout, fmt = * )
117  c2 = path( 2: 3 )
118 *
119 * Set the variables to innocuous values.
120 *
121  DO 20 j = 1, nmax
122  DO 10 i = 1, nmax
123  a( i, j ) = 1. / REAL( i+j )
124  af( i, j ) = 1. / REAL( i+j )
125  10 CONTINUE
126  b( j ) = 0.
127  r1( j ) = 0.
128  r2( j ) = 0.
129  w( j ) = 0.
130  x( j ) = 0.
131  s( j ) = 0.
132  ip( j ) = j
133  iw( j ) = j
134  20 CONTINUE
135  anrm = 1.0
136  rcond = 1.0
137  ok = .true.
138 *
139  IF( lsamen( 2, c2, 'SY' ) ) THEN
140 *
141 * Test error exits of the routines that use factorization
142 * of a symmetric indefinite matrix with patrial
143 * (Bunch-Kaufman) pivoting.
144 *
145 * SSYTRF
146 *
147  srnamt = 'SSYTRF'
148  infot = 1
149  CALL ssytrf( '/', 0, a, 1, ip, w, 1, info )
150  CALL chkxer( 'SSYTRF', infot, nout, lerr, ok )
151  infot = 2
152  CALL ssytrf( 'U', -1, a, 1, ip, w, 1, info )
153  CALL chkxer( 'SSYTRF', infot, nout, lerr, ok )
154  infot = 4
155  CALL ssytrf( 'U', 2, a, 1, ip, w, 4, info )
156  CALL chkxer( 'SSYTRF', infot, nout, lerr, ok )
157 *
158 * SSYTF2
159 *
160  srnamt = 'SSYTF2'
161  infot = 1
162  CALL ssytf2( '/', 0, a, 1, ip, info )
163  CALL chkxer( 'SSYTF2', infot, nout, lerr, ok )
164  infot = 2
165  CALL ssytf2( 'U', -1, a, 1, ip, info )
166  CALL chkxer( 'SSYTF2', infot, nout, lerr, ok )
167  infot = 4
168  CALL ssytf2( 'U', 2, a, 1, ip, info )
169  CALL chkxer( 'SSYTF2', infot, nout, lerr, ok )
170 *
171 * SSYTRI
172 *
173  srnamt = 'SSYTRI'
174  infot = 1
175  CALL ssytri( '/', 0, a, 1, ip, w, info )
176  CALL chkxer( 'SSYTRI', infot, nout, lerr, ok )
177  infot = 2
178  CALL ssytri( 'U', -1, a, 1, ip, w, info )
179  CALL chkxer( 'SSYTRI', infot, nout, lerr, ok )
180  infot = 4
181  CALL ssytri( 'U', 2, a, 1, ip, w, info )
182  CALL chkxer( 'SSYTRI', infot, nout, lerr, ok )
183 *
184 * SSYTRI2
185 *
186  srnamt = 'SSYTRI2'
187  infot = 1
188  CALL ssytri2( '/', 0, a, 1, ip, w, iw, info )
189  CALL chkxer( 'SSYTRI', infot, nout, lerr, ok )
190  infot = 2
191  CALL ssytri2( 'U', -1, a, 1, ip, w, iw, info )
192  CALL chkxer( 'SSYTRI', infot, nout, lerr, ok )
193  infot = 4
194  CALL ssytri2( 'U', 2, a, 1, ip, w, iw, info )
195  CALL chkxer( 'SSYTRI', infot, nout, lerr, ok )
196 *
197 * SSYTRS
198 *
199  srnamt = 'SSYTRS'
200  infot = 1
201  CALL ssytrs( '/', 0, 0, a, 1, ip, b, 1, info )
202  CALL chkxer( 'SSYTRS', infot, nout, lerr, ok )
203  infot = 2
204  CALL ssytrs( 'U', -1, 0, a, 1, ip, b, 1, info )
205  CALL chkxer( 'SSYTRS', infot, nout, lerr, ok )
206  infot = 3
207  CALL ssytrs( 'U', 0, -1, a, 1, ip, b, 1, info )
208  CALL chkxer( 'SSYTRS', infot, nout, lerr, ok )
209  infot = 5
210  CALL ssytrs( 'U', 2, 1, a, 1, ip, b, 2, info )
211  CALL chkxer( 'SSYTRS', infot, nout, lerr, ok )
212  infot = 8
213  CALL ssytrs( 'U', 2, 1, a, 2, ip, b, 1, info )
214  CALL chkxer( 'SSYTRS', infot, nout, lerr, ok )
215 *
216 * SSYRFS
217 *
218  srnamt = 'SSYRFS'
219  infot = 1
220  CALL ssyrfs( '/', 0, 0, a, 1, af, 1, ip, b, 1, x, 1, r1, r2, w,
221  $ iw, info )
222  CALL chkxer( 'SSYRFS', infot, nout, lerr, ok )
223  infot = 2
224  CALL ssyrfs( 'U', -1, 0, a, 1, af, 1, ip, b, 1, x, 1, r1, r2,
225  $ w, iw, info )
226  CALL chkxer( 'SSYRFS', infot, nout, lerr, ok )
227  infot = 3
228  CALL ssyrfs( 'U', 0, -1, a, 1, af, 1, ip, b, 1, x, 1, r1, r2,
229  $ w, iw, info )
230  CALL chkxer( 'SSYRFS', infot, nout, lerr, ok )
231  infot = 5
232  CALL ssyrfs( 'U', 2, 1, a, 1, af, 2, ip, b, 2, x, 2, r1, r2, w,
233  $ iw, info )
234  CALL chkxer( 'SSYRFS', infot, nout, lerr, ok )
235  infot = 7
236  CALL ssyrfs( 'U', 2, 1, a, 2, af, 1, ip, b, 2, x, 2, r1, r2, w,
237  $ iw, info )
238  CALL chkxer( 'SSYRFS', infot, nout, lerr, ok )
239  infot = 10
240  CALL ssyrfs( 'U', 2, 1, a, 2, af, 2, ip, b, 1, x, 2, r1, r2, w,
241  $ iw, info )
242  CALL chkxer( 'SSYRFS', infot, nout, lerr, ok )
243  infot = 12
244  CALL ssyrfs( 'U', 2, 1, a, 2, af, 2, ip, b, 2, x, 1, r1, r2, w,
245  $ iw, info )
246  CALL chkxer( 'SSYRFS', infot, nout, lerr, ok )
247 *
248 * SSYRFSX
249 *
250  n_err_bnds = 3
251  nparams = 0
252  srnamt = 'SSYRFSX'
253  infot = 1
254  CALL ssyrfsx( '/', eq, 0, 0, a, 1, af, 1, ip, s, b, 1, x, 1,
255  $ rcond, berr, n_err_bnds, err_bnds_n, err_bnds_c, nparams,
256  $ params, w, iw, info )
257  CALL chkxer( 'SSYRFSX', infot, nout, lerr, ok )
258  infot = 2
259  CALL ssyrfsx( 'U', eq, -1, 0, a, 1, af, 1, ip, s, b, 1, x, 1,
260  $ rcond, berr, n_err_bnds, err_bnds_n, err_bnds_c, nparams,
261  $ params, w, iw, info )
262  CALL chkxer( 'SSYRFSX', infot, nout, lerr, ok )
263  eq = 'N'
264  infot = 3
265  CALL ssyrfsx( 'U', eq, -1, 0, a, 1, af, 1, ip, s, b, 1, x, 1,
266  $ rcond, berr, n_err_bnds, err_bnds_n, err_bnds_c, nparams,
267  $ params, w, iw, info )
268  CALL chkxer( 'SSYRFSX', infot, nout, lerr, ok )
269  infot = 4
270  CALL ssyrfsx( 'U', eq, 0, -1, a, 1, af, 1, ip, s, b, 1, x, 1,
271  $ rcond, berr, n_err_bnds, err_bnds_n, err_bnds_c, nparams,
272  $ params, w, iw, info )
273  CALL chkxer( 'SSYRFSX', infot, nout, lerr, ok )
274  infot = 6
275  CALL ssyrfsx( 'U', eq, 2, 1, a, 1, af, 2, ip, s, b, 2, x, 2,
276  $ rcond, berr, n_err_bnds, err_bnds_n, err_bnds_c, nparams,
277  $ params, w, iw, info )
278  CALL chkxer( 'SSYRFSX', infot, nout, lerr, ok )
279  infot = 8
280  CALL ssyrfsx( 'U', eq, 2, 1, a, 2, af, 1, ip, s, b, 2, x, 2,
281  $ rcond, berr, n_err_bnds, err_bnds_n, err_bnds_c, nparams,
282  $ params, w, iw, info )
283  CALL chkxer( 'SSYRFSX', infot, nout, lerr, ok )
284  infot = 12
285  CALL ssyrfsx( 'U', eq, 2, 1, a, 2, af, 2, ip, s, b, 1, x, 2,
286  $ rcond, berr, n_err_bnds, err_bnds_n, err_bnds_c, nparams,
287  $ params, w, iw, info )
288  CALL chkxer( 'SSYRFSX', infot, nout, lerr, ok )
289  infot = 14
290  CALL ssyrfsx( 'U', eq, 2, 1, a, 2, af, 2, ip, s, b, 2, x, 1,
291  $ rcond, berr, n_err_bnds, err_bnds_n, err_bnds_c, nparams,
292  $ params, w, iw, info )
293  CALL chkxer( 'SSYRFSX', infot, nout, lerr, ok )
294 *
295 * SSYCON
296 *
297  srnamt = 'SSYCON'
298  infot = 1
299  CALL ssycon( '/', 0, a, 1, ip, anrm, rcond, w, iw, info )
300  CALL chkxer( 'SSYCON', infot, nout, lerr, ok )
301  infot = 2
302  CALL ssycon( 'U', -1, a, 1, ip, anrm, rcond, w, iw, info )
303  CALL chkxer( 'SSYCON', infot, nout, lerr, ok )
304  infot = 4
305  CALL ssycon( 'U', 2, a, 1, ip, anrm, rcond, w, iw, info )
306  CALL chkxer( 'SSYCON', infot, nout, lerr, ok )
307  infot = 6
308  CALL ssycon( 'U', 1, a, 1, ip, -1.0, rcond, w, iw, info )
309  CALL chkxer( 'SSYCON', infot, nout, lerr, ok )
310 *
311  ELSE IF( lsamen( 2, c2, 'SR' ) ) THEN
312 *
313 * Test error exits of the routines that use factorization
314 * of a symmetric indefinite matrix with rook
315 * (bounded Bunch-Kaufman) pivoting.
316 *
317 * SSYTRF_ROOK
318 *
319  srnamt = 'SSYTRF_ROOK'
320  infot = 1
321  CALL ssytrf_rook( '/', 0, a, 1, ip, w, 1, info )
322  CALL chkxer( 'SSYTRF_ROOK', infot, nout, lerr, ok )
323  infot = 2
324  CALL ssytrf_rook( 'U', -1, a, 1, ip, w, 1, info )
325  CALL chkxer( 'SSYTRF_ROOK', infot, nout, lerr, ok )
326  infot = 4
327  CALL ssytrf_rook( 'U', 2, a, 1, ip, w, 4, info )
328  CALL chkxer( 'SSYTRF_ROOK', infot, nout, lerr, ok )
329 *
330 * SSYTF2_ROOK
331 *
332  srnamt = 'SSYTF2_ROOK'
333  infot = 1
334  CALL ssytf2_rook( '/', 0, a, 1, ip, info )
335  CALL chkxer( 'SSYTF2_ROOK', infot, nout, lerr, ok )
336  infot = 2
337  CALL ssytf2_rook( 'U', -1, a, 1, ip, info )
338  CALL chkxer( 'SSYTF2_ROOK', infot, nout, lerr, ok )
339  infot = 4
340  CALL ssytf2_rook( 'U', 2, a, 1, ip, info )
341  CALL chkxer( 'SSYTF2_ROOK', infot, nout, lerr, ok )
342 *
343 * SSYTRI_ROOK
344 *
345  srnamt = 'SSYTRI_ROOK'
346  infot = 1
347  CALL ssytri_rook( '/', 0, a, 1, ip, w, info )
348  CALL chkxer( 'SSYTRI_ROOK', infot, nout, lerr, ok )
349  infot = 2
350  CALL ssytri_rook( 'U', -1, a, 1, ip, w, info )
351  CALL chkxer( 'SSYTRI_ROOK', infot, nout, lerr, ok )
352  infot = 4
353  CALL ssytri_rook( 'U', 2, a, 1, ip, w, info )
354  CALL chkxer( 'SSYTRI_ROOK', infot, nout, lerr, ok )
355 *
356 * SSYTRS_ROOK
357 *
358  srnamt = 'SSYTRS_ROOK'
359  infot = 1
360  CALL ssytrs_rook( '/', 0, 0, a, 1, ip, b, 1, info )
361  CALL chkxer( 'SSYTRS_ROOK', infot, nout, lerr, ok )
362  infot = 2
363  CALL ssytrs_rook( 'U', -1, 0, a, 1, ip, b, 1, info )
364  CALL chkxer( 'SSYTRS_ROOK', infot, nout, lerr, ok )
365  infot = 3
366  CALL ssytrs_rook( 'U', 0, -1, a, 1, ip, b, 1, info )
367  CALL chkxer( 'SSYTRS_ROOK', infot, nout, lerr, ok )
368  infot = 5
369  CALL ssytrs_rook( 'U', 2, 1, a, 1, ip, b, 2, info )
370  CALL chkxer( 'SSYTRS_ROOK', infot, nout, lerr, ok )
371  infot = 8
372  CALL ssytrs_rook( 'U', 2, 1, a, 2, ip, b, 1, info )
373  CALL chkxer( 'SSYTRS_ROOK', infot, nout, lerr, ok )
374 *
375 * SSYCON_ROOK
376 *
377  srnamt = 'SSYCON_ROOK'
378  infot = 1
379  CALL ssycon_rook( '/', 0, a, 1, ip, anrm, rcond, w, iw, info )
380  CALL chkxer( 'SSYCON_ROOK', infot, nout, lerr, ok )
381  infot = 2
382  CALL ssycon_rook( 'U', -1, a, 1, ip, anrm, rcond, w, iw, info )
383  CALL chkxer( 'SSYCON_ROOK', infot, nout, lerr, ok )
384  infot = 4
385  CALL ssycon_rook( 'U', 2, a, 1, ip, anrm, rcond, w, iw, info )
386  CALL chkxer( 'SSYCON_ROOK', infot, nout, lerr, ok )
387  infot = 6
388  CALL ssycon_rook( 'U', 1, a, 1, ip, -1.0, rcond, w, iw, info )
389  CALL chkxer( 'SSYCON_ROOK', infot, nout, lerr, ok )
390 *
391 * Test error exits of the routines that use factorization
392 * of a symmetric indefinite packed matrix with patrial
393 * (Bunch-Kaufman) pivoting.
394 *
395  ELSE IF( lsamen( 2, c2, 'SP' ) ) THEN
396 *
397 * SSPTRF
398 *
399  srnamt = 'SSPTRF'
400  infot = 1
401  CALL ssptrf( '/', 0, a, ip, info )
402  CALL chkxer( 'SSPTRF', infot, nout, lerr, ok )
403  infot = 2
404  CALL ssptrf( 'U', -1, a, ip, info )
405  CALL chkxer( 'SSPTRF', infot, nout, lerr, ok )
406 *
407 * SSPTRI
408 *
409  srnamt = 'SSPTRI'
410  infot = 1
411  CALL ssptri( '/', 0, a, ip, w, info )
412  CALL chkxer( 'SSPTRI', infot, nout, lerr, ok )
413  infot = 2
414  CALL ssptri( 'U', -1, a, ip, w, info )
415  CALL chkxer( 'SSPTRI', infot, nout, lerr, ok )
416 *
417 * SSPTRS
418 *
419  srnamt = 'SSPTRS'
420  infot = 1
421  CALL ssptrs( '/', 0, 0, a, ip, b, 1, info )
422  CALL chkxer( 'SSPTRS', infot, nout, lerr, ok )
423  infot = 2
424  CALL ssptrs( 'U', -1, 0, a, ip, b, 1, info )
425  CALL chkxer( 'SSPTRS', infot, nout, lerr, ok )
426  infot = 3
427  CALL ssptrs( 'U', 0, -1, a, ip, b, 1, info )
428  CALL chkxer( 'SSPTRS', infot, nout, lerr, ok )
429  infot = 7
430  CALL ssptrs( 'U', 2, 1, a, ip, b, 1, info )
431  CALL chkxer( 'SSPTRS', infot, nout, lerr, ok )
432 *
433 * SSPRFS
434 *
435  srnamt = 'SSPRFS'
436  infot = 1
437  CALL ssprfs( '/', 0, 0, a, af, ip, b, 1, x, 1, r1, r2, w, iw,
438  $ info )
439  CALL chkxer( 'SSPRFS', infot, nout, lerr, ok )
440  infot = 2
441  CALL ssprfs( 'U', -1, 0, a, af, ip, b, 1, x, 1, r1, r2, w, iw,
442  $ info )
443  CALL chkxer( 'SSPRFS', infot, nout, lerr, ok )
444  infot = 3
445  CALL ssprfs( 'U', 0, -1, a, af, ip, b, 1, x, 1, r1, r2, w, iw,
446  $ info )
447  CALL chkxer( 'SSPRFS', infot, nout, lerr, ok )
448  infot = 8
449  CALL ssprfs( 'U', 2, 1, a, af, ip, b, 1, x, 2, r1, r2, w, iw,
450  $ info )
451  CALL chkxer( 'SSPRFS', infot, nout, lerr, ok )
452  infot = 10
453  CALL ssprfs( 'U', 2, 1, a, af, ip, b, 2, x, 1, r1, r2, w, iw,
454  $ info )
455  CALL chkxer( 'SSPRFS', infot, nout, lerr, ok )
456 *
457 * SSPCON
458 *
459  srnamt = 'SSPCON'
460  infot = 1
461  CALL sspcon( '/', 0, a, ip, anrm, rcond, w, iw, info )
462  CALL chkxer( 'SSPCON', infot, nout, lerr, ok )
463  infot = 2
464  CALL sspcon( 'U', -1, a, ip, anrm, rcond, w, iw, info )
465  CALL chkxer( 'SSPCON', infot, nout, lerr, ok )
466  infot = 5
467  CALL sspcon( 'U', 1, a, ip, -1.0, rcond, w, iw, info )
468  CALL chkxer( 'SSPCON', infot, nout, lerr, ok )
469  END IF
470 *
471 * Print a summary line.
472 *
473  CALL alaesm( path, ok, nout )
474 *
475  RETURN
476 *
477 * End of SERRSY
478 *
subroutine ssytrf_rook(UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
SSYTRF_ROOK
Definition: ssytrf_rook.f:210
subroutine ssytrs_rook(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
SSYTRS_ROOK
Definition: ssytrs_rook.f:138
subroutine ssytf2(UPLO, N, A, LDA, IPIV, INFO)
SSYTF2 computes the factorization of a real symmetric indefinite matrix, using the diagonal pivoting ...
Definition: ssytf2.f:197
subroutine ssycon_rook(UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, IWORK, INFO)
SSYCON_ROOK
Definition: ssycon_rook.f:146
subroutine ssprfs(UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO)
SSPRFS
Definition: ssprfs.f:181
subroutine ssptri(UPLO, N, AP, IPIV, WORK, INFO)
SSPTRI
Definition: ssptri.f:111
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3199
subroutine ssytf2_rook(UPLO, N, A, LDA, IPIV, INFO)
SSYTF2_ROOK computes the factorization of a real symmetric indefinite matrix using the bounded Bunch-...
Definition: ssytf2_rook.f:196
subroutine ssyrfs(UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO)
SSYRFS
Definition: ssyrfs.f:193
logical function lsamen(N, CA, CB)
LSAMEN
Definition: lsamen.f:76
subroutine ssptrf(UPLO, N, AP, IPIV, INFO)
SSPTRF
Definition: ssptrf.f:159
subroutine ssytrf(UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
SSYTRF
Definition: ssytrf.f:184
subroutine ssytrs(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
SSYTRS
Definition: ssytrs.f:122
subroutine ssyrfsx(UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, IPIV, S, B, LDB, X, LDX, RCOND, BERR, N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, INFO)
SSYRFSX
Definition: ssyrfsx.f:404
subroutine ssytri(UPLO, N, A, LDA, IPIV, WORK, INFO)
SSYTRI
Definition: ssytri.f:116
subroutine sspcon(UPLO, N, AP, IPIV, ANORM, RCOND, WORK, IWORK, INFO)
SSPCON
Definition: sspcon.f:127
subroutine alaesm(PATH, OK, NOUT)
ALAESM
Definition: alaesm.f:65
subroutine ssptrs(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
SSPTRS
Definition: ssptrs.f:117
subroutine ssytri2(UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
SSYTRI2
Definition: ssytri2.f:129
subroutine ssycon(UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, IWORK, INFO)
SSYCON
Definition: ssycon.f:132
subroutine ssytri_rook(UPLO, N, A, LDA, IPIV, WORK, INFO)
SSYTRI_ROOK
Definition: ssytri_rook.f:131

Here is the call graph for this function: