LAPACK  3.8.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.
Date
December 2016

Definition at line 57 of file serrtr.f.

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