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