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

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