Lines Matching +full:0 +full:- +full:beta
22 cblas_ok = 0 ; in chkxer()
32 ALPHA=0.0, BETA=0.0; in F77_s3chke() local
46 if (strncmp( sf,"cblas_sgemm" ,11)==0) { in F77_s3chke()
49 cblas_sgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, in F77_s3chke()
50 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
53 cblas_sgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, in F77_s3chke()
54 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
57 cblas_sgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, in F77_s3chke()
58 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
61 cblas_sgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0, in F77_s3chke()
62 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
65 cblas_sgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0, in F77_s3chke()
66 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
69 cblas_sgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0, in F77_s3chke()
70 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
73 cblas_sgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, in F77_s3chke()
74 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
77 cblas_sgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0, in F77_s3chke()
78 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
81 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, in F77_s3chke()
82 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
85 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, in F77_s3chke()
86 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
89 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, in F77_s3chke()
90 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
93 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0, in F77_s3chke()
94 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
97 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, in F77_s3chke()
98 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
101 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, in F77_s3chke()
102 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
105 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, in F77_s3chke()
106 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
109 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0, in F77_s3chke()
110 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
113 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, in F77_s3chke()
114 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
117 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, in F77_s3chke()
118 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
121 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, in F77_s3chke()
122 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
125 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID, in F77_s3chke()
126 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
129 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, in F77_s3chke()
130 ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_s3chke()
133 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, in F77_s3chke()
134 ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_s3chke()
137 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, in F77_s3chke()
138 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_s3chke()
141 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2, in F77_s3chke()
142 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
145 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, in F77_s3chke()
146 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
149 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, in F77_s3chke()
150 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
153 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0, in F77_s3chke()
154 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
157 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0, in F77_s3chke()
158 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
161 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, in F77_s3chke()
162 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
165 cblas_sgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, in F77_s3chke()
166 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
169 cblas_sgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0, in F77_s3chke()
170 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
173 cblas_sgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0, in F77_s3chke()
174 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
178 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, in F77_s3chke()
179 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
182 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, in F77_s3chke()
183 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
186 cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, in F77_s3chke()
187 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
190 cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0, in F77_s3chke()
191 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
194 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, in F77_s3chke()
195 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
198 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, in F77_s3chke()
199 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
202 cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, in F77_s3chke()
203 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
206 cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0, in F77_s3chke()
207 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
210 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, in F77_s3chke()
211 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
214 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, in F77_s3chke()
215 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
218 cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, in F77_s3chke()
219 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
222 cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID, in F77_s3chke()
223 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
226 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, in F77_s3chke()
227 ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_s3chke()
230 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, in F77_s3chke()
231 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_s3chke()
234 cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0, in F77_s3chke()
235 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_s3chke()
238 cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0, in F77_s3chke()
239 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
242 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, in F77_s3chke()
243 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
246 cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, in F77_s3chke()
247 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
250 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, in F77_s3chke()
251 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
254 cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2, in F77_s3chke()
255 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
258 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, in F77_s3chke()
259 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_s3chke()
262 cblas_sgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0, in F77_s3chke()
263 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
266 cblas_sgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, in F77_s3chke()
267 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_s3chke()
270 cblas_sgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, in F77_s3chke()
271 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
274 } else if (strncmp( sf,"cblas_ssymm" ,11)==0) { in F77_s3chke()
278 cblas_ssymm( INVALID, CblasRight, CblasLower, 0, 0, in F77_s3chke()
279 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
282 cblas_ssymm( CblasColMajor, INVALID, CblasUpper, 0, 0, in F77_s3chke()
283 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
286 cblas_ssymm( CblasColMajor, CblasLeft, INVALID, 0, 0, in F77_s3chke()
287 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
290 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, in F77_s3chke()
291 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
294 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, in F77_s3chke()
295 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
298 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, in F77_s3chke()
299 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
302 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0, in F77_s3chke()
303 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
306 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, in F77_s3chke()
307 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
310 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, in F77_s3chke()
311 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
314 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, in F77_s3chke()
315 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
318 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID, in F77_s3chke()
319 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
322 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, in F77_s3chke()
323 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_s3chke()
326 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 0, 2, in F77_s3chke()
327 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
330 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, in F77_s3chke()
331 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_s3chke()
334 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 0, 2, in F77_s3chke()
335 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
338 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, in F77_s3chke()
339 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
342 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, in F77_s3chke()
343 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
346 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, in F77_s3chke()
347 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
350 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 2, 0, in F77_s3chke()
351 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
354 cblas_ssymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, in F77_s3chke()
355 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_s3chke()
358 cblas_ssymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, in F77_s3chke()
359 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_s3chke()
362 cblas_ssymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, in F77_s3chke()
363 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_s3chke()
366 cblas_ssymm( CblasColMajor, CblasRight, CblasLower, 2, 0, in F77_s3chke()
367 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_s3chke()
371 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, in F77_s3chke()
372 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
375 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, in F77_s3chke()
376 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
379 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, in F77_s3chke()
380 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
383 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, in F77_s3chke()
384 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
387 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, in F77_s3chke()
388 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
391 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, in F77_s3chke()
392 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
395 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, in F77_s3chke()
396 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
399 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, in F77_s3chke()
400 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
403 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, in F77_s3chke()
404 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_s3chke()
407 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, in F77_s3chke()
408 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
411 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0, in F77_s3chke()
412 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_s3chke()
415 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, in F77_s3chke()
416 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
419 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, in F77_s3chke()
420 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
423 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, in F77_s3chke()
424 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
427 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, in F77_s3chke()
428 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
431 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, in F77_s3chke()
432 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
435 cblas_ssymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, in F77_s3chke()
436 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_s3chke()
439 cblas_ssymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, in F77_s3chke()
440 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_s3chke()
443 cblas_ssymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, in F77_s3chke()
444 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_s3chke()
447 cblas_ssymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, in F77_s3chke()
448 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_s3chke()
451 } else if (strncmp( sf,"cblas_strmm" ,11)==0) { in F77_s3chke()
456 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
460 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
464 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
468 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
472 INVALID, 0, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
476 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
480 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
484 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
488 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
492 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
496 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
500 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
504 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
508 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
512 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
516 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
520 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
524 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
528 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
532 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
536 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
540 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_s3chke()
544 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_s3chke()
548 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
552 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
556 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_s3chke()
560 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_s3chke()
564 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
568 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
572 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_s3chke()
576 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_s3chke()
580 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
584 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
588 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_s3chke()
592 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_s3chke()
596 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
600 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
605 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
609 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
613 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
617 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
621 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
625 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
629 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
633 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
637 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
641 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
645 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
649 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
653 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
657 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
661 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
665 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
669 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
673 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
677 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_s3chke()
681 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_s3chke()
685 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
689 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
693 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_s3chke()
697 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_s3chke()
701 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
705 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
709 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_s3chke()
713 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_s3chke()
717 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
721 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
725 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_s3chke()
729 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_s3chke()
732 } else if (strncmp( sf,"cblas_strsm" ,11)==0) { in F77_s3chke()
737 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
741 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
745 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
749 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
753 INVALID, 0, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
757 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
761 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
765 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
769 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
773 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
777 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
781 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
785 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
789 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
793 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
797 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
801 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
805 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
809 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
813 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
817 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
821 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_s3chke()
825 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_s3chke()
829 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
833 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
837 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_s3chke()
841 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_s3chke()
845 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
849 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
853 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_s3chke()
857 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_s3chke()
861 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
865 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
869 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_s3chke()
873 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_s3chke()
877 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
881 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
886 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
890 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
894 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
898 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
902 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
906 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
910 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
914 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
918 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
922 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
926 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
930 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
934 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
938 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
942 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
946 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_s3chke()
950 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
954 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
958 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_s3chke()
962 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_s3chke()
966 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
970 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_s3chke()
974 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_s3chke()
978 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_s3chke()
982 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
986 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
990 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_s3chke()
994 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_s3chke()
998 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
1002 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_s3chke()
1006 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_s3chke()
1010 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_s3chke()
1013 } else if (strncmp( sf,"cblas_ssyrk" ,11)==0) { in F77_s3chke()
1018 0, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1022 0, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1026 0, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1030 INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1034 INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1038 INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1042 INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1046 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1050 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1054 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1058 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1062 0, 2, ALPHA, A, 1, BETA, C, 2 ); in F77_s3chke()
1066 2, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1070 0, 2, ALPHA, A, 1, BETA, C, 2 ); in F77_s3chke()
1074 2, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1078 2, 0, ALPHA, A, 1, BETA, C, 2 ); in F77_s3chke()
1082 0, 2, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1086 2, 0, ALPHA, A, 1, BETA, C, 2 ); in F77_s3chke()
1090 0, 2, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1094 2, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1098 2, 0, ALPHA, A, 2, BETA, C, 1 ); in F77_s3chke()
1102 2, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1106 2, 0, ALPHA, A, 2, BETA, C, 1 ); in F77_s3chke()
1110 2, 0, ALPHA, A, 2, BETA, C, 1 ); in F77_s3chke()
1114 2, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1118 2, 0, ALPHA, A, 2, BETA, C, 1 ); in F77_s3chke()
1122 2, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_s3chke()
1125 } else if (strncmp( sf,"cblas_ssyr2k" ,12)==0) { in F77_s3chke()
1130 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1134 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1138 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1142 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1146 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1150 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1154 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1158 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1162 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1166 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1170 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1174 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_s3chke()
1178 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_s3chke()
1182 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_s3chke()
1186 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_s3chke()
1190 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_s3chke()
1194 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1198 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_s3chke()
1202 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1206 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); in F77_s3chke()
1210 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
1214 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); in F77_s3chke()
1218 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
1222 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); in F77_s3chke()
1226 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
1230 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); in F77_s3chke()
1234 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_s3chke()
1238 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1242 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_s3chke()
1246 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1250 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_s3chke()
1254 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_s3chke()
1258 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1262 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_s3chke()
1266 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_s3chke()
1270 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); in F77_s3chke()
1272 printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout); in F77_s3chke()