LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ 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, SCALES(0)
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,
86 $ zlatrs3, ztbcon, ztbrfs, ztbtrs, ztpcon,
87 $ ztprfs, ztptri, ztptrs, ztrcon, ztrrfs, ztrti2,
88 $ ztrtri, ztrtrs
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.d0
105 a( 1, 2 ) = 2.d0
106 a( 2, 2 ) = 3.d0
107 a( 2, 1 ) = 4.d0
108 ok = .true.
109*
110* Test error exits for the general triangular routines.
111*
112 IF( lsamen( 2, c2, 'TR' ) ) THEN
113*
114* ZTRTRI
115*
116 srnamt = 'ZTRTRI'
117 infot = 1
118 CALL ztrtri( '/', 'N', 0, a, 1, info )
119 CALL chkxer( 'ZTRTRI', infot, nout, lerr, ok )
120 infot = 2
121 CALL ztrtri( 'U', '/', 0, a, 1, info )
122 CALL chkxer( 'ZTRTRI', infot, nout, lerr, ok )
123 infot = 3
124 CALL ztrtri( 'U', 'N', -1, a, 1, info )
125 CALL chkxer( 'ZTRTRI', infot, nout, lerr, ok )
126 infot = 5
127 CALL ztrtri( 'U', 'N', 2, a, 1, info )
128 CALL chkxer( 'ZTRTRI', infot, nout, lerr, ok )
129*
130* ZTRTI2
131*
132 srnamt = 'ZTRTI2'
133 infot = 1
134 CALL ztrti2( '/', 'N', 0, a, 1, info )
135 CALL chkxer( 'ZTRTI2', infot, nout, lerr, ok )
136 infot = 2
137 CALL ztrti2( 'U', '/', 0, a, 1, info )
138 CALL chkxer( 'ZTRTI2', infot, nout, lerr, ok )
139 infot = 3
140 CALL ztrti2( 'U', 'N', -1, a, 1, info )
141 CALL chkxer( 'ZTRTI2', infot, nout, lerr, ok )
142 infot = 5
143 CALL ztrti2( 'U', 'N', 2, a, 1, info )
144 CALL chkxer( 'ZTRTI2', infot, nout, lerr, ok )
145*
146*
147* ZTRTRS
148*
149 srnamt = 'ZTRTRS'
150 infot = 1
151 CALL ztrtrs( '/', 'N', 'N', 0, 0, a, 1, x, 1, info )
152 CALL chkxer( 'ZTRTRS', infot, nout, lerr, ok )
153 infot = 2
154 CALL ztrtrs( 'U', '/', 'N', 0, 0, a, 1, x, 1, info )
155 CALL chkxer( 'ZTRTRS', infot, nout, lerr, ok )
156 infot = 3
157 CALL ztrtrs( 'U', 'N', '/', 0, 0, a, 1, x, 1, info )
158 CALL chkxer( 'ZTRTRS', infot, nout, lerr, ok )
159 infot = 4
160 CALL ztrtrs( 'U', 'N', 'N', -1, 0, a, 1, x, 1, info )
161 CALL chkxer( 'ZTRTRS', infot, nout, lerr, ok )
162 infot = 5
163 CALL ztrtrs( 'U', 'N', 'N', 0, -1, a, 1, x, 1, info )
164 CALL chkxer( 'ZTRTRS', infot, nout, lerr, ok )
165 infot = 7
166*
167* ZTRRFS
168*
169 srnamt = 'ZTRRFS'
170 infot = 1
171 CALL ztrrfs( '/', 'N', 'N', 0, 0, a, 1, b, 1, x, 1, r1, r2, w,
172 $ rw, info )
173 CALL chkxer( 'ZTRRFS', infot, nout, lerr, ok )
174 infot = 2
175 CALL ztrrfs( 'U', '/', 'N', 0, 0, a, 1, b, 1, x, 1, r1, r2, w,
176 $ rw, info )
177 CALL chkxer( 'ZTRRFS', infot, nout, lerr, ok )
178 infot = 3
179 CALL ztrrfs( 'U', 'N', '/', 0, 0, a, 1, b, 1, x, 1, r1, r2, w,
180 $ rw, info )
181 CALL chkxer( 'ZTRRFS', infot, nout, lerr, ok )
182 infot = 4
183 CALL ztrrfs( 'U', 'N', 'N', -1, 0, a, 1, b, 1, x, 1, r1, r2, w,
184 $ rw, info )
185 CALL chkxer( 'ZTRRFS', infot, nout, lerr, ok )
186 infot = 5
187 CALL ztrrfs( 'U', 'N', 'N', 0, -1, a, 1, b, 1, x, 1, r1, r2, w,
188 $ rw, info )
189 CALL chkxer( 'ZTRRFS', infot, nout, lerr, ok )
190 infot = 7
191 CALL ztrrfs( 'U', 'N', 'N', 2, 1, a, 1, b, 2, x, 2, r1, r2, w,
192 $ rw, info )
193 CALL chkxer( 'ZTRRFS', infot, nout, lerr, ok )
194 infot = 9
195 CALL ztrrfs( 'U', 'N', 'N', 2, 1, a, 2, b, 1, x, 2, r1, r2, w,
196 $ rw, info )
197 CALL chkxer( 'ZTRRFS', infot, nout, lerr, ok )
198 infot = 11
199 CALL ztrrfs( 'U', 'N', 'N', 2, 1, a, 2, b, 2, x, 1, r1, r2, w,
200 $ rw, info )
201 CALL chkxer( 'ZTRRFS', infot, nout, lerr, ok )
202*
203* ZTRCON
204*
205 srnamt = 'ZTRCON'
206 infot = 1
207 CALL ztrcon( '/', 'U', 'N', 0, a, 1, rcond, w, rw, info )
208 CALL chkxer( 'ZTRCON', infot, nout, lerr, ok )
209 infot = 2
210 CALL ztrcon( '1', '/', 'N', 0, a, 1, rcond, w, rw, info )
211 CALL chkxer( 'ZTRCON', infot, nout, lerr, ok )
212 infot = 3
213 CALL ztrcon( '1', 'U', '/', 0, a, 1, rcond, w, rw, info )
214 CALL chkxer( 'ZTRCON', infot, nout, lerr, ok )
215 infot = 4
216 CALL ztrcon( '1', 'U', 'N', -1, a, 1, rcond, w, rw, info )
217 CALL chkxer( 'ZTRCON', infot, nout, lerr, ok )
218 infot = 6
219 CALL ztrcon( '1', 'U', 'N', 2, a, 1, rcond, w, rw, info )
220 CALL chkxer( 'ZTRCON', infot, nout, lerr, ok )
221*
222* ZLATRS
223*
224 srnamt = 'ZLATRS'
225 infot = 1
226 CALL zlatrs( '/', 'N', 'N', 'N', 0, a, 1, x, scale, rw, info )
227 CALL chkxer( 'ZLATRS', infot, nout, lerr, ok )
228 infot = 2
229 CALL zlatrs( 'U', '/', 'N', 'N', 0, a, 1, x, scale, rw, info )
230 CALL chkxer( 'ZLATRS', infot, nout, lerr, ok )
231 infot = 3
232 CALL zlatrs( 'U', 'N', '/', 'N', 0, a, 1, x, scale, rw, info )
233 CALL chkxer( 'ZLATRS', infot, nout, lerr, ok )
234 infot = 4
235 CALL zlatrs( 'U', 'N', 'N', '/', 0, a, 1, x, scale, rw, info )
236 CALL chkxer( 'ZLATRS', infot, nout, lerr, ok )
237 infot = 5
238 CALL zlatrs( 'U', 'N', 'N', 'N', -1, a, 1, x, scale, rw, info )
239 CALL chkxer( 'ZLATRS', infot, nout, lerr, ok )
240 infot = 7
241 CALL zlatrs( 'U', 'N', 'N', 'N', 2, a, 1, x, scale, rw, info )
242 CALL chkxer( 'ZLATRS', infot, nout, lerr, ok )
243*
244* ZLATRS3
245*
246 srnamt = 'ZLATRS3'
247 infot = 1
248 CALL zlatrs3( '/', 'N', 'N', 'N', 0, 0, a, 1, x, 1, scales,
249 $ rw, rw( 2 ), 1, info )
250 CALL chkxer( 'ZLATRS3', infot, nout, lerr, ok )
251 infot = 2
252 CALL zlatrs3( 'U', '/', 'N', 'N', 0, 0, a, 1, x, 1, scales,
253 $ rw, rw( 2 ), 1, info )
254 CALL chkxer( 'ZLATRS3', infot, nout, lerr, ok )
255 infot = 3
256 CALL zlatrs3( 'U', 'N', '/', 'N', 0, 0, a, 1, x, 1, scales,
257 $ rw, rw( 2 ), 1, info )
258 CALL chkxer( 'ZLATRS3', infot, nout, lerr, ok )
259 infot = 4
260 CALL zlatrs3( 'U', 'N', 'N', '/', 0, 0, a, 1, x, 1, scales,
261 $ rw, rw( 2 ), 1, info )
262 CALL chkxer( 'ZLATRS3', infot, nout, lerr, ok )
263 infot = 5
264 CALL zlatrs3( 'U', 'N', 'N', 'N', -1, 0, a, 1, x, 1, scales,
265 $ rw, rw( 2 ), 1, info )
266 CALL chkxer( 'ZLATRS3', infot, nout, lerr, ok )
267 infot = 6
268 CALL zlatrs3( 'U', 'N', 'N', 'N', 0, -1, a, 1, x, 1, scales,
269 $ rw, rw( 2 ), 1, info )
270 CALL chkxer( 'ZLATRS3', infot, nout, lerr, ok )
271 infot = 8
272 CALL zlatrs3( 'U', 'N', 'N', 'N', 2, 0, a, 1, x, 1, scales,
273 $ rw, rw( 2 ), 1, info )
274 CALL chkxer( 'ZLATRS3', infot, nout, lerr, ok )
275 infot = 10
276 CALL zlatrs3( 'U', 'N', 'N', 'N', 2, 0, a, 2, x, 1, scales,
277 $ rw, rw( 2 ), 1, info )
278 CALL chkxer( 'ZLATRS3', infot, nout, lerr, ok )
279 infot = 14
280 CALL zlatrs3( 'U', 'N', 'N', 'N', 1, 0, a, 1, x, 1, scales,
281 $ rw, rw( 2 ), 0, info )
282 CALL chkxer( 'ZLATRS3', infot, nout, lerr, ok )
283*
284* Test error exits for the packed triangular routines.
285*
286 ELSE IF( lsamen( 2, c2, 'TP' ) ) THEN
287*
288* ZTPTRI
289*
290 srnamt = 'ZTPTRI'
291 infot = 1
292 CALL ztptri( '/', 'N', 0, a, info )
293 CALL chkxer( 'ZTPTRI', infot, nout, lerr, ok )
294 infot = 2
295 CALL ztptri( 'U', '/', 0, a, info )
296 CALL chkxer( 'ZTPTRI', infot, nout, lerr, ok )
297 infot = 3
298 CALL ztptri( 'U', 'N', -1, a, info )
299 CALL chkxer( 'ZTPTRI', infot, nout, lerr, ok )
300*
301* ZTPTRS
302*
303 srnamt = 'ZTPTRS'
304 infot = 1
305 CALL ztptrs( '/', 'N', 'N', 0, 0, a, x, 1, info )
306 CALL chkxer( 'ZTPTRS', infot, nout, lerr, ok )
307 infot = 2
308 CALL ztptrs( 'U', '/', 'N', 0, 0, a, x, 1, info )
309 CALL chkxer( 'ZTPTRS', infot, nout, lerr, ok )
310 infot = 3
311 CALL ztptrs( 'U', 'N', '/', 0, 0, a, x, 1, info )
312 CALL chkxer( 'ZTPTRS', infot, nout, lerr, ok )
313 infot = 4
314 CALL ztptrs( 'U', 'N', 'N', -1, 0, a, x, 1, info )
315 CALL chkxer( 'ZTPTRS', infot, nout, lerr, ok )
316 infot = 5
317 CALL ztptrs( 'U', 'N', 'N', 0, -1, a, x, 1, info )
318 CALL chkxer( 'ZTPTRS', infot, nout, lerr, ok )
319 infot = 8
320 CALL ztptrs( 'U', 'N', 'N', 2, 1, a, x, 1, info )
321 CALL chkxer( 'ZTPTRS', infot, nout, lerr, ok )
322*
323* ZTPRFS
324*
325 srnamt = 'ZTPRFS'
326 infot = 1
327 CALL ztprfs( '/', 'N', 'N', 0, 0, a, b, 1, x, 1, r1, r2, w, rw,
328 $ info )
329 CALL chkxer( 'ZTPRFS', infot, nout, lerr, ok )
330 infot = 2
331 CALL ztprfs( 'U', '/', 'N', 0, 0, a, b, 1, x, 1, r1, r2, w, rw,
332 $ info )
333 CALL chkxer( 'ZTPRFS', infot, nout, lerr, ok )
334 infot = 3
335 CALL ztprfs( 'U', 'N', '/', 0, 0, a, b, 1, x, 1, r1, r2, w, rw,
336 $ info )
337 CALL chkxer( 'ZTPRFS', infot, nout, lerr, ok )
338 infot = 4
339 CALL ztprfs( 'U', 'N', 'N', -1, 0, a, b, 1, x, 1, r1, r2, w,
340 $ rw, info )
341 CALL chkxer( 'ZTPRFS', infot, nout, lerr, ok )
342 infot = 5
343 CALL ztprfs( 'U', 'N', 'N', 0, -1, a, b, 1, x, 1, r1, r2, w,
344 $ rw, info )
345 CALL chkxer( 'ZTPRFS', infot, nout, lerr, ok )
346 infot = 8
347 CALL ztprfs( 'U', 'N', 'N', 2, 1, a, b, 1, x, 2, r1, r2, w, rw,
348 $ info )
349 CALL chkxer( 'ZTPRFS', infot, nout, lerr, ok )
350 infot = 10
351 CALL ztprfs( 'U', 'N', 'N', 2, 1, a, b, 2, x, 1, r1, r2, w, rw,
352 $ info )
353 CALL chkxer( 'ZTPRFS', infot, nout, lerr, ok )
354*
355* ZTPCON
356*
357 srnamt = 'ZTPCON'
358 infot = 1
359 CALL ztpcon( '/', 'U', 'N', 0, a, rcond, w, rw, info )
360 CALL chkxer( 'ZTPCON', infot, nout, lerr, ok )
361 infot = 2
362 CALL ztpcon( '1', '/', 'N', 0, a, rcond, w, rw, info )
363 CALL chkxer( 'ZTPCON', infot, nout, lerr, ok )
364 infot = 3
365 CALL ztpcon( '1', 'U', '/', 0, a, rcond, w, rw, info )
366 CALL chkxer( 'ZTPCON', infot, nout, lerr, ok )
367 infot = 4
368 CALL ztpcon( '1', 'U', 'N', -1, a, rcond, w, rw, info )
369 CALL chkxer( 'ZTPCON', infot, nout, lerr, ok )
370*
371* ZLATPS
372*
373 srnamt = 'ZLATPS'
374 infot = 1
375 CALL zlatps( '/', 'N', 'N', 'N', 0, a, x, scale, rw, info )
376 CALL chkxer( 'ZLATPS', infot, nout, lerr, ok )
377 infot = 2
378 CALL zlatps( 'U', '/', 'N', 'N', 0, a, x, scale, rw, info )
379 CALL chkxer( 'ZLATPS', infot, nout, lerr, ok )
380 infot = 3
381 CALL zlatps( 'U', 'N', '/', 'N', 0, a, x, scale, rw, info )
382 CALL chkxer( 'ZLATPS', infot, nout, lerr, ok )
383 infot = 4
384 CALL zlatps( 'U', 'N', 'N', '/', 0, a, x, scale, rw, info )
385 CALL chkxer( 'ZLATPS', infot, nout, lerr, ok )
386 infot = 5
387 CALL zlatps( 'U', 'N', 'N', 'N', -1, a, x, scale, rw, info )
388 CALL chkxer( 'ZLATPS', infot, nout, lerr, ok )
389*
390* Test error exits for the banded triangular routines.
391*
392 ELSE IF( lsamen( 2, c2, 'TB' ) ) THEN
393*
394* ZTBTRS
395*
396 srnamt = 'ZTBTRS'
397 infot = 1
398 CALL ztbtrs( '/', 'N', 'N', 0, 0, 0, a, 1, x, 1, info )
399 CALL chkxer( 'ZTBTRS', infot, nout, lerr, ok )
400 infot = 2
401 CALL ztbtrs( 'U', '/', 'N', 0, 0, 0, a, 1, x, 1, info )
402 CALL chkxer( 'ZTBTRS', infot, nout, lerr, ok )
403 infot = 3
404 CALL ztbtrs( 'U', 'N', '/', 0, 0, 0, a, 1, x, 1, info )
405 CALL chkxer( 'ZTBTRS', infot, nout, lerr, ok )
406 infot = 4
407 CALL ztbtrs( 'U', 'N', 'N', -1, 0, 0, a, 1, x, 1, info )
408 CALL chkxer( 'ZTBTRS', infot, nout, lerr, ok )
409 infot = 5
410 CALL ztbtrs( 'U', 'N', 'N', 0, -1, 0, a, 1, x, 1, info )
411 CALL chkxer( 'ZTBTRS', infot, nout, lerr, ok )
412 infot = 6
413 CALL ztbtrs( 'U', 'N', 'N', 0, 0, -1, a, 1, x, 1, info )
414 CALL chkxer( 'ZTBTRS', infot, nout, lerr, ok )
415 infot = 8
416 CALL ztbtrs( 'U', 'N', 'N', 2, 1, 1, a, 1, x, 2, info )
417 CALL chkxer( 'ZTBTRS', infot, nout, lerr, ok )
418 infot = 10
419 CALL ztbtrs( 'U', 'N', 'N', 2, 0, 1, a, 1, x, 1, info )
420 CALL chkxer( 'ZTBTRS', infot, nout, lerr, ok )
421*
422* ZTBRFS
423*
424 srnamt = 'ZTBRFS'
425 infot = 1
426 CALL ztbrfs( '/', 'N', 'N', 0, 0, 0, a, 1, b, 1, x, 1, r1, r2,
427 $ w, rw, info )
428 CALL chkxer( 'ZTBRFS', infot, nout, lerr, ok )
429 infot = 2
430 CALL ztbrfs( 'U', '/', 'N', 0, 0, 0, a, 1, b, 1, x, 1, r1, r2,
431 $ w, rw, info )
432 CALL chkxer( 'ZTBRFS', infot, nout, lerr, ok )
433 infot = 3
434 CALL ztbrfs( 'U', 'N', '/', 0, 0, 0, a, 1, b, 1, x, 1, r1, r2,
435 $ w, rw, info )
436 CALL chkxer( 'ZTBRFS', infot, nout, lerr, ok )
437 infot = 4
438 CALL ztbrfs( 'U', 'N', 'N', -1, 0, 0, a, 1, b, 1, x, 1, r1, r2,
439 $ w, rw, info )
440 CALL chkxer( 'ZTBRFS', infot, nout, lerr, ok )
441 infot = 5
442 CALL ztbrfs( 'U', 'N', 'N', 0, -1, 0, a, 1, b, 1, x, 1, r1, r2,
443 $ w, rw, info )
444 CALL chkxer( 'ZTBRFS', infot, nout, lerr, ok )
445 infot = 6
446 CALL ztbrfs( 'U', 'N', 'N', 0, 0, -1, a, 1, b, 1, x, 1, r1, r2,
447 $ w, rw, info )
448 CALL chkxer( 'ZTBRFS', infot, nout, lerr, ok )
449 infot = 8
450 CALL ztbrfs( 'U', 'N', 'N', 2, 1, 1, a, 1, b, 2, x, 2, r1, r2,
451 $ w, rw, info )
452 CALL chkxer( 'ZTBRFS', infot, nout, lerr, ok )
453 infot = 10
454 CALL ztbrfs( 'U', 'N', 'N', 2, 1, 1, a, 2, b, 1, x, 2, r1, r2,
455 $ w, rw, info )
456 CALL chkxer( 'ZTBRFS', infot, nout, lerr, ok )
457 infot = 12
458 CALL ztbrfs( 'U', 'N', 'N', 2, 1, 1, a, 2, b, 2, x, 1, r1, r2,
459 $ w, rw, info )
460 CALL chkxer( 'ZTBRFS', infot, nout, lerr, ok )
461*
462* ZTBCON
463*
464 srnamt = 'ZTBCON'
465 infot = 1
466 CALL ztbcon( '/', 'U', 'N', 0, 0, a, 1, rcond, w, rw, info )
467 CALL chkxer( 'ZTBCON', infot, nout, lerr, ok )
468 infot = 2
469 CALL ztbcon( '1', '/', 'N', 0, 0, a, 1, rcond, w, rw, info )
470 CALL chkxer( 'ZTBCON', infot, nout, lerr, ok )
471 infot = 3
472 CALL ztbcon( '1', 'U', '/', 0, 0, a, 1, rcond, w, rw, info )
473 CALL chkxer( 'ZTBCON', infot, nout, lerr, ok )
474 infot = 4
475 CALL ztbcon( '1', 'U', 'N', -1, 0, a, 1, rcond, w, rw, info )
476 CALL chkxer( 'ZTBCON', infot, nout, lerr, ok )
477 infot = 5
478 CALL ztbcon( '1', 'U', 'N', 0, -1, a, 1, rcond, w, rw, info )
479 CALL chkxer( 'ZTBCON', infot, nout, lerr, ok )
480 infot = 7
481 CALL ztbcon( '1', 'U', 'N', 2, 1, a, 1, rcond, w, rw, info )
482 CALL chkxer( 'ZTBCON', infot, nout, lerr, ok )
483*
484* ZLATBS
485*
486 srnamt = 'ZLATBS'
487 infot = 1
488 CALL zlatbs( '/', 'N', 'N', 'N', 0, 0, a, 1, x, scale, rw,
489 $ info )
490 CALL chkxer( 'ZLATBS', infot, nout, lerr, ok )
491 infot = 2
492 CALL zlatbs( 'U', '/', 'N', 'N', 0, 0, a, 1, x, scale, rw,
493 $ info )
494 CALL chkxer( 'ZLATBS', infot, nout, lerr, ok )
495 infot = 3
496 CALL zlatbs( 'U', 'N', '/', 'N', 0, 0, a, 1, x, scale, rw,
497 $ info )
498 CALL chkxer( 'ZLATBS', infot, nout, lerr, ok )
499 infot = 4
500 CALL zlatbs( 'U', 'N', 'N', '/', 0, 0, a, 1, x, scale, rw,
501 $ info )
502 CALL chkxer( 'ZLATBS', infot, nout, lerr, ok )
503 infot = 5
504 CALL zlatbs( 'U', 'N', 'N', 'N', -1, 0, a, 1, x, scale, rw,
505 $ info )
506 CALL chkxer( 'ZLATBS', infot, nout, lerr, ok )
507 infot = 6
508 CALL zlatbs( 'U', 'N', 'N', 'N', 1, -1, a, 1, x, scale, rw,
509 $ info )
510 CALL chkxer( 'ZLATBS', infot, nout, lerr, ok )
511 infot = 8
512 CALL zlatbs( 'U', 'N', 'N', 'N', 2, 1, a, 1, x, scale, rw,
513 $ info )
514 CALL chkxer( 'ZLATBS', infot, nout, lerr, ok )
515 END IF
516*
517* Print a summary line.
518*
519 CALL alaesm( path, ok, nout )
520*
521 RETURN
522*
523* End of ZERRTR
524*
alaesm
subroutine alaesm(path, ok, nout)
ALAESM
Definition alaesm.f:63
chkxer
subroutine chkxer(srnamt, infot, nout, lerr, ok)
Definition cblat2.f:3224
zlatbs
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
zlatps
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
zlatrs3
subroutine zlatrs3(uplo, trans, diag, normin, n, nrhs, a, lda, x, ldx, scale, cnorm, work, lwork, info)
ZLATRS3 solves a triangular system of equations with the scale factors set to prevent overflow.
Definition zlatrs3.f:230
zlatrs
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
lsamen
logical function lsamen(n, ca, cb)
LSAMEN
Definition lsamen.f:74
ztbcon
subroutine ztbcon(norm, uplo, diag, n, kd, ab, ldab, rcond, work, rwork, info)
ZTBCON
Definition ztbcon.f:143
ztbrfs
subroutine ztbrfs(uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb, x, ldx, ferr, berr, work, rwork, info)
ZTBRFS
Definition ztbrfs.f:188
ztbtrs
subroutine ztbtrs(uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb, info)
ZTBTRS
Definition ztbtrs.f:146
ztpcon
subroutine ztpcon(norm, uplo, diag, n, ap, rcond, work, rwork, info)
ZTPCON
Definition ztpcon.f:130
ztprfs
subroutine ztprfs(uplo, trans, diag, n, nrhs, ap, b, ldb, x, ldx, ferr, berr, work, rwork, info)
ZTPRFS
Definition ztprfs.f:174
ztptri
subroutine ztptri(uplo, diag, n, ap, info)
ZTPTRI
Definition ztptri.f:117
ztptrs
subroutine ztptrs(uplo, trans, diag, n, nrhs, ap, b, ldb, info)
ZTPTRS
Definition ztptrs.f:130
ztrcon
subroutine ztrcon(norm, uplo, diag, n, a, lda, rcond, work, rwork, info)
ZTRCON
Definition ztrcon.f:137
ztrrfs
subroutine ztrrfs(uplo, trans, diag, n, nrhs, a, lda, b, ldb, x, ldx, ferr, berr, work, rwork, info)
ZTRRFS
Definition ztrrfs.f:182
ztrti2
subroutine ztrti2(uplo, diag, n, a, lda, info)
ZTRTI2 computes the inverse of a triangular matrix (unblocked algorithm).
Definition ztrti2.f:110
ztrtri
subroutine ztrtri(uplo, diag, n, a, lda, info)
ZTRTRI
Definition ztrtri.f:109
ztrtrs
subroutine ztrtrs(uplo, trans, diag, n, nrhs, a, lda, b, ldb, info)
ZTRTRS
Definition ztrtrs.f:140
Here is the call graph for this function:
Here is the caller graph for this function: