LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ serrtr()

subroutine serrtr ( character*3  PATH,
integer  NUNIT 
)

SERRTR

Purpose:
 SERRTR tests the error exits for the REAL triangular
 routines.
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.

Definition at line 54 of file serrtr.f.

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 = 2 )
70 * ..
71 * .. Local Scalars ..
72  CHARACTER*2 C2
73  INTEGER INFO
74  REAL RCOND, SCALE
75 * ..
76 * .. Local Arrays ..
77  INTEGER IW( NMAX )
78  REAL A( NMAX, NMAX ), B( NMAX ), R1( NMAX ),
79  $ R2( NMAX ), W( NMAX ), X( NMAX )
80 * ..
81 * .. External Functions ..
82  LOGICAL LSAMEN
83  EXTERNAL lsamen
84 * ..
85 * .. External Subroutines ..
86  EXTERNAL alaesm, chkxer, slatbs, slatps, slatrs, stbcon,
89 * ..
90 * .. Scalars in Common ..
91  LOGICAL LERR, OK
92  CHARACTER*32 SRNAMT
93  INTEGER INFOT, NOUT
94 * ..
95 * .. Common blocks ..
96  COMMON / infoc / infot, nout, ok, lerr
97  COMMON / srnamc / srnamt
98 * ..
99 * .. Executable Statements ..
100 *
101  nout = nunit
102  WRITE( nout, fmt = * )
103  c2 = path( 2: 3 )
104  a( 1, 1 ) = 1.
105  a( 1, 2 ) = 2.
106  a( 2, 2 ) = 3.
107  a( 2, 1 ) = 4.
108  ok = .true.
109 *
110  IF( lsamen( 2, c2, 'TR' ) ) THEN
111 *
112 * Test error exits for the general triangular routines.
113 *
114 * STRTRI
115 *
116  srnamt = 'STRTRI'
117  infot = 1
118  CALL strtri( '/', 'N', 0, a, 1, info )
119  CALL chkxer( 'STRTRI', infot, nout, lerr, ok )
120  infot = 2
121  CALL strtri( 'U', '/', 0, a, 1, info )
122  CALL chkxer( 'STRTRI', infot, nout, lerr, ok )
123  infot = 3
124  CALL strtri( 'U', 'N', -1, a, 1, info )
125  CALL chkxer( 'STRTRI', infot, nout, lerr, ok )
126  infot = 5
127  CALL strtri( 'U', 'N', 2, a, 1, info )
128  CALL chkxer( 'STRTRI', infot, nout, lerr, ok )
129 *
130 * STRTI2
131 *
132  srnamt = 'STRTI2'
133  infot = 1
134  CALL strti2( '/', 'N', 0, a, 1, info )
135  CALL chkxer( 'STRTI2', infot, nout, lerr, ok )
136  infot = 2
137  CALL strti2( 'U', '/', 0, a, 1, info )
138  CALL chkxer( 'STRTI2', infot, nout, lerr, ok )
139  infot = 3
140  CALL strti2( 'U', 'N', -1, a, 1, info )
141  CALL chkxer( 'STRTI2', infot, nout, lerr, ok )
142  infot = 5
143  CALL strti2( 'U', 'N', 2, a, 1, info )
144  CALL chkxer( 'STRTI2', infot, nout, lerr, ok )
145 *
146 * STRTRS
147 *
148  srnamt = 'STRTRS'
149  infot = 1
150  CALL strtrs( '/', 'N', 'N', 0, 0, a, 1, x, 1, info )
151  CALL chkxer( 'STRTRS', infot, nout, lerr, ok )
152  infot = 2
153  CALL strtrs( 'U', '/', 'N', 0, 0, a, 1, x, 1, info )
154  CALL chkxer( 'STRTRS', infot, nout, lerr, ok )
155  infot = 3
156  CALL strtrs( 'U', 'N', '/', 0, 0, a, 1, x, 1, info )
157  CALL chkxer( 'STRTRS', infot, nout, lerr, ok )
158  infot = 4
159  CALL strtrs( 'U', 'N', 'N', -1, 0, a, 1, x, 1, info )
160  CALL chkxer( 'STRTRS', infot, nout, lerr, ok )
161  infot = 5
162  CALL strtrs( 'U', 'N', 'N', 0, -1, a, 1, x, 1, info )
163  CALL chkxer( 'STRTRS', infot, nout, lerr, ok )
164  infot = 7
165  CALL strtrs( 'U', 'N', 'N', 2, 1, a, 1, x, 2, info )
166  CALL chkxer( 'STRTRS', infot, nout, lerr, ok )
167  infot = 9
168  CALL strtrs( 'U', 'N', 'N', 2, 1, a, 2, x, 1, info )
169  CALL chkxer( 'STRTRS', infot, nout, lerr, ok )
170 *
171 * STRRFS
172 *
173  srnamt = 'STRRFS'
174  infot = 1
175  CALL strrfs( '/', 'N', 'N', 0, 0, a, 1, b, 1, x, 1, r1, r2, w,
176  $ iw, info )
177  CALL chkxer( 'STRRFS', infot, nout, lerr, ok )
178  infot = 2
179  CALL strrfs( 'U', '/', 'N', 0, 0, a, 1, b, 1, x, 1, r1, r2, w,
180  $ iw, info )
181  CALL chkxer( 'STRRFS', infot, nout, lerr, ok )
182  infot = 3
183  CALL strrfs( 'U', 'N', '/', 0, 0, a, 1, b, 1, x, 1, r1, r2, w,
184  $ iw, info )
185  CALL chkxer( 'STRRFS', infot, nout, lerr, ok )
186  infot = 4
187  CALL strrfs( 'U', 'N', 'N', -1, 0, a, 1, b, 1, x, 1, r1, r2, w,
188  $ iw, info )
189  CALL chkxer( 'STRRFS', infot, nout, lerr, ok )
190  infot = 5
191  CALL strrfs( 'U', 'N', 'N', 0, -1, a, 1, b, 1, x, 1, r1, r2, w,
192  $ iw, info )
193  CALL chkxer( 'STRRFS', infot, nout, lerr, ok )
194  infot = 7
195  CALL strrfs( 'U', 'N', 'N', 2, 1, a, 1, b, 2, x, 2, r1, r2, w,
196  $ iw, info )
197  CALL chkxer( 'STRRFS', infot, nout, lerr, ok )
198  infot = 9
199  CALL strrfs( 'U', 'N', 'N', 2, 1, a, 2, b, 1, x, 2, r1, r2, w,
200  $ iw, info )
201  CALL chkxer( 'STRRFS', infot, nout, lerr, ok )
202  infot = 11
203  CALL strrfs( 'U', 'N', 'N', 2, 1, a, 2, b, 2, x, 1, r1, r2, w,
204  $ iw, info )
205  CALL chkxer( 'STRRFS', infot, nout, lerr, ok )
206 *
207 * STRCON
208 *
209  srnamt = 'STRCON'
210  infot = 1
211  CALL strcon( '/', 'U', 'N', 0, a, 1, rcond, w, iw, info )
212  CALL chkxer( 'STRCON', infot, nout, lerr, ok )
213  infot = 2
214  CALL strcon( '1', '/', 'N', 0, a, 1, rcond, w, iw, info )
215  CALL chkxer( 'STRCON', infot, nout, lerr, ok )
216  infot = 3
217  CALL strcon( '1', 'U', '/', 0, a, 1, rcond, w, iw, info )
218  CALL chkxer( 'STRCON', infot, nout, lerr, ok )
219  infot = 4
220  CALL strcon( '1', 'U', 'N', -1, a, 1, rcond, w, iw, info )
221  CALL chkxer( 'STRCON', infot, nout, lerr, ok )
222  infot = 6
223  CALL strcon( '1', 'U', 'N', 2, a, 1, rcond, w, iw, info )
224  CALL chkxer( 'STRCON', infot, nout, lerr, ok )
225 *
226 * SLATRS
227 *
228  srnamt = 'SLATRS'
229  infot = 1
230  CALL slatrs( '/', 'N', 'N', 'N', 0, a, 1, x, scale, w, info )
231  CALL chkxer( 'SLATRS', infot, nout, lerr, ok )
232  infot = 2
233  CALL slatrs( 'U', '/', 'N', 'N', 0, a, 1, x, scale, w, info )
234  CALL chkxer( 'SLATRS', infot, nout, lerr, ok )
235  infot = 3
236  CALL slatrs( 'U', 'N', '/', 'N', 0, a, 1, x, scale, w, info )
237  CALL chkxer( 'SLATRS', infot, nout, lerr, ok )
238  infot = 4
239  CALL slatrs( 'U', 'N', 'N', '/', 0, a, 1, x, scale, w, info )
240  CALL chkxer( 'SLATRS', infot, nout, lerr, ok )
241  infot = 5
242  CALL slatrs( 'U', 'N', 'N', 'N', -1, a, 1, x, scale, w, info )
243  CALL chkxer( 'SLATRS', infot, nout, lerr, ok )
244  infot = 7
245  CALL slatrs( 'U', 'N', 'N', 'N', 2, a, 1, x, scale, w, info )
246  CALL chkxer( 'SLATRS', infot, nout, lerr, ok )
247 *
248  ELSE IF( lsamen( 2, c2, 'TP' ) ) THEN
249 *
250 * Test error exits for the packed triangular routines.
251 *
252 * STPTRI
253 *
254  srnamt = 'STPTRI'
255  infot = 1
256  CALL stptri( '/', 'N', 0, a, info )
257  CALL chkxer( 'STPTRI', infot, nout, lerr, ok )
258  infot = 2
259  CALL stptri( 'U', '/', 0, a, info )
260  CALL chkxer( 'STPTRI', infot, nout, lerr, ok )
261  infot = 3
262  CALL stptri( 'U', 'N', -1, a, info )
263  CALL chkxer( 'STPTRI', infot, nout, lerr, ok )
264 *
265 * STPTRS
266 *
267  srnamt = 'STPTRS'
268  infot = 1
269  CALL stptrs( '/', 'N', 'N', 0, 0, a, x, 1, info )
270  CALL chkxer( 'STPTRS', infot, nout, lerr, ok )
271  infot = 2
272  CALL stptrs( 'U', '/', 'N', 0, 0, a, x, 1, info )
273  CALL chkxer( 'STPTRS', infot, nout, lerr, ok )
274  infot = 3
275  CALL stptrs( 'U', 'N', '/', 0, 0, a, x, 1, info )
276  CALL chkxer( 'STPTRS', infot, nout, lerr, ok )
277  infot = 4
278  CALL stptrs( 'U', 'N', 'N', -1, 0, a, x, 1, info )
279  CALL chkxer( 'STPTRS', infot, nout, lerr, ok )
280  infot = 5
281  CALL stptrs( 'U', 'N', 'N', 0, -1, a, x, 1, info )
282  CALL chkxer( 'STPTRS', infot, nout, lerr, ok )
283  infot = 8
284  CALL stptrs( 'U', 'N', 'N', 2, 1, a, x, 1, info )
285  CALL chkxer( 'STPTRS', infot, nout, lerr, ok )
286 *
287 * STPRFS
288 *
289  srnamt = 'STPRFS'
290  infot = 1
291  CALL stprfs( '/', 'N', 'N', 0, 0, a, b, 1, x, 1, r1, r2, w, iw,
292  $ info )
293  CALL chkxer( 'STPRFS', infot, nout, lerr, ok )
294  infot = 2
295  CALL stprfs( 'U', '/', 'N', 0, 0, a, b, 1, x, 1, r1, r2, w, iw,
296  $ info )
297  CALL chkxer( 'STPRFS', infot, nout, lerr, ok )
298  infot = 3
299  CALL stprfs( 'U', 'N', '/', 0, 0, a, b, 1, x, 1, r1, r2, w, iw,
300  $ info )
301  CALL chkxer( 'STPRFS', infot, nout, lerr, ok )
302  infot = 4
303  CALL stprfs( 'U', 'N', 'N', -1, 0, a, b, 1, x, 1, r1, r2, w,
304  $ iw, info )
305  CALL chkxer( 'STPRFS', infot, nout, lerr, ok )
306  infot = 5
307  CALL stprfs( 'U', 'N', 'N', 0, -1, a, b, 1, x, 1, r1, r2, w,
308  $ iw, info )
309  CALL chkxer( 'STPRFS', infot, nout, lerr, ok )
310  infot = 8
311  CALL stprfs( 'U', 'N', 'N', 2, 1, a, b, 1, x, 2, r1, r2, w, iw,
312  $ info )
313  CALL chkxer( 'STPRFS', infot, nout, lerr, ok )
314  infot = 10
315  CALL stprfs( 'U', 'N', 'N', 2, 1, a, b, 2, x, 1, r1, r2, w, iw,
316  $ info )
317  CALL chkxer( 'STPRFS', infot, nout, lerr, ok )
318 *
319 * STPCON
320 *
321  srnamt = 'STPCON'
322  infot = 1
323  CALL stpcon( '/', 'U', 'N', 0, a, rcond, w, iw, info )
324  CALL chkxer( 'STPCON', infot, nout, lerr, ok )
325  infot = 2
326  CALL stpcon( '1', '/', 'N', 0, a, rcond, w, iw, info )
327  CALL chkxer( 'STPCON', infot, nout, lerr, ok )
328  infot = 3
329  CALL stpcon( '1', 'U', '/', 0, a, rcond, w, iw, info )
330  CALL chkxer( 'STPCON', infot, nout, lerr, ok )
331  infot = 4
332  CALL stpcon( '1', 'U', 'N', -1, a, rcond, w, iw, info )
333  CALL chkxer( 'STPCON', infot, nout, lerr, ok )
334 *
335 * SLATPS
336 *
337  srnamt = 'SLATPS'
338  infot = 1
339  CALL slatps( '/', 'N', 'N', 'N', 0, a, x, scale, w, info )
340  CALL chkxer( 'SLATPS', infot, nout, lerr, ok )
341  infot = 2
342  CALL slatps( 'U', '/', 'N', 'N', 0, a, x, scale, w, info )
343  CALL chkxer( 'SLATPS', infot, nout, lerr, ok )
344  infot = 3
345  CALL slatps( 'U', 'N', '/', 'N', 0, a, x, scale, w, info )
346  CALL chkxer( 'SLATPS', infot, nout, lerr, ok )
347  infot = 4
348  CALL slatps( 'U', 'N', 'N', '/', 0, a, x, scale, w, info )
349  CALL chkxer( 'SLATPS', infot, nout, lerr, ok )
350  infot = 5
351  CALL slatps( 'U', 'N', 'N', 'N', -1, a, x, scale, w, info )
352  CALL chkxer( 'SLATPS', infot, nout, lerr, ok )
353 *
354  ELSE IF( lsamen( 2, c2, 'TB' ) ) THEN
355 *
356 * Test error exits for the banded triangular routines.
357 *
358 * STBTRS
359 *
360  srnamt = 'STBTRS'
361  infot = 1
362  CALL stbtrs( '/', 'N', 'N', 0, 0, 0, a, 1, x, 1, info )
363  CALL chkxer( 'STBTRS', infot, nout, lerr, ok )
364  infot = 2
365  CALL stbtrs( 'U', '/', 'N', 0, 0, 0, a, 1, x, 1, info )
366  CALL chkxer( 'STBTRS', infot, nout, lerr, ok )
367  infot = 3
368  CALL stbtrs( 'U', 'N', '/', 0, 0, 0, a, 1, x, 1, info )
369  CALL chkxer( 'STBTRS', infot, nout, lerr, ok )
370  infot = 4
371  CALL stbtrs( 'U', 'N', 'N', -1, 0, 0, a, 1, x, 1, info )
372  CALL chkxer( 'STBTRS', infot, nout, lerr, ok )
373  infot = 5
374  CALL stbtrs( 'U', 'N', 'N', 0, -1, 0, a, 1, x, 1, info )
375  CALL chkxer( 'STBTRS', infot, nout, lerr, ok )
376  infot = 6
377  CALL stbtrs( 'U', 'N', 'N', 0, 0, -1, a, 1, x, 1, info )
378  CALL chkxer( 'STBTRS', infot, nout, lerr, ok )
379  infot = 8
380  CALL stbtrs( 'U', 'N', 'N', 2, 1, 1, a, 1, x, 2, info )
381  CALL chkxer( 'STBTRS', infot, nout, lerr, ok )
382  infot = 10
383  CALL stbtrs( 'U', 'N', 'N', 2, 0, 1, a, 1, x, 1, info )
384  CALL chkxer( 'STBTRS', infot, nout, lerr, ok )
385 *
386 * STBRFS
387 *
388  srnamt = 'STBRFS'
389  infot = 1
390  CALL stbrfs( '/', 'N', 'N', 0, 0, 0, a, 1, b, 1, x, 1, r1, r2,
391  $ w, iw, info )
392  CALL chkxer( 'STBRFS', infot, nout, lerr, ok )
393  infot = 2
394  CALL stbrfs( 'U', '/', 'N', 0, 0, 0, a, 1, b, 1, x, 1, r1, r2,
395  $ w, iw, info )
396  CALL chkxer( 'STBRFS', infot, nout, lerr, ok )
397  infot = 3
398  CALL stbrfs( 'U', 'N', '/', 0, 0, 0, a, 1, b, 1, x, 1, r1, r2,
399  $ w, iw, info )
400  CALL chkxer( 'STBRFS', infot, nout, lerr, ok )
401  infot = 4
402  CALL stbrfs( 'U', 'N', 'N', -1, 0, 0, a, 1, b, 1, x, 1, r1, r2,
403  $ w, iw, info )
404  CALL chkxer( 'STBRFS', infot, nout, lerr, ok )
405  infot = 5
406  CALL stbrfs( 'U', 'N', 'N', 0, -1, 0, a, 1, b, 1, x, 1, r1, r2,
407  $ w, iw, info )
408  CALL chkxer( 'STBRFS', infot, nout, lerr, ok )
409  infot = 6
410  CALL stbrfs( 'U', 'N', 'N', 0, 0, -1, a, 1, b, 1, x, 1, r1, r2,
411  $ w, iw, info )
412  CALL chkxer( 'STBRFS', infot, nout, lerr, ok )
413  infot = 8
414  CALL stbrfs( 'U', 'N', 'N', 2, 1, 1, a, 1, b, 2, x, 2, r1, r2,
415  $ w, iw, info )
416  CALL chkxer( 'STBRFS', infot, nout, lerr, ok )
417  infot = 10
418  CALL stbrfs( 'U', 'N', 'N', 2, 1, 1, a, 2, b, 1, x, 2, r1, r2,
419  $ w, iw, info )
420  CALL chkxer( 'STBRFS', infot, nout, lerr, ok )
421  infot = 12
422  CALL stbrfs( 'U', 'N', 'N', 2, 1, 1, a, 2, b, 2, x, 1, r1, r2,
423  $ w, iw, info )
424  CALL chkxer( 'STBRFS', infot, nout, lerr, ok )
425 *
426 * STBCON
427 *
428  srnamt = 'STBCON'
429  infot = 1
430  CALL stbcon( '/', 'U', 'N', 0, 0, a, 1, rcond, w, iw, info )
431  CALL chkxer( 'STBCON', infot, nout, lerr, ok )
432  infot = 2
433  CALL stbcon( '1', '/', 'N', 0, 0, a, 1, rcond, w, iw, info )
434  CALL chkxer( 'STBCON', infot, nout, lerr, ok )
435  infot = 3
436  CALL stbcon( '1', 'U', '/', 0, 0, a, 1, rcond, w, iw, info )
437  CALL chkxer( 'STBCON', infot, nout, lerr, ok )
438  infot = 4
439  CALL stbcon( '1', 'U', 'N', -1, 0, a, 1, rcond, w, iw, info )
440  CALL chkxer( 'STBCON', infot, nout, lerr, ok )
441  infot = 5
442  CALL stbcon( '1', 'U', 'N', 0, -1, a, 1, rcond, w, iw, info )
443  CALL chkxer( 'STBCON', infot, nout, lerr, ok )
444  infot = 7
445  CALL stbcon( '1', 'U', 'N', 2, 1, a, 1, rcond, w, iw, info )
446  CALL chkxer( 'STBCON', infot, nout, lerr, ok )
447 *
448 * SLATBS
449 *
450  srnamt = 'SLATBS'
451  infot = 1
452  CALL slatbs( '/', 'N', 'N', 'N', 0, 0, a, 1, x, scale, w,
453  $ info )
454  CALL chkxer( 'SLATBS', infot, nout, lerr, ok )
455  infot = 2
456  CALL slatbs( 'U', '/', 'N', 'N', 0, 0, a, 1, x, scale, w,
457  $ info )
458  CALL chkxer( 'SLATBS', infot, nout, lerr, ok )
459  infot = 3
460  CALL slatbs( 'U', 'N', '/', 'N', 0, 0, a, 1, x, scale, w,
461  $ info )
462  CALL chkxer( 'SLATBS', infot, nout, lerr, ok )
463  infot = 4
464  CALL slatbs( 'U', 'N', 'N', '/', 0, 0, a, 1, x, scale, w,
465  $ info )
466  CALL chkxer( 'SLATBS', infot, nout, lerr, ok )
467  infot = 5
468  CALL slatbs( 'U', 'N', 'N', 'N', -1, 0, a, 1, x, scale, w,
469  $ info )
470  CALL chkxer( 'SLATBS', infot, nout, lerr, ok )
471  infot = 6
472  CALL slatbs( 'U', 'N', 'N', 'N', 1, -1, a, 1, x, scale, w,
473  $ info )
474  CALL chkxer( 'SLATBS', infot, nout, lerr, ok )
475  infot = 8
476  CALL slatbs( 'U', 'N', 'N', 'N', 2, 1, a, 1, x, scale, w,
477  $ info )
478  CALL chkxer( 'SLATBS', infot, nout, lerr, ok )
479  END IF
480 *
481 * Print a summary line.
482 *
483  CALL alaesm( path, ok, nout )
484 *
485  RETURN
486 *
487 * End of SERRTR
488 *
subroutine chkxer(SRNAMT, INFOT, NOUT, LERR, OK)
Definition: cblat2.f:3196
logical function lsamen(N, CA, CB)
LSAMEN
Definition: lsamen.f:74
subroutine alaesm(PATH, OK, NOUT)
ALAESM
Definition: alaesm.f:63
subroutine slatrs(UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, CNORM, INFO)
SLATRS solves a triangular system of equations with the scale factor set to prevent overflow.
Definition: slatrs.f:238
subroutine slatbs(UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, SCALE, CNORM, INFO)
SLATBS solves a triangular banded system of equations.
Definition: slatbs.f:242
subroutine slatps(UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, CNORM, INFO)
SLATPS solves a triangular system of equations with the matrix held in packed storage.
Definition: slatps.f:229
subroutine strtri(UPLO, DIAG, N, A, LDA, INFO)
STRTRI
Definition: strtri.f:109
subroutine stptrs(UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO)
STPTRS
Definition: stptrs.f:130
subroutine stptri(UPLO, DIAG, N, AP, INFO)
STPTRI
Definition: stptri.f:117
subroutine strrfs(UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO)
STRRFS
Definition: strrfs.f:182
subroutine stbrfs(UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO)
STBRFS
Definition: stbrfs.f:188
subroutine strtrs(UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, INFO)
STRTRS
Definition: strtrs.f:140
subroutine stbcon(NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, IWORK, INFO)
STBCON
Definition: stbcon.f:143
subroutine strti2(UPLO, DIAG, N, A, LDA, INFO)
STRTI2 computes the inverse of a triangular matrix (unblocked algorithm).
Definition: strti2.f:110
subroutine strcon(NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, IWORK, INFO)
STRCON
Definition: strcon.f:137
subroutine stbtrs(UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, LDB, INFO)
STBTRS
Definition: stbtrs.f:146
subroutine stprfs(UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO)
STPRFS
Definition: stprfs.f:175
subroutine stpcon(NORM, UPLO, DIAG, N, AP, RCOND, WORK, IWORK, INFO)
STPCON
Definition: stpcon.f:130
Here is the call graph for this function:
Here is the caller graph for this function: