Lines Matching +full:0 +full:- +full:beta
22 cblas_ok = 0 ; in chkxer()
33 BETA[2] = {0.0,0.0}, in F77_c3chke() local
48 if (strncmp( sf,"cblas_cgemm" ,11)==0) { in F77_c3chke()
52 cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, in F77_c3chke()
53 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
56 cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, in F77_c3chke()
57 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
60 cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, in F77_c3chke()
61 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
64 cblas_cgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0, in F77_c3chke()
65 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
68 cblas_cgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0, in F77_c3chke()
69 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
72 cblas_cgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0, in F77_c3chke()
73 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
76 cblas_cgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, in F77_c3chke()
77 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
80 cblas_cgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0, in F77_c3chke()
81 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
84 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, in F77_c3chke()
85 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
88 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, in F77_c3chke()
89 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
92 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, in F77_c3chke()
93 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
96 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0, in F77_c3chke()
97 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
100 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, in F77_c3chke()
101 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
104 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, in F77_c3chke()
105 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
108 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, in F77_c3chke()
109 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
112 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0, in F77_c3chke()
113 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
116 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, in F77_c3chke()
117 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
120 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, in F77_c3chke()
121 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
124 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, in F77_c3chke()
125 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
128 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID, in F77_c3chke()
129 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
132 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, in F77_c3chke()
133 ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_c3chke()
136 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, in F77_c3chke()
137 ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_c3chke()
140 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, in F77_c3chke()
141 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
144 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2, in F77_c3chke()
145 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
148 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, in F77_c3chke()
149 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
152 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, in F77_c3chke()
153 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
156 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0, in F77_c3chke()
157 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
160 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0, in F77_c3chke()
161 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
164 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, in F77_c3chke()
165 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
168 cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, in F77_c3chke()
169 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
172 cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0, in F77_c3chke()
173 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
176 cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0, in F77_c3chke()
177 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
180 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, in F77_c3chke()
181 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
184 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, in F77_c3chke()
185 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
188 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, in F77_c3chke()
189 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
192 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0, in F77_c3chke()
193 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
196 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, in F77_c3chke()
197 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
200 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, in F77_c3chke()
201 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
204 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, in F77_c3chke()
205 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
208 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0, in F77_c3chke()
209 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
212 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, in F77_c3chke()
213 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
216 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, in F77_c3chke()
217 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
220 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, in F77_c3chke()
221 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
224 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID, in F77_c3chke()
225 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
228 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, in F77_c3chke()
229 ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_c3chke()
232 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, in F77_c3chke()
233 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_c3chke()
236 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0, in F77_c3chke()
237 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
240 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0, in F77_c3chke()
241 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
244 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, in F77_c3chke()
245 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
248 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, in F77_c3chke()
249 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
252 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, in F77_c3chke()
253 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
256 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2, in F77_c3chke()
257 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
260 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, in F77_c3chke()
261 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
264 cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0, in F77_c3chke()
265 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
268 cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, in F77_c3chke()
269 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
272 cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, in F77_c3chke()
273 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
276 } else if (strncmp( sf,"cblas_chemm" ,11)==0) { in F77_c3chke()
280 cblas_chemm( INVALID, CblasRight, CblasLower, 0, 0, in F77_c3chke()
281 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
284 cblas_chemm( CblasColMajor, INVALID, CblasUpper, 0, 0, in F77_c3chke()
285 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
288 cblas_chemm( CblasColMajor, CblasLeft, INVALID, 0, 0, in F77_c3chke()
289 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
292 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, in F77_c3chke()
293 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
296 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, in F77_c3chke()
297 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
300 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, in F77_c3chke()
301 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
304 cblas_chemm( CblasColMajor, CblasRight, CblasLower, INVALID, 0, in F77_c3chke()
305 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
308 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, in F77_c3chke()
309 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
312 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, in F77_c3chke()
313 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
316 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, in F77_c3chke()
317 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
320 cblas_chemm( CblasColMajor, CblasRight, CblasLower, 0, INVALID, in F77_c3chke()
321 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
324 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, in F77_c3chke()
325 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_c3chke()
328 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 0, 2, in F77_c3chke()
329 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
332 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 2, 0, in F77_c3chke()
333 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_c3chke()
336 cblas_chemm( CblasColMajor, CblasRight, CblasLower, 0, 2, in F77_c3chke()
337 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
340 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, in F77_c3chke()
341 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
344 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 2, 0, in F77_c3chke()
345 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
348 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 2, 0, in F77_c3chke()
349 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
352 cblas_chemm( CblasColMajor, CblasRight, CblasLower, 2, 0, in F77_c3chke()
353 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
356 cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, in F77_c3chke()
357 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_c3chke()
360 cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 2, 0, in F77_c3chke()
361 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
364 cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 2, 0, in F77_c3chke()
365 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_c3chke()
368 cblas_chemm( CblasColMajor, CblasRight, CblasLower, 2, 0, in F77_c3chke()
369 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
372 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, in F77_c3chke()
373 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
376 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, in F77_c3chke()
377 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
380 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, in F77_c3chke()
381 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
384 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, in F77_c3chke()
385 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
388 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, in F77_c3chke()
389 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
392 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, in F77_c3chke()
393 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
396 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, in F77_c3chke()
397 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
400 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, in F77_c3chke()
401 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
404 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, in F77_c3chke()
405 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_c3chke()
408 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, in F77_c3chke()
409 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
412 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 2, 0, in F77_c3chke()
413 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_c3chke()
416 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, 2, in F77_c3chke()
417 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
420 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, in F77_c3chke()
421 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
424 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, in F77_c3chke()
425 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
428 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, in F77_c3chke()
429 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
432 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, 2, in F77_c3chke()
433 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
436 cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, in F77_c3chke()
437 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
440 cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, in F77_c3chke()
441 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_c3chke()
444 cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, in F77_c3chke()
445 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
448 cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, 2, in F77_c3chke()
449 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_c3chke()
452 } else if (strncmp( sf,"cblas_csymm" ,11)==0) { in F77_c3chke()
456 cblas_csymm( INVALID, CblasRight, CblasLower, 0, 0, in F77_c3chke()
457 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
460 cblas_csymm( CblasColMajor, INVALID, CblasUpper, 0, 0, in F77_c3chke()
461 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
464 cblas_csymm( CblasColMajor, CblasLeft, INVALID, 0, 0, in F77_c3chke()
465 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
468 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, in F77_c3chke()
469 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
472 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, in F77_c3chke()
473 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
476 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, in F77_c3chke()
477 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
480 cblas_csymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0, in F77_c3chke()
481 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
484 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, in F77_c3chke()
485 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
488 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, in F77_c3chke()
489 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
492 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, in F77_c3chke()
493 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
496 cblas_csymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID, in F77_c3chke()
497 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
500 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, in F77_c3chke()
501 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_c3chke()
504 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 0, 2, in F77_c3chke()
505 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
508 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, in F77_c3chke()
509 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_c3chke()
512 cblas_csymm( CblasColMajor, CblasRight, CblasLower, 0, 2, in F77_c3chke()
513 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
516 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, in F77_c3chke()
517 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
520 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, in F77_c3chke()
521 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
524 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, in F77_c3chke()
525 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
528 cblas_csymm( CblasColMajor, CblasRight, CblasLower, 2, 0, in F77_c3chke()
529 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
532 cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, in F77_c3chke()
533 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_c3chke()
536 cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, in F77_c3chke()
537 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
540 cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, in F77_c3chke()
541 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_c3chke()
544 cblas_csymm( CblasColMajor, CblasRight, CblasLower, 2, 0, in F77_c3chke()
545 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
548 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, in F77_c3chke()
549 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
552 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, in F77_c3chke()
553 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
556 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, in F77_c3chke()
557 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
560 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, in F77_c3chke()
561 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
564 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, in F77_c3chke()
565 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
568 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, in F77_c3chke()
569 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
572 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, in F77_c3chke()
573 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
576 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, in F77_c3chke()
577 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
580 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, in F77_c3chke()
581 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_c3chke()
584 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, in F77_c3chke()
585 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
588 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0, in F77_c3chke()
589 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_c3chke()
592 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, in F77_c3chke()
593 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
596 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, in F77_c3chke()
597 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
600 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, in F77_c3chke()
601 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
604 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, in F77_c3chke()
605 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
608 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, in F77_c3chke()
609 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
612 cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, in F77_c3chke()
613 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
616 cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, in F77_c3chke()
617 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_c3chke()
620 cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, in F77_c3chke()
621 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
624 cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, in F77_c3chke()
625 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_c3chke()
628 } else if (strncmp( sf,"cblas_ctrmm" ,11)==0) { in F77_c3chke()
633 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
637 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
641 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
645 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
649 INVALID, 0, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
653 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
657 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
661 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
665 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
669 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
673 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
677 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
681 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
685 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
689 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
693 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
697 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
701 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
705 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
709 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
713 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
717 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_c3chke()
721 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_c3chke()
725 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
729 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
733 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_c3chke()
737 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_c3chke()
741 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
745 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
749 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_c3chke()
753 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_c3chke()
757 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
761 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
765 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_c3chke()
769 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_c3chke()
773 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
777 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
781 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
785 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
789 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
793 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
797 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
801 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
805 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
809 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
813 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
817 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
821 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
825 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
829 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
833 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
837 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
841 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
845 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
849 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
853 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_c3chke()
857 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_c3chke()
861 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
865 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
869 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_c3chke()
873 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_c3chke()
877 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
881 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
885 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_c3chke()
889 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_c3chke()
893 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
897 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
901 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_c3chke()
905 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_c3chke()
908 } else if (strncmp( sf,"cblas_ctrsm" ,11)==0) { in F77_c3chke()
913 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
917 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
921 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
925 CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
929 INVALID, 0, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
933 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
937 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
941 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
945 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
949 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
953 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
957 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
961 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
965 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
969 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
973 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
977 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
981 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
985 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
989 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
993 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
997 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_c3chke()
1001 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_c3chke()
1005 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1009 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1013 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_c3chke()
1017 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); in F77_c3chke()
1021 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1025 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1029 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_c3chke()
1033 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_c3chke()
1037 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1041 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1045 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_c3chke()
1049 CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); in F77_c3chke()
1053 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1057 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1061 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1065 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1069 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1073 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1077 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1081 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1085 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1089 CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1093 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1097 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1101 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1105 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1109 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1113 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1117 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1121 CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1125 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1129 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1133 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_c3chke()
1137 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_c3chke()
1141 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1145 CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1149 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_c3chke()
1153 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); in F77_c3chke()
1157 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1161 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1165 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_c3chke()
1169 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_c3chke()
1173 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1177 CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); in F77_c3chke()
1181 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_c3chke()
1185 CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); in F77_c3chke()
1188 } else if (strncmp( sf,"cblas_cherk" ,11)==0) { in F77_c3chke()
1192 cblas_cherk(INVALID, CblasUpper, CblasNoTrans, 0, 0, in F77_c3chke()
1196 cblas_cherk(CblasColMajor, INVALID, CblasNoTrans, 0, 0, in F77_c3chke()
1200 cblas_cherk(CblasColMajor, CblasUpper, CblasTrans, 0, 0, in F77_c3chke()
1204 cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, in F77_c3chke()
1208 cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, INVALID, 0, in F77_c3chke()
1212 cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, in F77_c3chke()
1216 cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, INVALID, 0, in F77_c3chke()
1220 cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, in F77_c3chke()
1224 cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, 0, INVALID, in F77_c3chke()
1228 cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, in F77_c3chke()
1232 cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID, in F77_c3chke()
1236 cblas_cherk(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, in F77_c3chke()
1240 cblas_cherk(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, in F77_c3chke()
1244 cblas_cherk(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, in F77_c3chke()
1248 cblas_cherk(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, in F77_c3chke()
1252 cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1256 cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2, in F77_c3chke()
1260 cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1264 cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, 0, 2, in F77_c3chke()
1268 cblas_cherk(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1272 cblas_cherk(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, in F77_c3chke()
1276 cblas_cherk(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1280 cblas_cherk(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, in F77_c3chke()
1284 cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1288 cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, 2, 0, in F77_c3chke()
1292 cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1296 cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, 2, 0, in F77_c3chke()
1300 } else if (strncmp( sf,"cblas_csyrk" ,11)==0) { in F77_c3chke()
1304 cblas_csyrk(INVALID, CblasUpper, CblasNoTrans, 0, 0, in F77_c3chke()
1305 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1308 cblas_csyrk(CblasColMajor, INVALID, CblasNoTrans, 0, 0, in F77_c3chke()
1309 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1312 cblas_csyrk(CblasColMajor, CblasUpper, CblasConjTrans, 0, 0, in F77_c3chke()
1313 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1316 cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, in F77_c3chke()
1317 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1320 cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, in F77_c3chke()
1321 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1324 cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, in F77_c3chke()
1325 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1328 cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, INVALID, 0, in F77_c3chke()
1329 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1332 cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, in F77_c3chke()
1333 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1336 cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, 0, INVALID, in F77_c3chke()
1337 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1340 cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, in F77_c3chke()
1341 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1344 cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, 0, INVALID, in F77_c3chke()
1345 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1348 cblas_csyrk(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, in F77_c3chke()
1349 ALPHA, A, 1, BETA, C, 2 ); in F77_c3chke()
1352 cblas_csyrk(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, in F77_c3chke()
1353 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1356 cblas_csyrk(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, in F77_c3chke()
1357 ALPHA, A, 1, BETA, C, 2 ); in F77_c3chke()
1360 cblas_csyrk(CblasRowMajor, CblasLower, CblasTrans, 2, 0, in F77_c3chke()
1361 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1364 cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1365 ALPHA, A, 1, BETA, C, 2 ); in F77_c3chke()
1368 cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, 0, 2, in F77_c3chke()
1369 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1372 cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1373 ALPHA, A, 1, BETA, C, 2 ); in F77_c3chke()
1376 cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, 0, 2, in F77_c3chke()
1377 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1380 cblas_csyrk(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1381 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1384 cblas_csyrk(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, in F77_c3chke()
1385 ALPHA, A, 2, BETA, C, 1 ); in F77_c3chke()
1388 cblas_csyrk(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1389 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1392 cblas_csyrk(CblasRowMajor, CblasLower, CblasTrans, 2, 0, in F77_c3chke()
1393 ALPHA, A, 2, BETA, C, 1 ); in F77_c3chke()
1396 cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1397 ALPHA, A, 2, BETA, C, 1 ); in F77_c3chke()
1400 cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, 2, 0, in F77_c3chke()
1401 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1404 cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1405 ALPHA, A, 2, BETA, C, 1 ); in F77_c3chke()
1408 cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, 2, 0, in F77_c3chke()
1409 ALPHA, A, 1, BETA, C, 1 ); in F77_c3chke()
1412 } else if (strncmp( sf,"cblas_cher2k" ,12)==0) { in F77_c3chke()
1416 cblas_cher2k(INVALID, CblasUpper, CblasNoTrans, 0, 0, in F77_c3chke()
1420 cblas_cher2k(CblasColMajor, INVALID, CblasNoTrans, 0, 0, in F77_c3chke()
1424 cblas_cher2k(CblasColMajor, CblasUpper, CblasTrans, 0, 0, in F77_c3chke()
1428 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, in F77_c3chke()
1432 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, INVALID, 0, in F77_c3chke()
1436 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, in F77_c3chke()
1440 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, INVALID, 0, in F77_c3chke()
1444 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, in F77_c3chke()
1448 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, INVALID, in F77_c3chke()
1452 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, in F77_c3chke()
1456 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID, in F77_c3chke()
1460 cblas_cher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, in F77_c3chke()
1464 cblas_cher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, in F77_c3chke()
1468 cblas_cher2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, in F77_c3chke()
1472 cblas_cher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, in F77_c3chke()
1476 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1480 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2, in F77_c3chke()
1484 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1488 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, 2, in F77_c3chke()
1492 cblas_cher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, in F77_c3chke()
1496 cblas_cher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, in F77_c3chke()
1500 cblas_cher2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, in F77_c3chke()
1504 cblas_cher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, in F77_c3chke()
1508 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1512 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2, in F77_c3chke()
1516 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1520 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, 2, in F77_c3chke()
1524 cblas_cher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1528 cblas_cher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, in F77_c3chke()
1532 cblas_cher2k(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1536 cblas_cher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, in F77_c3chke()
1540 cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1544 cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 2, 0, in F77_c3chke()
1548 cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1552 cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 2, 0, in F77_c3chke()
1556 } else if (strncmp( sf,"cblas_csyr2k" ,12)==0) { in F77_c3chke()
1560 cblas_csyr2k(INVALID, CblasUpper, CblasNoTrans, 0, 0, in F77_c3chke()
1561 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1564 cblas_csyr2k(CblasColMajor, INVALID, CblasNoTrans, 0, 0, in F77_c3chke()
1565 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1568 cblas_csyr2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 0, in F77_c3chke()
1569 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1572 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, in F77_c3chke()
1573 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1576 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, in F77_c3chke()
1577 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1580 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, in F77_c3chke()
1581 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1584 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, INVALID, 0, in F77_c3chke()
1585 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1588 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, in F77_c3chke()
1589 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1592 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, INVALID, in F77_c3chke()
1593 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1596 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, in F77_c3chke()
1597 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1600 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 0, INVALID, in F77_c3chke()
1601 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1604 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, in F77_c3chke()
1605 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_c3chke()
1608 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, in F77_c3chke()
1609 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
1612 cblas_csyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, in F77_c3chke()
1613 ALPHA, A, 1, B, 2, BETA, C, 2 ); in F77_c3chke()
1616 cblas_csyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0, in F77_c3chke()
1617 ALPHA, A, 1, B, 2, BETA, C, 1 ); in F77_c3chke()
1620 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1621 ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_c3chke()
1624 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, 2, in F77_c3chke()
1625 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1628 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1629 ALPHA, A, 1, B, 1, BETA, C, 2 ); in F77_c3chke()
1632 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 0, 2, in F77_c3chke()
1633 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1636 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, in F77_c3chke()
1637 ALPHA, A, 2, B, 1, BETA, C, 2 ); in F77_c3chke()
1640 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, in F77_c3chke()
1641 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
1644 cblas_csyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, in F77_c3chke()
1645 ALPHA, A, 2, B, 1, BETA, C, 2 ); in F77_c3chke()
1648 cblas_csyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0, in F77_c3chke()
1649 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
1652 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1653 ALPHA, A, 2, B, 1, BETA, C, 2 ); in F77_c3chke()
1656 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, 2, in F77_c3chke()
1657 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
1660 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1661 ALPHA, A, 2, B, 1, BETA, C, 2 ); in F77_c3chke()
1664 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 0, 2, in F77_c3chke()
1665 ALPHA, A, 2, B, 1, BETA, C, 1 ); in F77_c3chke()
1668 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1669 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1672 cblas_csyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, in F77_c3chke()
1673 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_c3chke()
1676 cblas_csyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1677 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1680 cblas_csyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0, in F77_c3chke()
1681 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_c3chke()
1684 cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, in F77_c3chke()
1685 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_c3chke()
1688 cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 2, 0, in F77_c3chke()
1689 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1692 cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, in F77_c3chke()
1693 ALPHA, A, 2, B, 2, BETA, C, 1 ); in F77_c3chke()
1696 cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, in F77_c3chke()
1697 ALPHA, A, 1, B, 1, BETA, C, 1 ); in F77_c3chke()
1703 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); in F77_c3chke()
1705 printf("***** %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout); in F77_c3chke()