Lines Matching +full:0 +full:- +full:beta
22 cblas_ok = 0 ; in chkxer()
32 ALPHA=0.0, BETA=0.0; in F77_d3chke() local
46 if (strncmp( sf,"cblas_dgemm" ,11)==0) { in F77_d3chke()
50 cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, in F77_d3chke()
51 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
54 cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, in F77_d3chke()
55 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
58 cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, in F77_d3chke()
59 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
62 cblas_dgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0, in F77_d3chke()
63 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
66 cblas_dgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0, in F77_d3chke()
67 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
70 cblas_dgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0, in F77_d3chke()
71 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
74 cblas_dgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, in F77_d3chke()
75 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
78 cblas_dgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0, in F77_d3chke()
79 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
82 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, in F77_d3chke()
83 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
86 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, in F77_d3chke()
87 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
90 cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, in F77_d3chke()
91 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
94 cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0, in F77_d3chke()
95 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
98 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, in F77_d3chke()
99 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
102 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, in F77_d3chke()
103 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
106 cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, in F77_d3chke()
107 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
110 cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0, in F77_d3chke()
111 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
114 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, in F77_d3chke()
115 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
118 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, in F77_d3chke()
119 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
122 cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, in F77_d3chke()
123 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
126 cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID, in F77_d3chke()
127 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
130 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, in F77_d3chke()
131 ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_d3chke()
134 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, in F77_d3chke()
135 ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_d3chke()
138 cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, in F77_d3chke()
139 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_d3chke()
142 cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2, in F77_d3chke()
143 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
146 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, in F77_d3chke()
147 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
150 cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, in F77_d3chke()
151 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
154 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0, in F77_d3chke()
155 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
158 cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0, in F77_d3chke()
159 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
162 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, in F77_d3chke()
163 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
166 cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, in F77_d3chke()
167 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
170 cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0, in F77_d3chke()
171 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
174 cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0, in F77_d3chke()
175 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
178 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, in F77_d3chke()
179 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
182 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, in F77_d3chke()
183 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
186 cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, in F77_d3chke()
187 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
190 cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0, in F77_d3chke()
191 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
194 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, in F77_d3chke()
195 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
198 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, in F77_d3chke()
199 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
202 cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, in F77_d3chke()
203 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
206 cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0, in F77_d3chke()
207 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
210 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, in F77_d3chke()
211 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
214 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, in F77_d3chke()
215 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
218 cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, in F77_d3chke()
219 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
222 cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID, in F77_d3chke()
223 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
226 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, in F77_d3chke()
227 ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_d3chke()
230 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, in F77_d3chke()
231 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_d3chke()
234 cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0, in F77_d3chke()
235 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_d3chke()
238 cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0, in F77_d3chke()
239 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
242 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, in F77_d3chke()
243 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
246 cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, in F77_d3chke()
247 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
250 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, in F77_d3chke()
251 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
254 cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2, in F77_d3chke()
255 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
258 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, in F77_d3chke()
259 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_d3chke()
262 cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0, in F77_d3chke()
263 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
266 cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, in F77_d3chke()
267 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_d3chke()
270 cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, in F77_d3chke()
271 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
274 } else if (strncmp( sf,"cblas_dsymm" ,11)==0) { in F77_d3chke()
278 cblas_dsymm( INVALID, CblasRight, CblasLower, 0, 0, in F77_d3chke()
279 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
282 cblas_dsymm( CblasColMajor, INVALID, CblasUpper, 0, 0, in F77_d3chke()
283 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
286 cblas_dsymm( CblasColMajor, CblasLeft, INVALID, 0, 0, in F77_d3chke()
287 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
290 cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, in F77_d3chke()
291 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
294 cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, in F77_d3chke()
295 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
298 cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, in F77_d3chke()
299 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
302 cblas_dsymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0, in F77_d3chke()
303 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
306 cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, in F77_d3chke()
307 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
310 cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, in F77_d3chke()
311 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
314 cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, in F77_d3chke()
315 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
318 cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID, in F77_d3chke()
319 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
322 cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, in F77_d3chke()
323 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_d3chke()
326 cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 0, 2, in F77_d3chke()
327 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
330 cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, in F77_d3chke()
331 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_d3chke()
334 cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 0, 2, in F77_d3chke()
335 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
338 cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, in F77_d3chke()
339 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
342 cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, in F77_d3chke()
343 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
346 cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, in F77_d3chke()
347 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
350 cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 2, 0, in F77_d3chke()
351 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
354 cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, in F77_d3chke()
355 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_d3chke()
358 cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, in F77_d3chke()
359 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_d3chke()
362 cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, in F77_d3chke()
363 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_d3chke()
366 cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 2, 0, in F77_d3chke()
367 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_d3chke()
370 cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, in F77_d3chke()
371 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
374 cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, in F77_d3chke()
375 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
378 cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, in F77_d3chke()
379 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
382 cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, in F77_d3chke()
383 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
386 cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, in F77_d3chke()
387 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
390 cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, in F77_d3chke()
391 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
394 cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, in F77_d3chke()
395 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
398 cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, in F77_d3chke()
399 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
402 cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, in F77_d3chke()
403 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_d3chke()
406 cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, in F77_d3chke()
407 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
410 cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0, in F77_d3chke()
411 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_d3chke()
414 cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, in F77_d3chke()
415 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
418 cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, in F77_d3chke()
419 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
422 cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, in F77_d3chke()
423 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
426 cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, in F77_d3chke()
427 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
430 cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, in F77_d3chke()
431 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
434 cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, in F77_d3chke()
435 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_d3chke()
438 cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, in F77_d3chke()
439 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_d3chke()
442 cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, in F77_d3chke()
443 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_d3chke()
446 cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, in F77_d3chke()
447 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_d3chke()
450 } else if (strncmp( sf,"cblas_dtrmm" ,11)==0) { in F77_d3chke()
455 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
459 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
463 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
467 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
471 INVALID, 0, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
475 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
479 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
483 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
487 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
491 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
495 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
499 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
503 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
507 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
511 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
515 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
519 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
523 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
527 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
531 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
535 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
539 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_d3chke()
543 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_d3chke()
547 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
551 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
555 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_d3chke()
559 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_d3chke()
563 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
567 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
571 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_d3chke()
575 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_d3chke()
579 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
583 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
587 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_d3chke()
591 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_d3chke()
595 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
599 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
603 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
607 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
611 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
615 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
619 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
623 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
627 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
631 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
635 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
639 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
643 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
647 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
651 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
655 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
659 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
663 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
667 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
671 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
675 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_d3chke()
679 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_d3chke()
683 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
687 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
691 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_d3chke()
695 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_d3chke()
699 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
703 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
707 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_d3chke()
711 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_d3chke()
715 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
719 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
723 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_d3chke()
727 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_d3chke()
730 } else if (strncmp( sf,"cblas_dtrsm" ,11)==0) { in F77_d3chke()
735 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
739 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
743 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
747 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
751 INVALID, 0, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
755 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
759 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
763 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
767 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
771 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
775 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
779 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
783 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
787 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
791 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
795 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
799 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
803 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
807 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
811 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
815 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
819 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_d3chke()
823 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_d3chke()
827 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
831 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
835 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_d3chke()
839 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_d3chke()
843 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
847 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
851 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_d3chke()
855 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_d3chke()
859 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
863 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
867 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_d3chke()
871 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_d3chke()
875 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
879 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
884 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
888 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
892 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
896 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
900 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
904 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
908 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
912 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
916 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
920 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
924 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
928 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
932 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
936 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
940 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
944 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_d3chke()
948 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
952 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
956 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_d3chke()
960 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_d3chke()
964 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
968 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_d3chke()
972 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_d3chke()
976 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_d3chke()
980 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
984 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
988 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_d3chke()
992 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_d3chke()
996 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
1000 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_d3chke()
1004 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_d3chke()
1008 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_d3chke()
1011 } else if (strncmp( sf,"cblas_dsyrk" ,11)==0) { in F77_d3chke()
1016 0, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1020 0, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1024 0, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1028 INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1032 INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1036 INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1040 INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1044 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1048 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1052 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1056 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1060 0, 2, ALPHA, A, 1, BETA, C, 2 ); in F77_d3chke()
1064 2, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1068 0, 2, ALPHA, A, 1, BETA, C, 2 ); in F77_d3chke()
1072 2, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1076 2, 0, ALPHA, A, 1, BETA, C, 2 ); in F77_d3chke()
1080 0, 2, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1084 2, 0, ALPHA, A, 1, BETA, C, 2 ); in F77_d3chke()
1088 0, 2, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1092 2, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1096 2, 0, ALPHA, A, 2, BETA, C, 1 ); in F77_d3chke()
1100 2, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1104 2, 0, ALPHA, A, 2, BETA, C, 1 ); in F77_d3chke()
1108 2, 0, ALPHA, A, 2, BETA, C, 1 ); in F77_d3chke()
1112 2, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1116 2, 0, ALPHA, A, 2, BETA, C, 1 ); in F77_d3chke()
1120 2, 0, ALPHA, A, 1, BETA, C, 1 ); in F77_d3chke()
1123 } else if (strncmp( sf,"cblas_dsyr2k" ,12)==0) { in F77_d3chke()
1128 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1132 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1136 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1140 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1144 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1148 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1152 INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1156 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1160 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1164 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1168 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1172 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_d3chke()
1176 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_d3chke()
1180 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_d3chke()
1184 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_d3chke()
1188 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_d3chke()
1192 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1196 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_d3chke()
1200 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1204 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); in F77_d3chke()
1208 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
1212 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); in F77_d3chke()
1216 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
1220 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); in F77_d3chke()
1224 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
1228 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); in F77_d3chke()
1232 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_d3chke()
1236 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1240 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_d3chke()
1244 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1248 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_d3chke()
1252 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_d3chke()
1256 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1260 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_d3chke()
1264 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_d3chke()
1268 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); in F77_d3chke()
1270 printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout); in F77_d3chke()