LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ zerrtr()

subroutine zerrtr ( character*3  PATH,
integer  NUNIT 
)

ZERRTR

Purpose:
 ZERRTR tests the error exits for the COMPLEX*16 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 53 of file zerrtr.f.

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