1 SUBROUTINE SERRRFP( NUNIT )
2 *
3 * -- LAPACK test routine (version 3.2.0) --
4 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
5 * November 2008
6 *
7 * .. Scalar Arguments ..
8 INTEGER NUNIT
9 * ..
10 *
11 * Purpose
12 * =======
13 *
14 * SERRRFP tests the error exits for the REAL driver routines
15 * for solving linear systems of equations.
16 *
17 * SDRVRFP tests the REAL LAPACK RFP routines:
18 * STFSM, STFTRI, SSFRK, STFTTP, STFTTR, SPFTRF, SPFTRS, STPTTF,
19 * STPTTR, STRTTF, and STRTTP
20 *
21 * Arguments
22 * =========
23 *
24 * NUNIT (input) INTEGER
25 * The unit number for output.
26 *
27 * =====================================================================
28 *
29 * ..
30 * .. Local Scalars ..
31 INTEGER INFO
32 REAL ALPHA, BETA
33 * ..
34 * .. Local Arrays ..
35 REAL A( 1, 1), B( 1, 1)
36 * ..
37 * .. External Subroutines ..
38 EXTERNAL CHKXER, STFSM, STFTRI, SSFRK, STFTTP, STFTTR,
39 + SPFTRI, SPFTRF, SPFTRS, STPTTF, STPTTR, STRTTF,
40 + STRTTP
41 * ..
42 * .. Scalars in Common ..
43 LOGICAL LERR, OK
44 CHARACTER*32 SRNAMT
45 INTEGER INFOT, NOUT
46 * ..
47 * .. Common blocks ..
48 COMMON / INFOC / INFOT, NOUT, OK, LERR
49 COMMON / SRNAMC / SRNAMT
50 * ..
51 * .. Executable Statements ..
52 *
53 NOUT = NUNIT
54 OK = .TRUE.
55 A( 1, 1 ) = 1.0E+0
56 B( 1, 1 ) = 1.0E+0
57 ALPHA = 1.0E+0
58 BETA = 1.0E+0
59 *
60 SRNAMT = 'SPFTRF'
61 INFOT = 1
62 CALL SPFTRF( '/', 'U', 0, A, INFO )
63 CALL CHKXER( 'SPFTRF', INFOT, NOUT, LERR, OK )
64 INFOT = 2
65 CALL SPFTRF( 'N', '/', 0, A, INFO )
66 CALL CHKXER( 'SPFTRF', INFOT, NOUT, LERR, OK )
67 INFOT = 3
68 CALL SPFTRF( 'N', 'U', -1, A, INFO )
69 CALL CHKXER( 'SPFTRF', INFOT, NOUT, LERR, OK )
70 *
71 SRNAMT = 'SPFTRS'
72 INFOT = 1
73 CALL SPFTRS( '/', 'U', 0, 0, A, B, 1, INFO )
74 CALL CHKXER( 'SPFTRS', INFOT, NOUT, LERR, OK )
75 INFOT = 2
76 CALL SPFTRS( 'N', '/', 0, 0, A, B, 1, INFO )
77 CALL CHKXER( 'SPFTRS', INFOT, NOUT, LERR, OK )
78 INFOT = 3
79 CALL SPFTRS( 'N', 'U', -1, 0, A, B, 1, INFO )
80 CALL CHKXER( 'SPFTRS', INFOT, NOUT, LERR, OK )
81 INFOT = 4
82 CALL SPFTRS( 'N', 'U', 0, -1, A, B, 1, INFO )
83 CALL CHKXER( 'SPFTRS', INFOT, NOUT, LERR, OK )
84 INFOT = 7
85 CALL SPFTRS( 'N', 'U', 0, 0, A, B, 0, INFO )
86 CALL CHKXER( 'SPFTRS', INFOT, NOUT, LERR, OK )
87 *
88 SRNAMT = 'SPFTRI'
89 INFOT = 1
90 CALL SPFTRI( '/', 'U', 0, A, INFO )
91 CALL CHKXER( 'SPFTRI', INFOT, NOUT, LERR, OK )
92 INFOT = 2
93 CALL SPFTRI( 'N', '/', 0, A, INFO )
94 CALL CHKXER( 'SPFTRI', INFOT, NOUT, LERR, OK )
95 INFOT = 3
96 CALL SPFTRI( 'N', 'U', -1, A, INFO )
97 CALL CHKXER( 'SPFTRI', INFOT, NOUT, LERR, OK )
98 *
99 SRNAMT = 'STFSM '
100 INFOT = 1
101 CALL STFSM( '/', 'L', 'U', 'T', 'U', 0, 0, ALPHA, A, B, 1 )
102 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
103 INFOT = 2
104 CALL STFSM( 'N', '/', 'U', 'T', 'U', 0, 0, ALPHA, A, B, 1 )
105 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
106 INFOT = 3
107 CALL STFSM( 'N', 'L', '/', 'T', 'U', 0, 0, ALPHA, A, B, 1 )
108 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
109 INFOT = 4
110 CALL STFSM( 'N', 'L', 'U', '/', 'U', 0, 0, ALPHA, A, B, 1 )
111 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
112 INFOT = 5
113 CALL STFSM( 'N', 'L', 'U', 'T', '/', 0, 0, ALPHA, A, B, 1 )
114 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
115 INFOT = 6
116 CALL STFSM( 'N', 'L', 'U', 'T', 'U', -1, 0, ALPHA, A, B, 1 )
117 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
118 INFOT = 7
119 CALL STFSM( 'N', 'L', 'U', 'T', 'U', 0, -1, ALPHA, A, B, 1 )
120 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
121 INFOT = 11
122 CALL STFSM( 'N', 'L', 'U', 'T', 'U', 0, 0, ALPHA, A, B, 0 )
123 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
124 *
125 SRNAMT = 'STFTRI'
126 INFOT = 1
127 CALL STFTRI( '/', 'L', 'N', 0, A, INFO )
128 CALL CHKXER( 'STFTRI', INFOT, NOUT, LERR, OK )
129 INFOT = 2
130 CALL STFTRI( 'N', '/', 'N', 0, A, INFO )
131 CALL CHKXER( 'STFTRI', INFOT, NOUT, LERR, OK )
132 INFOT = 3
133 CALL STFTRI( 'N', 'L', '/', 0, A, INFO )
134 CALL CHKXER( 'STFTRI', INFOT, NOUT, LERR, OK )
135 INFOT = 4
136 CALL STFTRI( 'N', 'L', 'N', -1, A, INFO )
137 CALL CHKXER( 'STFTRI', INFOT, NOUT, LERR, OK )
138 *
139 SRNAMT = 'STFTTR'
140 INFOT = 1
141 CALL STFTTR( '/', 'U', 0, A, B, 1, INFO )
142 CALL CHKXER( 'STFTTR', INFOT, NOUT, LERR, OK )
143 INFOT = 2
144 CALL STFTTR( 'N', '/', 0, A, B, 1, INFO )
145 CALL CHKXER( 'STFTTR', INFOT, NOUT, LERR, OK )
146 INFOT = 3
147 CALL STFTTR( 'N', 'U', -1, A, B, 1, INFO )
148 CALL CHKXER( 'STFTTR', INFOT, NOUT, LERR, OK )
149 INFOT = 6
150 CALL STFTTR( 'N', 'U', 0, A, B, 0, INFO )
151 CALL CHKXER( 'STFTTR', INFOT, NOUT, LERR, OK )
152 *
153 SRNAMT = 'STRTTF'
154 INFOT = 1
155 CALL STRTTF( '/', 'U', 0, A, 1, B, INFO )
156 CALL CHKXER( 'STRTTF', INFOT, NOUT, LERR, OK )
157 INFOT = 2
158 CALL STRTTF( 'N', '/', 0, A, 1, B, INFO )
159 CALL CHKXER( 'STRTTF', INFOT, NOUT, LERR, OK )
160 INFOT = 3
161 CALL STRTTF( 'N', 'U', -1, A, 1, B, INFO )
162 CALL CHKXER( 'STRTTF', INFOT, NOUT, LERR, OK )
163 INFOT = 5
164 CALL STRTTF( 'N', 'U', 0, A, 0, B, INFO )
165 CALL CHKXER( 'STRTTF', INFOT, NOUT, LERR, OK )
166 *
167 SRNAMT = 'STFTTP'
168 INFOT = 1
169 CALL STFTTP( '/', 'U', 0, A, B, INFO )
170 CALL CHKXER( 'STFTTP', INFOT, NOUT, LERR, OK )
171 INFOT = 2
172 CALL STFTTP( 'N', '/', 0, A, B, INFO )
173 CALL CHKXER( 'STFTTP', INFOT, NOUT, LERR, OK )
174 INFOT = 3
175 CALL STFTTP( 'N', 'U', -1, A, B, INFO )
176 CALL CHKXER( 'STFTTP', INFOT, NOUT, LERR, OK )
177 *
178 SRNAMT = 'STPTTF'
179 INFOT = 1
180 CALL STPTTF( '/', 'U', 0, A, B, INFO )
181 CALL CHKXER( 'STPTTF', INFOT, NOUT, LERR, OK )
182 INFOT = 2
183 CALL STPTTF( 'N', '/', 0, A, B, INFO )
184 CALL CHKXER( 'STPTTF', INFOT, NOUT, LERR, OK )
185 INFOT = 3
186 CALL STPTTF( 'N', 'U', -1, A, B, INFO )
187 CALL CHKXER( 'STPTTF', INFOT, NOUT, LERR, OK )
188 *
189 SRNAMT = 'STRTTP'
190 INFOT = 1
191 CALL STRTTP( '/', 0, A, 1, B, INFO )
192 CALL CHKXER( 'STRTTP', INFOT, NOUT, LERR, OK )
193 INFOT = 2
194 CALL STRTTP( 'U', -1, A, 1, B, INFO )
195 CALL CHKXER( 'STRTTP', INFOT, NOUT, LERR, OK )
196 INFOT = 4
197 CALL STRTTP( 'U', 0, A, 0, B, INFO )
198 CALL CHKXER( 'STRTTP', INFOT, NOUT, LERR, OK )
199 *
200 SRNAMT = 'STPTTR'
201 INFOT = 1
202 CALL STPTTR( '/', 0, A, B, 1, INFO )
203 CALL CHKXER( 'STPTTR', INFOT, NOUT, LERR, OK )
204 INFOT = 2
205 CALL STPTTR( 'U', -1, A, B, 1, INFO )
206 CALL CHKXER( 'STPTTR', INFOT, NOUT, LERR, OK )
207 INFOT = 5
208 CALL STPTTR( 'U', 0, A, B, 0, INFO )
209 CALL CHKXER( 'STPTTR', INFOT, NOUT, LERR, OK )
210 *
211 SRNAMT = 'SSFRK '
212 INFOT = 1
213 CALL SSFRK( '/', 'U', 'N', 0, 0, ALPHA, A, 1, BETA, B )
214 CALL CHKXER( 'SSFRK ', INFOT, NOUT, LERR, OK )
215 INFOT = 2
216 CALL SSFRK( 'N', '/', 'N', 0, 0, ALPHA, A, 1, BETA, B )
217 CALL CHKXER( 'SSFRK ', INFOT, NOUT, LERR, OK )
218 INFOT = 3
219 CALL SSFRK( 'N', 'U', '/', 0, 0, ALPHA, A, 1, BETA, B )
220 CALL CHKXER( 'SSFRK ', INFOT, NOUT, LERR, OK )
221 INFOT = 4
222 CALL SSFRK( 'N', 'U', 'N', -1, 0, ALPHA, A, 1, BETA, B )
223 CALL CHKXER( 'SSFRK ', INFOT, NOUT, LERR, OK )
224 INFOT = 5
225 CALL SSFRK( 'N', 'U', 'N', 0, -1, ALPHA, A, 1, BETA, B )
226 CALL CHKXER( 'SSFRK ', INFOT, NOUT, LERR, OK )
227 INFOT = 8
228 CALL SSFRK( 'N', 'U', 'N', 0, 0, ALPHA, A, 0, BETA, B )
229 CALL CHKXER( 'SSFRK ', INFOT, NOUT, LERR, OK )
230 *
231 * Print a summary line.
232 *
233 IF( OK ) THEN
234 WRITE( NOUT, FMT = 9999 )
235 ELSE
236 WRITE( NOUT, FMT = 9998 )
237 END IF
238 *
239 9999 FORMAT( 1X, 'REAL RFP routines passed the tests of ',
240 $ 'the error exits' )
241 9998 FORMAT( ' *** RFP routines failed the tests of the error ',
242 $ 'exits ***' )
243 RETURN
244 *
245 * End of SERRRFP
246 *
247 END
2 *
3 * -- LAPACK test routine (version 3.2.0) --
4 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
5 * November 2008
6 *
7 * .. Scalar Arguments ..
8 INTEGER NUNIT
9 * ..
10 *
11 * Purpose
12 * =======
13 *
14 * SERRRFP tests the error exits for the REAL driver routines
15 * for solving linear systems of equations.
16 *
17 * SDRVRFP tests the REAL LAPACK RFP routines:
18 * STFSM, STFTRI, SSFRK, STFTTP, STFTTR, SPFTRF, SPFTRS, STPTTF,
19 * STPTTR, STRTTF, and STRTTP
20 *
21 * Arguments
22 * =========
23 *
24 * NUNIT (input) INTEGER
25 * The unit number for output.
26 *
27 * =====================================================================
28 *
29 * ..
30 * .. Local Scalars ..
31 INTEGER INFO
32 REAL ALPHA, BETA
33 * ..
34 * .. Local Arrays ..
35 REAL A( 1, 1), B( 1, 1)
36 * ..
37 * .. External Subroutines ..
38 EXTERNAL CHKXER, STFSM, STFTRI, SSFRK, STFTTP, STFTTR,
39 + SPFTRI, SPFTRF, SPFTRS, STPTTF, STPTTR, STRTTF,
40 + STRTTP
41 * ..
42 * .. Scalars in Common ..
43 LOGICAL LERR, OK
44 CHARACTER*32 SRNAMT
45 INTEGER INFOT, NOUT
46 * ..
47 * .. Common blocks ..
48 COMMON / INFOC / INFOT, NOUT, OK, LERR
49 COMMON / SRNAMC / SRNAMT
50 * ..
51 * .. Executable Statements ..
52 *
53 NOUT = NUNIT
54 OK = .TRUE.
55 A( 1, 1 ) = 1.0E+0
56 B( 1, 1 ) = 1.0E+0
57 ALPHA = 1.0E+0
58 BETA = 1.0E+0
59 *
60 SRNAMT = 'SPFTRF'
61 INFOT = 1
62 CALL SPFTRF( '/', 'U', 0, A, INFO )
63 CALL CHKXER( 'SPFTRF', INFOT, NOUT, LERR, OK )
64 INFOT = 2
65 CALL SPFTRF( 'N', '/', 0, A, INFO )
66 CALL CHKXER( 'SPFTRF', INFOT, NOUT, LERR, OK )
67 INFOT = 3
68 CALL SPFTRF( 'N', 'U', -1, A, INFO )
69 CALL CHKXER( 'SPFTRF', INFOT, NOUT, LERR, OK )
70 *
71 SRNAMT = 'SPFTRS'
72 INFOT = 1
73 CALL SPFTRS( '/', 'U', 0, 0, A, B, 1, INFO )
74 CALL CHKXER( 'SPFTRS', INFOT, NOUT, LERR, OK )
75 INFOT = 2
76 CALL SPFTRS( 'N', '/', 0, 0, A, B, 1, INFO )
77 CALL CHKXER( 'SPFTRS', INFOT, NOUT, LERR, OK )
78 INFOT = 3
79 CALL SPFTRS( 'N', 'U', -1, 0, A, B, 1, INFO )
80 CALL CHKXER( 'SPFTRS', INFOT, NOUT, LERR, OK )
81 INFOT = 4
82 CALL SPFTRS( 'N', 'U', 0, -1, A, B, 1, INFO )
83 CALL CHKXER( 'SPFTRS', INFOT, NOUT, LERR, OK )
84 INFOT = 7
85 CALL SPFTRS( 'N', 'U', 0, 0, A, B, 0, INFO )
86 CALL CHKXER( 'SPFTRS', INFOT, NOUT, LERR, OK )
87 *
88 SRNAMT = 'SPFTRI'
89 INFOT = 1
90 CALL SPFTRI( '/', 'U', 0, A, INFO )
91 CALL CHKXER( 'SPFTRI', INFOT, NOUT, LERR, OK )
92 INFOT = 2
93 CALL SPFTRI( 'N', '/', 0, A, INFO )
94 CALL CHKXER( 'SPFTRI', INFOT, NOUT, LERR, OK )
95 INFOT = 3
96 CALL SPFTRI( 'N', 'U', -1, A, INFO )
97 CALL CHKXER( 'SPFTRI', INFOT, NOUT, LERR, OK )
98 *
99 SRNAMT = 'STFSM '
100 INFOT = 1
101 CALL STFSM( '/', 'L', 'U', 'T', 'U', 0, 0, ALPHA, A, B, 1 )
102 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
103 INFOT = 2
104 CALL STFSM( 'N', '/', 'U', 'T', 'U', 0, 0, ALPHA, A, B, 1 )
105 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
106 INFOT = 3
107 CALL STFSM( 'N', 'L', '/', 'T', 'U', 0, 0, ALPHA, A, B, 1 )
108 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
109 INFOT = 4
110 CALL STFSM( 'N', 'L', 'U', '/', 'U', 0, 0, ALPHA, A, B, 1 )
111 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
112 INFOT = 5
113 CALL STFSM( 'N', 'L', 'U', 'T', '/', 0, 0, ALPHA, A, B, 1 )
114 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
115 INFOT = 6
116 CALL STFSM( 'N', 'L', 'U', 'T', 'U', -1, 0, ALPHA, A, B, 1 )
117 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
118 INFOT = 7
119 CALL STFSM( 'N', 'L', 'U', 'T', 'U', 0, -1, ALPHA, A, B, 1 )
120 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
121 INFOT = 11
122 CALL STFSM( 'N', 'L', 'U', 'T', 'U', 0, 0, ALPHA, A, B, 0 )
123 CALL CHKXER( 'STFSM ', INFOT, NOUT, LERR, OK )
124 *
125 SRNAMT = 'STFTRI'
126 INFOT = 1
127 CALL STFTRI( '/', 'L', 'N', 0, A, INFO )
128 CALL CHKXER( 'STFTRI', INFOT, NOUT, LERR, OK )
129 INFOT = 2
130 CALL STFTRI( 'N', '/', 'N', 0, A, INFO )
131 CALL CHKXER( 'STFTRI', INFOT, NOUT, LERR, OK )
132 INFOT = 3
133 CALL STFTRI( 'N', 'L', '/', 0, A, INFO )
134 CALL CHKXER( 'STFTRI', INFOT, NOUT, LERR, OK )
135 INFOT = 4
136 CALL STFTRI( 'N', 'L', 'N', -1, A, INFO )
137 CALL CHKXER( 'STFTRI', INFOT, NOUT, LERR, OK )
138 *
139 SRNAMT = 'STFTTR'
140 INFOT = 1
141 CALL STFTTR( '/', 'U', 0, A, B, 1, INFO )
142 CALL CHKXER( 'STFTTR', INFOT, NOUT, LERR, OK )
143 INFOT = 2
144 CALL STFTTR( 'N', '/', 0, A, B, 1, INFO )
145 CALL CHKXER( 'STFTTR', INFOT, NOUT, LERR, OK )
146 INFOT = 3
147 CALL STFTTR( 'N', 'U', -1, A, B, 1, INFO )
148 CALL CHKXER( 'STFTTR', INFOT, NOUT, LERR, OK )
149 INFOT = 6
150 CALL STFTTR( 'N', 'U', 0, A, B, 0, INFO )
151 CALL CHKXER( 'STFTTR', INFOT, NOUT, LERR, OK )
152 *
153 SRNAMT = 'STRTTF'
154 INFOT = 1
155 CALL STRTTF( '/', 'U', 0, A, 1, B, INFO )
156 CALL CHKXER( 'STRTTF', INFOT, NOUT, LERR, OK )
157 INFOT = 2
158 CALL STRTTF( 'N', '/', 0, A, 1, B, INFO )
159 CALL CHKXER( 'STRTTF', INFOT, NOUT, LERR, OK )
160 INFOT = 3
161 CALL STRTTF( 'N', 'U', -1, A, 1, B, INFO )
162 CALL CHKXER( 'STRTTF', INFOT, NOUT, LERR, OK )
163 INFOT = 5
164 CALL STRTTF( 'N', 'U', 0, A, 0, B, INFO )
165 CALL CHKXER( 'STRTTF', INFOT, NOUT, LERR, OK )
166 *
167 SRNAMT = 'STFTTP'
168 INFOT = 1
169 CALL STFTTP( '/', 'U', 0, A, B, INFO )
170 CALL CHKXER( 'STFTTP', INFOT, NOUT, LERR, OK )
171 INFOT = 2
172 CALL STFTTP( 'N', '/', 0, A, B, INFO )
173 CALL CHKXER( 'STFTTP', INFOT, NOUT, LERR, OK )
174 INFOT = 3
175 CALL STFTTP( 'N', 'U', -1, A, B, INFO )
176 CALL CHKXER( 'STFTTP', INFOT, NOUT, LERR, OK )
177 *
178 SRNAMT = 'STPTTF'
179 INFOT = 1
180 CALL STPTTF( '/', 'U', 0, A, B, INFO )
181 CALL CHKXER( 'STPTTF', INFOT, NOUT, LERR, OK )
182 INFOT = 2
183 CALL STPTTF( 'N', '/', 0, A, B, INFO )
184 CALL CHKXER( 'STPTTF', INFOT, NOUT, LERR, OK )
185 INFOT = 3
186 CALL STPTTF( 'N', 'U', -1, A, B, INFO )
187 CALL CHKXER( 'STPTTF', INFOT, NOUT, LERR, OK )
188 *
189 SRNAMT = 'STRTTP'
190 INFOT = 1
191 CALL STRTTP( '/', 0, A, 1, B, INFO )
192 CALL CHKXER( 'STRTTP', INFOT, NOUT, LERR, OK )
193 INFOT = 2
194 CALL STRTTP( 'U', -1, A, 1, B, INFO )
195 CALL CHKXER( 'STRTTP', INFOT, NOUT, LERR, OK )
196 INFOT = 4
197 CALL STRTTP( 'U', 0, A, 0, B, INFO )
198 CALL CHKXER( 'STRTTP', INFOT, NOUT, LERR, OK )
199 *
200 SRNAMT = 'STPTTR'
201 INFOT = 1
202 CALL STPTTR( '/', 0, A, B, 1, INFO )
203 CALL CHKXER( 'STPTTR', INFOT, NOUT, LERR, OK )
204 INFOT = 2
205 CALL STPTTR( 'U', -1, A, B, 1, INFO )
206 CALL CHKXER( 'STPTTR', INFOT, NOUT, LERR, OK )
207 INFOT = 5
208 CALL STPTTR( 'U', 0, A, B, 0, INFO )
209 CALL CHKXER( 'STPTTR', INFOT, NOUT, LERR, OK )
210 *
211 SRNAMT = 'SSFRK '
212 INFOT = 1
213 CALL SSFRK( '/', 'U', 'N', 0, 0, ALPHA, A, 1, BETA, B )
214 CALL CHKXER( 'SSFRK ', INFOT, NOUT, LERR, OK )
215 INFOT = 2
216 CALL SSFRK( 'N', '/', 'N', 0, 0, ALPHA, A, 1, BETA, B )
217 CALL CHKXER( 'SSFRK ', INFOT, NOUT, LERR, OK )
218 INFOT = 3
219 CALL SSFRK( 'N', 'U', '/', 0, 0, ALPHA, A, 1, BETA, B )
220 CALL CHKXER( 'SSFRK ', INFOT, NOUT, LERR, OK )
221 INFOT = 4
222 CALL SSFRK( 'N', 'U', 'N', -1, 0, ALPHA, A, 1, BETA, B )
223 CALL CHKXER( 'SSFRK ', INFOT, NOUT, LERR, OK )
224 INFOT = 5
225 CALL SSFRK( 'N', 'U', 'N', 0, -1, ALPHA, A, 1, BETA, B )
226 CALL CHKXER( 'SSFRK ', INFOT, NOUT, LERR, OK )
227 INFOT = 8
228 CALL SSFRK( 'N', 'U', 'N', 0, 0, ALPHA, A, 0, BETA, B )
229 CALL CHKXER( 'SSFRK ', INFOT, NOUT, LERR, OK )
230 *
231 * Print a summary line.
232 *
233 IF( OK ) THEN
234 WRITE( NOUT, FMT = 9999 )
235 ELSE
236 WRITE( NOUT, FMT = 9998 )
237 END IF
238 *
239 9999 FORMAT( 1X, 'REAL RFP routines passed the tests of ',
240 $ 'the error exits' )
241 9998 FORMAT( ' *** RFP routines failed the tests of the error ',
242 $ 'exits ***' )
243 RETURN
244 *
245 * End of SERRRFP
246 *
247 END