OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
derrtr.f
Go to the documentation of this file.
1*> \brief \b DERRTR
2*
3* =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6* http://www.netlib.org/lapack/explore-html/
7*
8* Definition:
9* ===========
10*
11* SUBROUTINE DERRTR( PATH, NUNIT )
12*
13* .. Scalar Arguments ..
14* CHARACTER*3 PATH
15* INTEGER NUNIT
16* ..
17*
18*
19*> \par Purpose:
20* =============
21*>
22*> \verbatim
23*>
24*> DERRTR tests the error exits for the DOUBLE PRECISION triangular
25*> routines.
26*> \endverbatim
27*
28* Arguments:
29* ==========
30*
31*> \param[in] PATH
32*> \verbatim
33*> PATH is CHARACTER*3
34*> The LAPACK path name for the routines to be tested.
35*> \endverbatim
36*>
37*> \param[in] NUNIT
38*> \verbatim
39*> NUNIT is INTEGER
40*> The unit number for output.
41*> \endverbatim
42*
43* Authors:
44* ========
45*
46*> \author Univ. of Tennessee
47*> \author Univ. of California Berkeley
48*> \author Univ. of Colorado Denver
49*> \author NAG Ltd.
50*
51*> \ingroup double_lin
52*
53* =====================================================================
54 SUBROUTINE derrtr( PATH, NUNIT )
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 DOUBLE PRECISION RCOND, SCALE
75* ..
76* .. Local Arrays ..
77 INTEGER IW( NMAX )
78 DOUBLE PRECISION 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, dlatbs, dlatps, dlatrs, dtbcon,
87 $ dtbrfs, dtbtrs, dtpcon, dtprfs, dtptri, dtptrs,
88 $ dtrcon, dtrrfs, dtrti2, dtrtri, dtrtrs
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 IF( lsamen( 2, c2, 'TR' ) ) THEN
111*
112* Test error exits for the general triangular routines.
113*
114* DTRTRI
115*
116 srnamt = 'DTRTRI'
117 infot = 1
118 CALL dtrtri( '/', 'N', 0, a, 1, info )
119 CALL chkxer( 'DTRTRI', infot, nout, lerr, ok )
120 infot = 2
121 CALL dtrtri( 'U', '/', 0, a, 1, info )
122 CALL chkxer( 'DTRTRI', infot, nout, lerr, ok )
123 infot = 3
124 CALL dtrtri( 'U', 'N', -1, a, 1, info )
125 CALL chkxer( 'DTRTRI', infot, nout, lerr, ok )
126 infot = 5
127 CALL dtrtri( 'U', 'N', 2, a, 1, info )
128 CALL chkxer( 'DTRTRI', infot, nout, lerr, ok )
129*
130* DTRTI2
131*
132 srnamt = 'DTRTI2'
133 infot = 1
134 CALL dtrti2( '/', 'N', 0, a, 1, info )
135 CALL chkxer( 'DTRTI2', infot, nout, lerr, ok )
136 infot = 2
137 CALL dtrti2( 'U', '/', 0, a, 1, info )
138 CALL chkxer( 'DTRTI2', infot, nout, lerr, ok )
139 infot = 3
140 CALL dtrti2( 'U', 'N', -1, a, 1, info )
141 CALL chkxer( 'DTRTI2', infot, nout, lerr, ok )
142 infot = 5
143 CALL dtrti2( 'U', 'N', 2, a, 1, info )
144 CALL chkxer( 'DTRTI2', infot, nout, lerr, ok )
145*
146* DTRTRS
147*
148 srnamt = 'DTRTRS'
149 infot = 1
150 CALL dtrtrs( '/', 'N', 'N', 0, 0, a, 1, x, 1, info )
151 CALL chkxer( 'DTRTRS', infot, nout, lerr, ok )
152 infot = 2
153 CALL dtrtrs( 'U', '/', 'N', 0, 0, a, 1, x, 1, info )
154 CALL chkxer( 'DTRTRS', infot, nout, lerr, ok )
155 infot = 3
156 CALL dtrtrs( 'U', 'N', '/', 0, 0, a, 1, x, 1, info )
157 CALL chkxer( 'DTRTRS', infot, nout, lerr, ok )
158 infot = 4
159 CALL dtrtrs( 'U', 'N', 'N', -1, 0, a, 1, x, 1, info )
160 CALL chkxer( 'DTRTRS', infot, nout, lerr, ok )
161 infot = 5
162 CALL dtrtrs( 'U', 'N', 'N', 0, -1, a, 1, x, 1, info )
163 CALL chkxer( 'DTRTRS', infot, nout, lerr, ok )
164 infot = 7
165 CALL dtrtrs( 'U', 'N', 'N', 2, 1, a, 1, x, 2, info )
166 CALL chkxer( 'DTRTRS', infot, nout, lerr, ok )
167 infot = 9
168 CALL dtrtrs( 'U', 'N', 'N', 2, 1, a, 2, x, 1, info )
169 CALL chkxer( 'DTRTRS', infot, nout, lerr, ok )
170*
171* DTRRFS
172*
173 srnamt = 'DTRRFS'
174 infot = 1
175 CALL dtrrfs( '/', 'N', 'N', 0, 0, a, 1, b, 1, x, 1, r1, r2, w,
176 $ iw, info )
177 CALL chkxer( 'DTRRFS', infot, nout, lerr, ok )
178 infot = 2
179 CALL dtrrfs( 'U', '/', 'N', 0, 0, a, 1, b, 1, x, 1, r1, r2, w,
180 $ iw, info )
181 CALL chkxer( 'dtrrfs', INFOT, NOUT, LERR, OK )
182 INFOT = 3
183 CALL DTRRFS( 'u', 'n', '/', 0, 0, A, 1, B, 1, X, 1, R1, R2, W,
184 $ IW, INFO )
185 CALL CHKXER( 'dtrrfs', INFOT, NOUT, LERR, OK )
186 INFOT = 4
187 CALL DTRRFS( 'u', 'n', 'n', -1, 0, A, 1, B, 1, X, 1, R1, R2, W,
188 $ IW, INFO )
189 CALL CHKXER( 'dtrrfs', INFOT, NOUT, LERR, OK )
190 INFOT = 5
191 CALL DTRRFS( 'u', 'n', 'n', 0, -1, A, 1, B, 1, X, 1, R1, R2, W,
192 $ IW, INFO )
193 CALL CHKXER( 'dtrrfs', INFOT, NOUT, LERR, OK )
194 INFOT = 7
195 CALL DTRRFS( 'u', 'n', 'n', 2, 1, A, 1, B, 2, X, 2, R1, R2, W,
196 $ IW, INFO )
197 CALL CHKXER( 'dtrrfs', INFOT, NOUT, LERR, OK )
198 INFOT = 9
199 CALL DTRRFS( 'u', 'n', 'n', 2, 1, A, 2, B, 1, X, 2, R1, R2, W,
200 $ IW, INFO )
201 CALL CHKXER( 'dtrrfs', INFOT, NOUT, LERR, OK )
202 INFOT = 11
203 CALL DTRRFS( 'u', 'n', 'n', 2, 1, A, 2, B, 2, X, 1, R1, R2, W,
204 $ IW, INFO )
205 CALL CHKXER( 'dtrrfs', INFOT, NOUT, LERR, OK )
206*
207* DTRCON
208*
209 SRNAMT = 'dtrcon'
210 INFOT = 1
211 CALL DTRCON( '/', 'u', 'n', 0, A, 1, RCOND, W, IW, INFO )
212 CALL CHKXER( 'dtrcon', INFOT, NOUT, LERR, OK )
213 INFOT = 2
214 CALL DTRCON( '1', '/', 'n', 0, A, 1, RCOND, W, IW, INFO )
215 CALL CHKXER( 'dtrcon', INFOT, NOUT, LERR, OK )
216 INFOT = 3
217 CALL DTRCON( '1', 'u', '/', 0, A, 1, RCOND, W, IW, INFO )
218 CALL CHKXER( 'dtrcon', INFOT, NOUT, LERR, OK )
219 INFOT = 4
220 CALL DTRCON( '1', 'u', 'n', -1, A, 1, RCOND, W, IW, INFO )
221 CALL CHKXER( 'dtrcon', INFOT, NOUT, LERR, OK )
222 INFOT = 6
223 CALL DTRCON( '1', 'u', 'n', 2, A, 1, RCOND, W, IW, INFO )
224 CALL CHKXER( 'dtrcon', INFOT, NOUT, LERR, OK )
225*
226* DLATRS
227*
228 SRNAMT = 'dlatrs'
229 INFOT = 1
230 CALL DLATRS( '/', 'n', 'n', 'n', 0, A, 1, X, SCALE, W, INFO )
231 CALL CHKXER( 'dlatrs', INFOT, NOUT, LERR, OK )
232 INFOT = 2
233 CALL DLATRS( 'u', '/', 'n', 'n', 0, A, 1, X, SCALE, W, INFO )
234 CALL CHKXER( 'dlatrs', INFOT, NOUT, LERR, OK )
235 INFOT = 3
236 CALL DLATRS( 'u', 'n', '/', 'n', 0, A, 1, X, SCALE, W, INFO )
237 CALL CHKXER( 'dlatrs', INFOT, NOUT, LERR, OK )
238 INFOT = 4
239 CALL DLATRS( 'u', 'n', 'n', '/', 0, A, 1, X, SCALE, W, INFO )
240 CALL CHKXER( 'dlatrs', INFOT, NOUT, LERR, OK )
241 INFOT = 5
242 CALL DLATRS( 'u', 'n', 'n', 'n', -1, A, 1, X, SCALE, W, INFO )
243 CALL CHKXER( 'dlatrs', INFOT, NOUT, LERR, OK )
244 INFOT = 7
245 CALL DLATRS( 'u', 'n', 'n', 'n', 2, A, 1, X, SCALE, W, INFO )
246 CALL CHKXER( 'dlatrs', 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* DTPTRI
253*
254 SRNAMT = 'dtptri'
255 INFOT = 1
256 CALL DTPTRI( '/', 'n', 0, A, INFO )
257 CALL CHKXER( 'dtptri', INFOT, NOUT, LERR, OK )
258 INFOT = 2
259 CALL DTPTRI( 'u', '/', 0, A, INFO )
260 CALL CHKXER( 'dtptri', INFOT, NOUT, LERR, OK )
261 INFOT = 3
262 CALL DTPTRI( 'u', 'n', -1, A, INFO )
263 CALL CHKXER( 'dtptri', INFOT, NOUT, LERR, OK )
264*
265* DTPTRS
266*
267 SRNAMT = 'dtptrs'
268 INFOT = 1
269 CALL DTPTRS( '/', 'n', 'n', 0, 0, A, X, 1, INFO )
270 CALL CHKXER( 'dtptrs', INFOT, NOUT, LERR, OK )
271 INFOT = 2
272 CALL DTPTRS( 'u', '/', 'n', 0, 0, A, X, 1, INFO )
273 CALL CHKXER( 'dtptrs', INFOT, NOUT, LERR, OK )
274 INFOT = 3
275 CALL DTPTRS( 'u', 'n', '/', 0, 0, A, X, 1, INFO )
276 CALL CHKXER( 'dtptrs', INFOT, NOUT, LERR, OK )
277 INFOT = 4
278 CALL DTPTRS( 'u', 'n', 'n', -1, 0, A, X, 1, INFO )
279 CALL CHKXER( 'dtptrs', INFOT, NOUT, LERR, OK )
280 INFOT = 5
281 CALL DTPTRS( 'u', 'n', 'n', 0, -1, A, X, 1, INFO )
282 CALL CHKXER( 'dtptrs', INFOT, NOUT, LERR, OK )
283 INFOT = 8
284 CALL DTPTRS( 'u', 'n', 'n', 2, 1, A, X, 1, INFO )
285 CALL CHKXER( 'dtptrs', INFOT, NOUT, LERR, OK )
286*
287* DTPRFS
288*
289 SRNAMT = 'dtprfs'
290 INFOT = 1
291 CALL DTPRFS( '/', 'N', 'N', 0, 0, a, b, 1, x, 1, r1, r2, w, iw,
292 $ info )
293 CALL chkxer( 'DTPRFS', infot, nout, lerr, ok )
294 infot = 2
295 CALL dtprfs( 'U', '/', 'N', 0, 0, a, b, 1, x, 1, r1, r2, w, iw,
296 $ info )
297 CALL chkxer( 'DTPRFS', infot, nout, lerr, ok )
298 infot = 3
299 CALL dtprfs( 'U', 'N', '/', 0, 0, a, b, 1, x, 1, r1, r2, w, iw,
300 $ info )
301 CALL chkxer( 'DTPRFS', infot, nout, lerr, ok )
302 infot = 4
303 CALL dtprfs( 'U', 'N', 'N', -1, 0, a, b, 1, x, 1, r1, r2, w,
304 $ iw, info )
305 CALL chkxer( 'DTPRFS', infot, nout, lerr, ok )
306 infot = 5
307 CALL dtprfs( 'U', 'N', 'N', 0, -1, a, b, 1, x, 1, r1, r2, w,
308 $ iw, info )
309 CALL chkxer( 'DTPRFS', infot, nout, lerr, ok )
310 infot = 8
311 CALL dtprfs( 'U', 'N', 'N', 2, 1, a, b, 1, x, 2, r1, r2, w, iw,
312 $ info )
313 CALL chkxer( 'DTPRFS', infot, nout, lerr, ok )
314 infot = 10
315 CALL dtprfs( 'U', 'N', 'N', 2, 1, a, b, 2, x, 1, r1, r2, w, iw,
316 $ info )
317 CALL chkxer( 'DTPRFS', infot, nout, lerr, ok )
318*
319* DTPCON
320*
321 srnamt = 'DTPCON'
322 infot = 1
323 CALL dtpcon( '/', 'U', 'N', 0, a, rcond, w, iw, info )
324 CALL chkxer( 'DTPCON', infot, nout, lerr, ok )
325 infot = 2
326 CALL dtpcon( '1', '/', 'N', 0, a, rcond, w, iw, info )
327 CALL chkxer( 'DTPCON', infot, nout, lerr, ok )
328 infot = 3
329 CALL dtpcon( '1', 'u', '/', 0, A, RCOND, W, IW, INFO )
330 CALL CHKXER( 'dtpcon', INFOT, NOUT, LERR, OK )
331 INFOT = 4
332 CALL DTPCON( '1', 'u', 'n', -1, A, RCOND, W, IW, INFO )
333 CALL CHKXER( 'dtpcon', INFOT, NOUT, LERR, OK )
334*
335* DLATPS
336*
337 SRNAMT = 'dlatps'
338 INFOT = 1
339 CALL DLATPS( '/', 'n', 'n', 'n', 0, A, X, SCALE, W, INFO )
340 CALL CHKXER( 'dlatps', INFOT, NOUT, LERR, OK )
341 INFOT = 2
342 CALL DLATPS( 'u', '/', 'n', 'n', 0, A, X, SCALE, W, INFO )
343 CALL CHKXER( 'dlatps', INFOT, NOUT, LERR, OK )
344 INFOT = 3
345 CALL DLATPS( 'u', 'n', '/', 'n', 0, A, X, SCALE, W, INFO )
346 CALL CHKXER( 'dlatps', INFOT, NOUT, LERR, OK )
347 INFOT = 4
348 CALL DLATPS( 'u', 'n', 'n', '/', 0, a, x, scale, w, info )
349 CALL chkxer( 'DLATPS', infot, nout, lerr, ok )
350 infot = 5
351 CALL dlatps( 'U', 'N', 'N', 'N', -1, a, x, scale, w, info )
352 CALL chkxer( 'DLATPS', 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* DTBTRS
359*
360 srnamt = 'DTBTRS'
361 infot = 1
362 CALL dtbtrs( '/', 'N', 'N', 0, 0, 0, a, 1, x, 1, info )
363 CALL chkxer( 'DTBTRS', infot, nout, lerr, ok )
364 infot = 2
365 CALL dtbtrs( 'U', '/', 'N', 0, 0, 0, a, 1, x, 1, info )
366 CALL chkxer( 'DTBTRS', infot, nout, lerr, ok )
367 infot = 3
368 CALL dtbtrs( 'U', 'N', '/', 0, 0, 0, a, 1, x, 1, info )
369 CALL chkxer( 'DTBTRS', infot, nout, lerr, ok )
370 infot = 4
371 CALL dtbtrs( 'U', 'N', 'N', -1, 0, 0, a, 1, x, 1, info )
372 CALL chkxer( 'DTBTRS', infot, nout, lerr, ok )
373 infot = 5
374 CALL dtbtrs( 'U', 'N', 'N', 0, -1, 0, a, 1, x, 1, info )
375 CALL chkxer( 'DTBTRS', infot, nout, lerr, ok )
376 infot = 6
377 CALL dtbtrs( 'U', 'N', 'N', 0, 0, -1, a, 1, x, 1, info )
378 CALL chkxer( 'DTBTRS', infot, nout, lerr, ok )
379 infot = 8
380 CALL dtbtrs( 'U', 'N', 'N', 2, 1, 1, a, 1, x, 2, info )
381 CALL chkxer( 'DTBTRS', infot, nout, lerr, ok )
382 infot = 10
383 CALL dtbtrs( 'U', 'N', 'N', 2, 0, 1, a, 1, x, 1, info )
384 CALL chkxer( 'DTBTRS', infot, nout, lerr, ok )
385*
386* DTBRFS
387*
388 srnamt = 'DTBRFS'
389 infot = 1
390 CALL dtbrfs( '/', 'N', 'N', 0, 0, 0, a, 1, b, 1, x, 1, r1, r2,
391 $ w, iw, info )
392 CALL chkxer( 'DTBRFS', infot, nout, lerr, ok )
393 infot = 2
394 CALL dtbrfs( 'U', '/', 'N', 0, 0, 0, a, 1, b, 1, x, 1, r1, r2,
395 $ w, iw, info )
396 CALL chkxer( 'DTBRFS', infot, nout, lerr, ok )
397 infot = 3
398 CALL dtbrfs( 'u', 'n', '/', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2,
399 $ W, IW, INFO )
400 CALL CHKXER( 'dtbrfs', INFOT, NOUT, LERR, OK )
401 INFOT = 4
402 CALL DTBRFS( 'u', 'n', 'n', -1, 0, 0, A, 1, B, 1, X, 1, R1, R2,
403 $ W, IW, INFO )
404 CALL CHKXER( 'dtbrfs', INFOT, NOUT, LERR, OK )
405 INFOT = 5
406 CALL DTBRFS( 'u', 'n', 'n', 0, -1, 0, A, 1, B, 1, X, 1, R1, R2,
407 $ W, IW, INFO )
408 CALL CHKXER( 'dtbrfs', INFOT, NOUT, LERR, OK )
409 INFOT = 6
410 CALL DTBRFS( 'u', 'n', 'n', 0, 0, -1, A, 1, B, 1, X, 1, R1, R2,
411 $ W, IW, INFO )
412 CALL CHKXER( 'dtbrfs', INFOT, NOUT, LERR, OK )
413 INFOT = 8
414 CALL DTBRFS( 'u', 'n', 'n', 2, 1, 1, A, 1, B, 2, X, 2, R1, R2,
415 $ W, IW, INFO )
416 CALL CHKXER( 'dtbrfs', INFOT, NOUT, LERR, OK )
417 INFOT = 10
418 CALL DTBRFS( 'u', 'n', 'n', 2, 1, 1, A, 2, B, 1, X, 2, R1, R2,
419 $ W, IW, INFO )
420 CALL CHKXER( 'dtbrfs', INFOT, NOUT, LERR, OK )
421 INFOT = 12
422 CALL DTBRFS( 'u', 'n', 'n', 2, 1, 1, A, 2, B, 2, X, 1, R1, R2,
423 $ W, IW, INFO )
424 CALL CHKXER( 'dtbrfs', INFOT, NOUT, LERR, OK )
425*
426* DTBCON
427*
428 SRNAMT = 'dtbcon'
429 INFOT = 1
430 CALL DTBCON( '/', 'u', 'n', 0, 0, A, 1, RCOND, W, IW, INFO )
431 CALL CHKXER( 'dtbcon', INFOT, NOUT, LERR, OK )
432 INFOT = 2
433 CALL DTBCON( '1', '/', 'n', 0, 0, A, 1, RCOND, W, IW, INFO )
434 CALL CHKXER( 'dtbcon', INFOT, NOUT, LERR, OK )
435 INFOT = 3
436 CALL DTBCON( '1', 'u', '/', 0, 0, A, 1, RCOND, W, IW, INFO )
437 CALL CHKXER( 'dtbcon', INFOT, NOUT, LERR, OK )
438 INFOT = 4
439 CALL DTBCON( '1', 'u', 'n', -1, 0, A, 1, RCOND, W, IW, INFO )
440 CALL CHKXER( 'dtbcon', INFOT, NOUT, LERR, OK )
441 INFOT = 5
442 CALL DTBCON( '1', 'u', 'n', 0, -1, A, 1, RCOND, W, IW, INFO )
443 CALL CHKXER( 'dtbcon', INFOT, NOUT, LERR, OK )
444 INFOT = 7
445 CALL DTBCON( '1', 'u', 'n', 2, 1, A, 1, RCOND, W, IW, INFO )
446 CALL CHKXER( 'dtbcon', INFOT, NOUT, LERR, OK )
447*
448* DLATBS
449*
450 SRNAMT = 'dlatbs'
451 INFOT = 1
452 CALL DLATBS( '/', 'n', 'n', 'n', 0, 0, A, 1, X, SCALE, W,
453 $ INFO )
454 CALL CHKXER( 'dlatbs', INFOT, NOUT, LERR, OK )
455 INFOT = 2
456 CALL DLATBS( 'u', '/', 'n', 'n', 0, 0, A, 1, X, SCALE, W,
457 $ INFO )
458 CALL CHKXER( 'dlatbs', INFOT, NOUT, LERR, OK )
459 INFOT = 3
460 CALL DLATBS( 'u', 'n', '/', 'n', 0, 0, A, 1, X, SCALE, W,
461 $ INFO )
462 CALL CHKXER( 'dlatbs', INFOT, NOUT, LERR, OK )
463 INFOT = 4
464 CALL DLATBS( 'u', 'n', 'n', '/', 0, 0, A, 1, X, SCALE, W,
465 $ INFO )
466 CALL CHKXER( 'dlatbs', INFOT, NOUT, LERR, OK )
467 INFOT = 5
468 CALL DLATBS( 'u', 'n', 'n', 'n', -1, 0, A, 1, X, SCALE, W,
469 $ INFO )
470 CALL CHKXER( 'dlatbs', INFOT, NOUT, LERR, OK )
471 INFOT = 6
472 CALL DLATBS( 'u', 'n', 'n', 'n', 1, -1, A, 1, X, SCALE, W,
473 $ INFO )
474 CALL CHKXER( 'dlatbs', INFOT, NOUT, LERR, OK )
475 INFOT = 8
476 CALL DLATBS( 'u', 'n', 'n', 'n', 2, 1, A, 1, X, SCALE, W,
477 $ INFO )
478 CALL CHKXER( 'dlatbs', 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 DERRTR
488*
489 END
chkxer
subroutine chkxer(srnamt, infot, nout, lerr, ok)
Definition cblat2.f:3196
alaesm
subroutine alaesm(path, ok, nout)
ALAESM
Definition alaesm.f:63
dlatps
subroutine dlatps(uplo, trans, diag, normin, n, ap, x, scale, cnorm, info)
DLATPS solves a triangular system of equations with the matrix held in packed storage.
Definition dlatps.f:229
dlatbs
subroutine dlatbs(uplo, trans, diag, normin, n, kd, ab, ldab, x, scale, cnorm, info)
DLATBS solves a triangular banded system of equations.
Definition dlatbs.f:242
dlatrs
subroutine dlatrs(uplo, trans, diag, normin, n, a, lda, x, scale, cnorm, info)
DLATRS solves a triangular system of equations with the scale factor set to prevent overflow.
Definition dlatrs.f:238
dtrcon
subroutine dtrcon(norm, uplo, diag, n, a, lda, rcond, work, iwork, info)
DTRCON
Definition dtrcon.f:137
dtrtri
subroutine dtrtri(uplo, diag, n, a, lda, info)
DTRTRI
Definition dtrtri.f:109
dtrti2
subroutine dtrti2(uplo, diag, n, a, lda, info)
DTRTI2 computes the inverse of a triangular matrix (unblocked algorithm).
Definition dtrti2.f:110
dtbtrs
subroutine dtbtrs(uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb, info)
DTBTRS
Definition dtbtrs.f:146
dtptri
subroutine dtptri(uplo, diag, n, ap, info)
DTPTRI
Definition dtptri.f:117
dtbcon
subroutine dtbcon(norm, uplo, diag, n, kd, ab, ldab, rcond, work, iwork, info)
DTBCON
Definition dtbcon.f:143
dtrtrs
subroutine dtrtrs(uplo, trans, diag, n, nrhs, a, lda, b, ldb, info)
DTRTRS
Definition dtrtrs.f:140
dtpcon
subroutine dtpcon(norm, uplo, diag, n, ap, rcond, work, iwork, info)
DTPCON
Definition dtpcon.f:130
dtptrs
subroutine dtptrs(uplo, trans, diag, n, nrhs, ap, b, ldb, info)
DTPTRS
Definition dtptrs.f:130
dtprfs
subroutine dtprfs(uplo, trans, diag, n, nrhs, ap, b, ldb, x, ldx, ferr, berr, work, iwork, info)
DTPRFS
Definition dtprfs.f:175
dtbrfs
subroutine dtbrfs(uplo, trans, diag, n, kd, nrhs, ab, ldab, b, ldb, x, ldx, ferr, berr, work, iwork, info)
DTBRFS
Definition dtbrfs.f:188
dtrrfs
subroutine dtrrfs(uplo, trans, diag, n, nrhs, a, lda, b, ldb, x, ldx, ferr, berr, work, iwork, info)
DTRRFS
Definition dtrrfs.f:182
derrtr
subroutine derrtr(path, nunit)
DERRTR
Definition derrtr.f:55