1*> \brief \b SERRTR
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 SERRTR( 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*> SERRTR tests the error exits for the REAL 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 single_lin
52*
53*  =====================================================================
54      SUBROUTINE SERRTR( 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      REAL               RCOND, SCALE
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, STBCON,
87     $                   STBRFS, STBTRS, STPCON, STPRFS, STPTRI, STPTRS,
88     $                   STRCON, STRRFS, STRTI2, STRTRI, STRTRS
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.
105      A( 1, 2 ) = 2.
106      A( 2, 2 ) = 3.
107      A( 2, 1 ) = 4.
108      OK = .TRUE.
109*
110      IF( LSAMEN( 2, C2, 'TR' ) ) THEN
111*
112*        Test error exits for the general triangular routines.
113*
114*        STRTRI
115*
116         SRNAMT = 'STRTRI'
117         INFOT = 1
118         CALL STRTRI( '/', 'N', 0, A, 1, INFO )
119         CALL CHKXER( 'STRTRI', INFOT, NOUT, LERR, OK )
120         INFOT = 2
121         CALL STRTRI( 'U', '/', 0, A, 1, INFO )
122         CALL CHKXER( 'STRTRI', INFOT, NOUT, LERR, OK )
123         INFOT = 3
124         CALL STRTRI( 'U', 'N', -1, A, 1, INFO )
125         CALL CHKXER( 'STRTRI', INFOT, NOUT, LERR, OK )
126         INFOT = 5
127         CALL STRTRI( 'U', 'N', 2, A, 1, INFO )
128         CALL CHKXER( 'STRTRI', INFOT, NOUT, LERR, OK )
129*
130*        STRTI2
131*
132         SRNAMT = 'STRTI2'
133         INFOT = 1
134         CALL STRTI2( '/', 'N', 0, A, 1, INFO )
135         CALL CHKXER( 'STRTI2', INFOT, NOUT, LERR, OK )
136         INFOT = 2
137         CALL STRTI2( 'U', '/', 0, A, 1, INFO )
138         CALL CHKXER( 'STRTI2', INFOT, NOUT, LERR, OK )
139         INFOT = 3
140         CALL STRTI2( 'U', 'N', -1, A, 1, INFO )
141         CALL CHKXER( 'STRTI2', INFOT, NOUT, LERR, OK )
142         INFOT = 5
143         CALL STRTI2( 'U', 'N', 2, A, 1, INFO )
144         CALL CHKXER( 'STRTI2', INFOT, NOUT, LERR, OK )
145*
146*        STRTRS
147*
148         SRNAMT = 'STRTRS'
149         INFOT = 1
150         CALL STRTRS( '/', 'N', 'N', 0, 0, A, 1, X, 1, INFO )
151         CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK )
152         INFOT = 2
153         CALL STRTRS( 'U', '/', 'N', 0, 0, A, 1, X, 1, INFO )
154         CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK )
155         INFOT = 3
156         CALL STRTRS( 'U', 'N', '/', 0, 0, A, 1, X, 1, INFO )
157         CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK )
158         INFOT = 4
159         CALL STRTRS( 'U', 'N', 'N', -1, 0, A, 1, X, 1, INFO )
160         CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK )
161         INFOT = 5
162         CALL STRTRS( 'U', 'N', 'N', 0, -1, A, 1, X, 1, INFO )
163         CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK )
164         INFOT = 7
165         CALL STRTRS( 'U', 'N', 'N', 2, 1, A, 1, X, 2, INFO )
166         CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK )
167         INFOT = 9
168         CALL STRTRS( 'U', 'N', 'N', 2, 1, A, 2, X, 1, INFO )
169         CALL CHKXER( 'STRTRS', INFOT, NOUT, LERR, OK )
170*
171*        STRRFS
172*
173         SRNAMT = 'STRRFS'
174         INFOT = 1
175         CALL STRRFS( '/', 'N', 'N', 0, 0, A, 1, B, 1, X, 1, R1, R2, W,
176     $                IW, INFO )
177         CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK )
178         INFOT = 2
179         CALL STRRFS( 'U', '/', 'N', 0, 0, A, 1, B, 1, X, 1, R1, R2, W,
180     $                IW, INFO )
181         CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK )
182         INFOT = 3
183         CALL STRRFS( 'U', 'N', '/', 0, 0, A, 1, B, 1, X, 1, R1, R2, W,
184     $                IW, INFO )
185         CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK )
186         INFOT = 4
187         CALL STRRFS( 'U', 'N', 'N', -1, 0, A, 1, B, 1, X, 1, R1, R2, W,
188     $                IW, INFO )
189         CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK )
190         INFOT = 5
191         CALL STRRFS( 'U', 'N', 'N', 0, -1, A, 1, B, 1, X, 1, R1, R2, W,
192     $                IW, INFO )
193         CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK )
194         INFOT = 7
195         CALL STRRFS( 'U', 'N', 'N', 2, 1, A, 1, B, 2, X, 2, R1, R2, W,
196     $                IW, INFO )
197         CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK )
198         INFOT = 9
199         CALL STRRFS( 'U', 'N', 'N', 2, 1, A, 2, B, 1, X, 2, R1, R2, W,
200     $                IW, INFO )
201         CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK )
202         INFOT = 11
203         CALL STRRFS( 'U', 'N', 'N', 2, 1, A, 2, B, 2, X, 1, R1, R2, W,
204     $                IW, INFO )
205         CALL CHKXER( 'STRRFS', INFOT, NOUT, LERR, OK )
206*
207*        STRCON
208*
209         SRNAMT = 'STRCON'
210         INFOT = 1
211         CALL STRCON( '/', 'U', 'N', 0, A, 1, RCOND, W, IW, INFO )
212         CALL CHKXER( 'STRCON', INFOT, NOUT, LERR, OK )
213         INFOT = 2
214         CALL STRCON( '1', '/', 'N', 0, A, 1, RCOND, W, IW, INFO )
215         CALL CHKXER( 'STRCON', INFOT, NOUT, LERR, OK )
216         INFOT = 3
217         CALL STRCON( '1', 'U', '/', 0, A, 1, RCOND, W, IW, INFO )
218         CALL CHKXER( 'STRCON', INFOT, NOUT, LERR, OK )
219         INFOT = 4
220         CALL STRCON( '1', 'U', 'N', -1, A, 1, RCOND, W, IW, INFO )
221         CALL CHKXER( 'STRCON', INFOT, NOUT, LERR, OK )
222         INFOT = 6
223         CALL STRCON( '1', 'U', 'N', 2, A, 1, RCOND, W, IW, INFO )
224         CALL CHKXER( 'STRCON', INFOT, NOUT, LERR, OK )
225*
226*        SLATRS
227*
228         SRNAMT = 'SLATRS'
229         INFOT = 1
230         CALL SLATRS( '/', 'N', 'N', 'N', 0, A, 1, X, SCALE, W, INFO )
231         CALL CHKXER( 'SLATRS', INFOT, NOUT, LERR, OK )
232         INFOT = 2
233         CALL SLATRS( 'U', '/', 'N', 'N', 0, A, 1, X, SCALE, W, INFO )
234         CALL CHKXER( 'SLATRS', INFOT, NOUT, LERR, OK )
235         INFOT = 3
236         CALL SLATRS( 'U', 'N', '/', 'N', 0, A, 1, X, SCALE, W, INFO )
237         CALL CHKXER( 'SLATRS', INFOT, NOUT, LERR, OK )
238         INFOT = 4
239         CALL SLATRS( 'U', 'N', 'N', '/', 0, A, 1, X, SCALE, W, INFO )
240         CALL CHKXER( 'SLATRS', INFOT, NOUT, LERR, OK )
241         INFOT = 5
242         CALL SLATRS( 'U', 'N', 'N', 'N', -1, A, 1, X, SCALE, W, INFO )
243         CALL CHKXER( 'SLATRS', INFOT, NOUT, LERR, OK )
244         INFOT = 7
245         CALL SLATRS( 'U', 'N', 'N', 'N', 2, A, 1, X, SCALE, W, INFO )
246         CALL CHKXER( 'SLATRS', 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*        STPTRI
253*
254         SRNAMT = 'STPTRI'
255         INFOT = 1
256         CALL STPTRI( '/', 'N', 0, A, INFO )
257         CALL CHKXER( 'STPTRI', INFOT, NOUT, LERR, OK )
258         INFOT = 2
259         CALL STPTRI( 'U', '/', 0, A, INFO )
260         CALL CHKXER( 'STPTRI', INFOT, NOUT, LERR, OK )
261         INFOT = 3
262         CALL STPTRI( 'U', 'N', -1, A, INFO )
263         CALL CHKXER( 'STPTRI', INFOT, NOUT, LERR, OK )
264*
265*        STPTRS
266*
267         SRNAMT = 'STPTRS'
268         INFOT = 1
269         CALL STPTRS( '/', 'N', 'N', 0, 0, A, X, 1, INFO )
270         CALL CHKXER( 'STPTRS', INFOT, NOUT, LERR, OK )
271         INFOT = 2
272         CALL STPTRS( 'U', '/', 'N', 0, 0, A, X, 1, INFO )
273         CALL CHKXER( 'STPTRS', INFOT, NOUT, LERR, OK )
274         INFOT = 3
275         CALL STPTRS( 'U', 'N', '/', 0, 0, A, X, 1, INFO )
276         CALL CHKXER( 'STPTRS', INFOT, NOUT, LERR, OK )
277         INFOT = 4
278         CALL STPTRS( 'U', 'N', 'N', -1, 0, A, X, 1, INFO )
279         CALL CHKXER( 'STPTRS', INFOT, NOUT, LERR, OK )
280         INFOT = 5
281         CALL STPTRS( 'U', 'N', 'N', 0, -1, A, X, 1, INFO )
282         CALL CHKXER( 'STPTRS', INFOT, NOUT, LERR, OK )
283         INFOT = 8
284         CALL STPTRS( 'U', 'N', 'N', 2, 1, A, X, 1, INFO )
285         CALL CHKXER( 'STPTRS', INFOT, NOUT, LERR, OK )
286*
287*        STPRFS
288*
289         SRNAMT = 'STPRFS'
290         INFOT = 1
291         CALL STPRFS( '/', 'N', 'N', 0, 0, A, B, 1, X, 1, R1, R2, W, IW,
292     $                INFO )
293         CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK )
294         INFOT = 2
295         CALL STPRFS( 'U', '/', 'N', 0, 0, A, B, 1, X, 1, R1, R2, W, IW,
296     $                INFO )
297         CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK )
298         INFOT = 3
299         CALL STPRFS( 'U', 'N', '/', 0, 0, A, B, 1, X, 1, R1, R2, W, IW,
300     $                INFO )
301         CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK )
302         INFOT = 4
303         CALL STPRFS( 'U', 'N', 'N', -1, 0, A, B, 1, X, 1, R1, R2, W,
304     $                IW, INFO )
305         CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK )
306         INFOT = 5
307         CALL STPRFS( 'U', 'N', 'N', 0, -1, A, B, 1, X, 1, R1, R2, W,
308     $                IW, INFO )
309         CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK )
310         INFOT = 8
311         CALL STPRFS( 'U', 'N', 'N', 2, 1, A, B, 1, X, 2, R1, R2, W, IW,
312     $                INFO )
313         CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK )
314         INFOT = 10
315         CALL STPRFS( 'U', 'N', 'N', 2, 1, A, B, 2, X, 1, R1, R2, W, IW,
316     $                INFO )
317         CALL CHKXER( 'STPRFS', INFOT, NOUT, LERR, OK )
318*
319*        STPCON
320*
321         SRNAMT = 'STPCON'
322         INFOT = 1
323         CALL STPCON( '/', 'U', 'N', 0, A, RCOND, W, IW, INFO )
324         CALL CHKXER( 'STPCON', INFOT, NOUT, LERR, OK )
325         INFOT = 2
326         CALL STPCON( '1', '/', 'N', 0, A, RCOND, W, IW, INFO )
327         CALL CHKXER( 'STPCON', INFOT, NOUT, LERR, OK )
328         INFOT = 3
329         CALL STPCON( '1', 'U', '/', 0, A, RCOND, W, IW, INFO )
330         CALL CHKXER( 'STPCON', INFOT, NOUT, LERR, OK )
331         INFOT = 4
332         CALL STPCON( '1', 'U', 'N', -1, A, RCOND, W, IW, INFO )
333         CALL CHKXER( 'STPCON', INFOT, NOUT, LERR, OK )
334*
335*        SLATPS
336*
337         SRNAMT = 'SLATPS'
338         INFOT = 1
339         CALL SLATPS( '/', 'N', 'N', 'N', 0, A, X, SCALE, W, INFO )
340         CALL CHKXER( 'SLATPS', INFOT, NOUT, LERR, OK )
341         INFOT = 2
342         CALL SLATPS( 'U', '/', 'N', 'N', 0, A, X, SCALE, W, INFO )
343         CALL CHKXER( 'SLATPS', INFOT, NOUT, LERR, OK )
344         INFOT = 3
345         CALL SLATPS( 'U', 'N', '/', 'N', 0, A, X, SCALE, W, INFO )
346         CALL CHKXER( 'SLATPS', INFOT, NOUT, LERR, OK )
347         INFOT = 4
348         CALL SLATPS( 'U', 'N', 'N', '/', 0, A, X, SCALE, W, INFO )
349         CALL CHKXER( 'SLATPS', INFOT, NOUT, LERR, OK )
350         INFOT = 5
351         CALL SLATPS( 'U', 'N', 'N', 'N', -1, A, X, SCALE, W, INFO )
352         CALL CHKXER( 'SLATPS', 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*        STBTRS
359*
360         SRNAMT = 'STBTRS'
361         INFOT = 1
362         CALL STBTRS( '/', 'N', 'N', 0, 0, 0, A, 1, X, 1, INFO )
363         CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK )
364         INFOT = 2
365         CALL STBTRS( 'U', '/', 'N', 0, 0, 0, A, 1, X, 1, INFO )
366         CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK )
367         INFOT = 3
368         CALL STBTRS( 'U', 'N', '/', 0, 0, 0, A, 1, X, 1, INFO )
369         CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK )
370         INFOT = 4
371         CALL STBTRS( 'U', 'N', 'N', -1, 0, 0, A, 1, X, 1, INFO )
372         CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK )
373         INFOT = 5
374         CALL STBTRS( 'U', 'N', 'N', 0, -1, 0, A, 1, X, 1, INFO )
375         CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK )
376         INFOT = 6
377         CALL STBTRS( 'U', 'N', 'N', 0, 0, -1, A, 1, X, 1, INFO )
378         CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK )
379         INFOT = 8
380         CALL STBTRS( 'U', 'N', 'N', 2, 1, 1, A, 1, X, 2, INFO )
381         CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK )
382         INFOT = 10
383         CALL STBTRS( 'U', 'N', 'N', 2, 0, 1, A, 1, X, 1, INFO )
384         CALL CHKXER( 'STBTRS', INFOT, NOUT, LERR, OK )
385*
386*        STBRFS
387*
388         SRNAMT = 'STBRFS'
389         INFOT = 1
390         CALL STBRFS( '/', 'N', 'N', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2,
391     $                W, IW, INFO )
392         CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK )
393         INFOT = 2
394         CALL STBRFS( 'U', '/', 'N', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2,
395     $                W, IW, INFO )
396         CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK )
397         INFOT = 3
398         CALL STBRFS( 'U', 'N', '/', 0, 0, 0, A, 1, B, 1, X, 1, R1, R2,
399     $                W, IW, INFO )
400         CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK )
401         INFOT = 4
402         CALL STBRFS( 'U', 'N', 'N', -1, 0, 0, A, 1, B, 1, X, 1, R1, R2,
403     $                W, IW, INFO )
404         CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK )
405         INFOT = 5
406         CALL STBRFS( 'U', 'N', 'N', 0, -1, 0, A, 1, B, 1, X, 1, R1, R2,
407     $                W, IW, INFO )
408         CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK )
409         INFOT = 6
410         CALL STBRFS( 'U', 'N', 'N', 0, 0, -1, A, 1, B, 1, X, 1, R1, R2,
411     $                W, IW, INFO )
412         CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK )
413         INFOT = 8
414         CALL STBRFS( 'U', 'N', 'N', 2, 1, 1, A, 1, B, 2, X, 2, R1, R2,
415     $                W, IW, INFO )
416         CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK )
417         INFOT = 10
418         CALL STBRFS( 'U', 'N', 'N', 2, 1, 1, A, 2, B, 1, X, 2, R1, R2,
419     $                W, IW, INFO )
420         CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK )
421         INFOT = 12
422         CALL STBRFS( 'U', 'N', 'N', 2, 1, 1, A, 2, B, 2, X, 1, R1, R2,
423     $                W, IW, INFO )
424         CALL CHKXER( 'STBRFS', INFOT, NOUT, LERR, OK )
425*
426*        STBCON
427*
428         SRNAMT = 'STBCON'
429         INFOT = 1
430         CALL STBCON( '/', 'U', 'N', 0, 0, A, 1, RCOND, W, IW, INFO )
431         CALL CHKXER( 'STBCON', INFOT, NOUT, LERR, OK )
432         INFOT = 2
433         CALL STBCON( '1', '/', 'N', 0, 0, A, 1, RCOND, W, IW, INFO )
434         CALL CHKXER( 'STBCON', INFOT, NOUT, LERR, OK )
435         INFOT = 3
436         CALL STBCON( '1', 'U', '/', 0, 0, A, 1, RCOND, W, IW, INFO )
437         CALL CHKXER( 'STBCON', INFOT, NOUT, LERR, OK )
438         INFOT = 4
439         CALL STBCON( '1', 'U', 'N', -1, 0, A, 1, RCOND, W, IW, INFO )
440         CALL CHKXER( 'STBCON', INFOT, NOUT, LERR, OK )
441         INFOT = 5
442         CALL STBCON( '1', 'U', 'N', 0, -1, A, 1, RCOND, W, IW, INFO )
443         CALL CHKXER( 'STBCON', INFOT, NOUT, LERR, OK )
444         INFOT = 7
445         CALL STBCON( '1', 'U', 'N', 2, 1, A, 1, RCOND, W, IW, INFO )
446         CALL CHKXER( 'STBCON', INFOT, NOUT, LERR, OK )
447*
448*        SLATBS
449*
450         SRNAMT = 'SLATBS'
451         INFOT = 1
452         CALL SLATBS( '/', 'N', 'N', 'N', 0, 0, A, 1, X, SCALE, W,
453     $                INFO )
454         CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK )
455         INFOT = 2
456         CALL SLATBS( 'U', '/', 'N', 'N', 0, 0, A, 1, X, SCALE, W,
457     $                INFO )
458         CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK )
459         INFOT = 3
460         CALL SLATBS( 'U', 'N', '/', 'N', 0, 0, A, 1, X, SCALE, W,
461     $                INFO )
462         CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK )
463         INFOT = 4
464         CALL SLATBS( 'U', 'N', 'N', '/', 0, 0, A, 1, X, SCALE, W,
465     $                INFO )
466         CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK )
467         INFOT = 5
468         CALL SLATBS( 'U', 'N', 'N', 'N', -1, 0, A, 1, X, SCALE, W,
469     $                INFO )
470         CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK )
471         INFOT = 6
472         CALL SLATBS( 'U', 'N', 'N', 'N', 1, -1, A, 1, X, SCALE, W,
473     $                INFO )
474         CALL CHKXER( 'SLATBS', INFOT, NOUT, LERR, OK )
475         INFOT = 8
476         CALL SLATBS( 'U', 'N', 'N', 'N', 2, 1, A, 1, X, SCALE, W,
477     $                INFO )
478         CALL CHKXER( 'SLATBS', 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 SERRTR
488*
489      END
490