LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ F77_z2chke()

void F77_z2chke ( char * rout)

Definition at line 31 of file c_z2chke.c.

35 {
36 char *sf = ( rout ) ;
37 double A[2] = {0.0,0.0},
38 X[2] = {0.0,0.0},
39 Y[2] = {0.0,0.0},
40 ALPHA[2] = {0.0,0.0},
41 BETA[2] = {0.0,0.0},
42 RALPHA = 0.0;
43 extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok;
44 extern int RowMajorStrg;
45 extern char *cblas_rout;
46
47#ifndef HAS_ATTRIBUTE_WEAK_SUPPORT
48 if (link_xerbla) /* call these first to link */
49 {
50 cblas_xerbla(cblas_info,cblas_rout,"");
51 F77_xerbla(cblas_rout,&cblas_info, 1);
52 }
53#endif
54
55 cblas_ok = TRUE ;
56 cblas_lerr = PASSED ;
57
58 if (strncmp( sf,"cblas_zgemv",11)==0) {
59 cblas_rout = "cblas_zgemv";
60 cblas_info = 1;
61 cblas_zgemv(INVALID, CblasNoTrans, 0, 0,
62 ALPHA, A, 1, X, 1, BETA, Y, 1 );
63 chkxer();
64 cblas_info = 2; RowMajorStrg = FALSE;
65 cblas_zgemv(CblasColMajor, INVALID, 0, 0,
66 ALPHA, A, 1, X, 1, BETA, Y, 1 );
67 chkxer();
68 cblas_info = 3; RowMajorStrg = FALSE;
69 cblas_zgemv(CblasColMajor, CblasNoTrans, INVALID, 0,
70 ALPHA, A, 1, X, 1, BETA, Y, 1 );
71 chkxer();
72 cblas_info = 4; RowMajorStrg = FALSE;
73 cblas_zgemv(CblasColMajor, CblasNoTrans, 0, INVALID,
74 ALPHA, A, 1, X, 1, BETA, Y, 1 );
75 chkxer();
76 cblas_info = 7; RowMajorStrg = FALSE;
77 cblas_zgemv(CblasColMajor, CblasNoTrans, 2, 0,
78 ALPHA, A, 1, X, 1, BETA, Y, 1 );
79 chkxer();
80 cblas_info = 9; RowMajorStrg = FALSE;
81 cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0,
82 ALPHA, A, 1, X, 0, BETA, Y, 1 );
83 chkxer();
84 cblas_info = 12; RowMajorStrg = FALSE;
85 cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0,
86 ALPHA, A, 1, X, 1, BETA, Y, 0 );
87 chkxer();
88
89 cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE;
90 cblas_zgemv(CblasRowMajor, INVALID, 0, 0,
91 ALPHA, A, 1, X, 1, BETA, Y, 1 );
92 chkxer();
93 cblas_info = 3; RowMajorStrg = TRUE;
94 cblas_zgemv(CblasRowMajor, CblasNoTrans, INVALID, 0,
95 ALPHA, A, 1, X, 1, BETA, Y, 1 );
96 chkxer();
97 cblas_info = 4; RowMajorStrg = TRUE;
98 cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, INVALID,
99 ALPHA, A, 1, X, 1, BETA, Y, 1 );
100 chkxer();
101 cblas_info = 7; RowMajorStrg = TRUE;
102 cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 2,
103 ALPHA, A, 1, X, 1, BETA, Y, 1 );
104 chkxer();
105 cblas_info = 9; RowMajorStrg = TRUE;
106 cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0,
107 ALPHA, A, 1, X, 0, BETA, Y, 1 );
108 chkxer();
109 cblas_info = 12; RowMajorStrg = TRUE;
110 cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0,
111 ALPHA, A, 1, X, 1, BETA, Y, 0 );
112 chkxer();
113 } else if (strncmp( sf,"cblas_zgbmv",11)==0) {
114 cblas_rout = "cblas_zgbmv";
115 cblas_info = 1; RowMajorStrg = FALSE;
116 cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0,
117 ALPHA, A, 1, X, 1, BETA, Y, 1 );
118 chkxer();
119 cblas_info = 2; RowMajorStrg = FALSE;
120 cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0,
121 ALPHA, A, 1, X, 1, BETA, Y, 1 );
122 chkxer();
123 cblas_info = 3; RowMajorStrg = FALSE;
124 cblas_zgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0,
125 ALPHA, A, 1, X, 1, BETA, Y, 1 );
126 chkxer();
127 cblas_info = 4; RowMajorStrg = FALSE;
128 cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0,
129 ALPHA, A, 1, X, 1, BETA, Y, 1 );
130 chkxer();
131 cblas_info = 5; RowMajorStrg = FALSE;
132 cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0,
133 ALPHA, A, 1, X, 1, BETA, Y, 1 );
134 chkxer();
135 cblas_info = 6; RowMajorStrg = FALSE;
136 cblas_zgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID,
137 ALPHA, A, 1, X, 1, BETA, Y, 1 );
138 chkxer();
139 cblas_info = 9; RowMajorStrg = FALSE;
140 cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0,
141 ALPHA, A, 1, X, 1, BETA, Y, 1 );
142 chkxer();
143 cblas_info = 11; RowMajorStrg = FALSE;
144 cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
145 ALPHA, A, 1, X, 0, BETA, Y, 1 );
146 chkxer();
147 cblas_info = 14; RowMajorStrg = FALSE;
148 cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0,
149 ALPHA, A, 1, X, 1, BETA, Y, 0 );
150 chkxer();
151 cblas_info = 2; RowMajorStrg = TRUE;
152 cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0,
153 ALPHA, A, 1, X, 1, BETA, Y, 1 );
154 chkxer();
155 cblas_info = 3; RowMajorStrg = TRUE;
156 cblas_zgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0,
157 ALPHA, A, 1, X, 1, BETA, Y, 1 );
158 chkxer();
159 cblas_info = 4; RowMajorStrg = TRUE;
160 cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0,
161 ALPHA, A, 1, X, 1, BETA, Y, 1 );
162 chkxer();
163 cblas_info = 5; RowMajorStrg = TRUE;
164 cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0,
165 ALPHA, A, 1, X, 1, BETA, Y, 1 );
166 chkxer();
167 cblas_info = 6; RowMajorStrg = TRUE;
168 cblas_zgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID,
169 ALPHA, A, 1, X, 1, BETA, Y, 1 );
170 chkxer();
171 cblas_info = 9; RowMajorStrg = TRUE;
172 cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0,
173 ALPHA, A, 1, X, 1, BETA, Y, 1 );
174 chkxer();
175 cblas_info = 11; RowMajorStrg = TRUE;
176 cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
177 ALPHA, A, 1, X, 0, BETA, Y, 1 );
178 chkxer();
179 cblas_info = 14; RowMajorStrg = TRUE;
180 cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0,
181 ALPHA, A, 1, X, 1, BETA, Y, 0 );
182 chkxer();
183 } else if (strncmp( sf,"cblas_zhemv",11)==0) {
184 cblas_rout = "cblas_zhemv";
185 cblas_info = 1; RowMajorStrg = FALSE;
186 cblas_zhemv(INVALID, CblasUpper, 0,
187 ALPHA, A, 1, X, 1, BETA, Y, 1 );
188 chkxer();
189 cblas_info = 2; RowMajorStrg = FALSE;
190 cblas_zhemv(CblasColMajor, INVALID, 0,
191 ALPHA, A, 1, X, 1, BETA, Y, 1 );
192 chkxer();
193 cblas_info = 3; RowMajorStrg = FALSE;
194 cblas_zhemv(CblasColMajor, CblasUpper, INVALID,
195 ALPHA, A, 1, X, 1, BETA, Y, 1 );
196 chkxer();
197 cblas_info = 6; RowMajorStrg = FALSE;
198 cblas_zhemv(CblasColMajor, CblasUpper, 2,
199 ALPHA, A, 1, X, 1, BETA, Y, 1 );
200 chkxer();
201 cblas_info = 8; RowMajorStrg = FALSE;
202 cblas_zhemv(CblasColMajor, CblasUpper, 0,
203 ALPHA, A, 1, X, 0, BETA, Y, 1 );
204 chkxer();
205 cblas_info = 11; RowMajorStrg = FALSE;
206 cblas_zhemv(CblasColMajor, CblasUpper, 0,
207 ALPHA, A, 1, X, 1, BETA, Y, 0 );
208 chkxer();
209 cblas_info = 2; RowMajorStrg = TRUE;
210 cblas_zhemv(CblasRowMajor, INVALID, 0,
211 ALPHA, A, 1, X, 1, BETA, Y, 1 );
212 chkxer();
213 cblas_info = 3; RowMajorStrg = TRUE;
214 cblas_zhemv(CblasRowMajor, CblasUpper, INVALID,
215 ALPHA, A, 1, X, 1, BETA, Y, 1 );
216 chkxer();
217 cblas_info = 6; RowMajorStrg = TRUE;
218 cblas_zhemv(CblasRowMajor, CblasUpper, 2,
219 ALPHA, A, 1, X, 1, BETA, Y, 1 );
220 chkxer();
221 cblas_info = 8; RowMajorStrg = TRUE;
222 cblas_zhemv(CblasRowMajor, CblasUpper, 0,
223 ALPHA, A, 1, X, 0, BETA, Y, 1 );
224 chkxer();
225 cblas_info = 11; RowMajorStrg = TRUE;
226 cblas_zhemv(CblasRowMajor, CblasUpper, 0,
227 ALPHA, A, 1, X, 1, BETA, Y, 0 );
228 chkxer();
229 } else if (strncmp( sf,"cblas_zhbmv",11)==0) {
230 cblas_rout = "cblas_zhbmv";
231 cblas_info = 1; RowMajorStrg = FALSE;
232 cblas_zhbmv(INVALID, CblasUpper, 0, 0,
233 ALPHA, A, 1, X, 1, BETA, Y, 1 );
234 chkxer();
235 cblas_info = 2; RowMajorStrg = FALSE;
236 cblas_zhbmv(CblasColMajor, INVALID, 0, 0,
237 ALPHA, A, 1, X, 1, BETA, Y, 1 );
238 chkxer();
239 cblas_info = 3; RowMajorStrg = FALSE;
240 cblas_zhbmv(CblasColMajor, CblasUpper, INVALID, 0,
241 ALPHA, A, 1, X, 1, BETA, Y, 1 );
242 chkxer();
243 cblas_info = 4; RowMajorStrg = FALSE;
244 cblas_zhbmv(CblasColMajor, CblasUpper, 0, INVALID,
245 ALPHA, A, 1, X, 1, BETA, Y, 1 );
246 chkxer();
247 cblas_info = 7; RowMajorStrg = FALSE;
248 cblas_zhbmv(CblasColMajor, CblasUpper, 0, 1,
249 ALPHA, A, 1, X, 1, BETA, Y, 1 );
250 chkxer();
251 cblas_info = 9; RowMajorStrg = FALSE;
252 cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0,
253 ALPHA, A, 1, X, 0, BETA, Y, 1 );
254 chkxer();
255 cblas_info = 12; RowMajorStrg = FALSE;
256 cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0,
257 ALPHA, A, 1, X, 1, BETA, Y, 0 );
258 chkxer();
259 cblas_info = 2; RowMajorStrg = TRUE;
260 cblas_zhbmv(CblasRowMajor, INVALID, 0, 0,
261 ALPHA, A, 1, X, 1, BETA, Y, 1 );
262 chkxer();
263 cblas_info = 3; RowMajorStrg = TRUE;
264 cblas_zhbmv(CblasRowMajor, CblasUpper, INVALID, 0,
265 ALPHA, A, 1, X, 1, BETA, Y, 1 );
266 chkxer();
267 cblas_info = 4; RowMajorStrg = TRUE;
268 cblas_zhbmv(CblasRowMajor, CblasUpper, 0, INVALID,
269 ALPHA, A, 1, X, 1, BETA, Y, 1 );
270 chkxer();
271 cblas_info = 7; RowMajorStrg = TRUE;
272 cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 1,
273 ALPHA, A, 1, X, 1, BETA, Y, 1 );
274 chkxer();
275 cblas_info = 9; RowMajorStrg = TRUE;
276 cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0,
277 ALPHA, A, 1, X, 0, BETA, Y, 1 );
278 chkxer();
279 cblas_info = 12; RowMajorStrg = TRUE;
280 cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0,
281 ALPHA, A, 1, X, 1, BETA, Y, 0 );
282 chkxer();
283 } else if (strncmp( sf,"cblas_zhpmv",11)==0) {
284 cblas_rout = "cblas_zhpmv";
285 cblas_info = 1; RowMajorStrg = FALSE;
286 cblas_zhpmv(INVALID, CblasUpper, 0,
287 ALPHA, A, X, 1, BETA, Y, 1 );
288 chkxer();
289 cblas_info = 2; RowMajorStrg = FALSE;
290 cblas_zhpmv(CblasColMajor, INVALID, 0,
291 ALPHA, A, X, 1, BETA, Y, 1 );
292 chkxer();
293 cblas_info = 3; RowMajorStrg = FALSE;
294 cblas_zhpmv(CblasColMajor, CblasUpper, INVALID,
295 ALPHA, A, X, 1, BETA, Y, 1 );
296 chkxer();
297 cblas_info = 7; RowMajorStrg = FALSE;
298 cblas_zhpmv(CblasColMajor, CblasUpper, 0,
299 ALPHA, A, X, 0, BETA, Y, 1 );
300 chkxer();
301 cblas_info = 10; RowMajorStrg = FALSE;
302 cblas_zhpmv(CblasColMajor, CblasUpper, 0,
303 ALPHA, A, X, 1, BETA, Y, 0 );
304 chkxer();
305 cblas_info = 2; RowMajorStrg = TRUE;
306 cblas_zhpmv(CblasRowMajor, INVALID, 0,
307 ALPHA, A, X, 1, BETA, Y, 1 );
308 chkxer();
309 cblas_info = 3; RowMajorStrg = TRUE;
310 cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID,
311 ALPHA, A, X, 1, BETA, Y, 1 );
312 chkxer();
313 cblas_info = 7; RowMajorStrg = TRUE;
314 cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
315 ALPHA, A, X, 0, BETA, Y, 1 );
316 chkxer();
317 cblas_info = 10; RowMajorStrg = TRUE;
318 cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
319 ALPHA, A, X, 1, BETA, Y, 0 );
320 chkxer();
321 } else if (strncmp( sf,"cblas_ztrmv",11)==0) {
322 cblas_rout = "cblas_ztrmv";
323 cblas_info = 1; RowMajorStrg = FALSE;
324 cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans,
325 CblasNonUnit, 0, A, 1, X, 1 );
326 chkxer();
327 cblas_info = 2; RowMajorStrg = FALSE;
328 cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans,
329 CblasNonUnit, 0, A, 1, X, 1 );
330 chkxer();
331 cblas_info = 3; RowMajorStrg = FALSE;
332 cblas_ztrmv(CblasColMajor, CblasUpper, INVALID,
333 CblasNonUnit, 0, A, 1, X, 1 );
334 chkxer();
335 cblas_info = 4; RowMajorStrg = FALSE;
336 cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
337 INVALID, 0, A, 1, X, 1 );
338 chkxer();
339 cblas_info = 5; RowMajorStrg = FALSE;
340 cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
341 CblasNonUnit, INVALID, A, 1, X, 1 );
342 chkxer();
343 cblas_info = 7; RowMajorStrg = FALSE;
344 cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
345 CblasNonUnit, 2, A, 1, X, 1 );
346 chkxer();
347 cblas_info = 9; RowMajorStrg = FALSE;
348 cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
349 CblasNonUnit, 0, A, 1, X, 0 );
350 chkxer();
351 cblas_info = 2; RowMajorStrg = TRUE;
352 cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans,
353 CblasNonUnit, 0, A, 1, X, 1 );
354 chkxer();
355 cblas_info = 3; RowMajorStrg = TRUE;
356 cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID,
357 CblasNonUnit, 0, A, 1, X, 1 );
358 chkxer();
359 cblas_info = 4; RowMajorStrg = TRUE;
360 cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
361 INVALID, 0, A, 1, X, 1 );
362 chkxer();
363 cblas_info = 5; RowMajorStrg = TRUE;
364 cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
365 CblasNonUnit, INVALID, A, 1, X, 1 );
366 chkxer();
367 cblas_info = 7; RowMajorStrg = TRUE;
368 cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
369 CblasNonUnit, 2, A, 1, X, 1 );
370 chkxer();
371 cblas_info = 9; RowMajorStrg = TRUE;
372 cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
373 CblasNonUnit, 0, A, 1, X, 0 );
374 chkxer();
375 } else if (strncmp( sf,"cblas_ztbmv",11)==0) {
376 cblas_rout = "cblas_ztbmv";
377 cblas_info = 1; RowMajorStrg = FALSE;
378 cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans,
379 CblasNonUnit, 0, 0, A, 1, X, 1 );
380 chkxer();
381 cblas_info = 2; RowMajorStrg = FALSE;
382 cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans,
383 CblasNonUnit, 0, 0, A, 1, X, 1 );
384 chkxer();
385 cblas_info = 3; RowMajorStrg = FALSE;
386 cblas_ztbmv(CblasColMajor, CblasUpper, INVALID,
387 CblasNonUnit, 0, 0, A, 1, X, 1 );
388 chkxer();
389 cblas_info = 4; RowMajorStrg = FALSE;
390 cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
391 INVALID, 0, 0, A, 1, X, 1 );
392 chkxer();
393 cblas_info = 5; RowMajorStrg = FALSE;
394 cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
395 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
396 chkxer();
397 cblas_info = 6; RowMajorStrg = FALSE;
398 cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
399 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
400 chkxer();
401 cblas_info = 8; RowMajorStrg = FALSE;
402 cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
403 CblasNonUnit, 0, 1, A, 1, X, 1 );
404 chkxer();
405 cblas_info = 10; RowMajorStrg = FALSE;
406 cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
407 CblasNonUnit, 0, 0, A, 1, X, 0 );
408 chkxer();
409 cblas_info = 2; RowMajorStrg = TRUE;
410 cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans,
411 CblasNonUnit, 0, 0, A, 1, X, 1 );
412 chkxer();
413 cblas_info = 3; RowMajorStrg = TRUE;
414 cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID,
415 CblasNonUnit, 0, 0, A, 1, X, 1 );
416 chkxer();
417 cblas_info = 4; RowMajorStrg = TRUE;
418 cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
419 INVALID, 0, 0, A, 1, X, 1 );
420 chkxer();
421 cblas_info = 5; RowMajorStrg = TRUE;
422 cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
423 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
424 chkxer();
425 cblas_info = 6; RowMajorStrg = TRUE;
426 cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
427 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
428 chkxer();
429 cblas_info = 8; RowMajorStrg = TRUE;
430 cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
431 CblasNonUnit, 0, 1, A, 1, X, 1 );
432 chkxer();
433 cblas_info = 10; RowMajorStrg = TRUE;
434 cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
435 CblasNonUnit, 0, 0, A, 1, X, 0 );
436 chkxer();
437 } else if (strncmp( sf,"cblas_ztpmv",11)==0) {
438 cblas_rout = "cblas_ztpmv";
439 cblas_info = 1; RowMajorStrg = FALSE;
440 cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans,
441 CblasNonUnit, 0, A, X, 1 );
442 chkxer();
443 cblas_info = 2; RowMajorStrg = FALSE;
444 cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans,
445 CblasNonUnit, 0, A, X, 1 );
446 chkxer();
447 cblas_info = 3; RowMajorStrg = FALSE;
448 cblas_ztpmv(CblasColMajor, CblasUpper, INVALID,
449 CblasNonUnit, 0, A, X, 1 );
450 chkxer();
451 cblas_info = 4; RowMajorStrg = FALSE;
452 cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
453 INVALID, 0, A, X, 1 );
454 chkxer();
455 cblas_info = 5; RowMajorStrg = FALSE;
456 cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
457 CblasNonUnit, INVALID, A, X, 1 );
458 chkxer();
459 cblas_info = 8; RowMajorStrg = FALSE;
460 cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
461 CblasNonUnit, 0, A, X, 0 );
462 chkxer();
463 cblas_info = 2; RowMajorStrg = TRUE;
464 cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans,
465 CblasNonUnit, 0, A, X, 1 );
466 chkxer();
467 cblas_info = 3; RowMajorStrg = TRUE;
468 cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID,
469 CblasNonUnit, 0, A, X, 1 );
470 chkxer();
471 cblas_info = 4; RowMajorStrg = TRUE;
472 cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
473 INVALID, 0, A, X, 1 );
474 chkxer();
475 cblas_info = 5; RowMajorStrg = TRUE;
476 cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
477 CblasNonUnit, INVALID, A, X, 1 );
478 chkxer();
479 cblas_info = 8; RowMajorStrg = TRUE;
480 cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
481 CblasNonUnit, 0, A, X, 0 );
482 chkxer();
483 } else if (strncmp( sf,"cblas_ztrsv",11)==0) {
484 cblas_rout = "cblas_ztrsv";
485 cblas_info = 1; RowMajorStrg = FALSE;
486 cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans,
487 CblasNonUnit, 0, A, 1, X, 1 );
488 chkxer();
489 cblas_info = 2; RowMajorStrg = FALSE;
490 cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans,
491 CblasNonUnit, 0, A, 1, X, 1 );
492 chkxer();
493 cblas_info = 3; RowMajorStrg = FALSE;
494 cblas_ztrsv(CblasColMajor, CblasUpper, INVALID,
495 CblasNonUnit, 0, A, 1, X, 1 );
496 chkxer();
497 cblas_info = 4; RowMajorStrg = FALSE;
498 cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
499 INVALID, 0, A, 1, X, 1 );
500 chkxer();
501 cblas_info = 5; RowMajorStrg = FALSE;
502 cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
503 CblasNonUnit, INVALID, A, 1, X, 1 );
504 chkxer();
505 cblas_info = 7; RowMajorStrg = FALSE;
506 cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
507 CblasNonUnit, 2, A, 1, X, 1 );
508 chkxer();
509 cblas_info = 9; RowMajorStrg = FALSE;
510 cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
511 CblasNonUnit, 0, A, 1, X, 0 );
512 chkxer();
513 cblas_info = 2; RowMajorStrg = TRUE;
514 cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans,
515 CblasNonUnit, 0, A, 1, X, 1 );
516 chkxer();
517 cblas_info = 3; RowMajorStrg = TRUE;
518 cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID,
519 CblasNonUnit, 0, A, 1, X, 1 );
520 chkxer();
521 cblas_info = 4; RowMajorStrg = TRUE;
522 cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
523 INVALID, 0, A, 1, X, 1 );
524 chkxer();
525 cblas_info = 5; RowMajorStrg = TRUE;
526 cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
527 CblasNonUnit, INVALID, A, 1, X, 1 );
528 chkxer();
529 cblas_info = 7; RowMajorStrg = TRUE;
530 cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
531 CblasNonUnit, 2, A, 1, X, 1 );
532 chkxer();
533 cblas_info = 9; RowMajorStrg = TRUE;
534 cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
535 CblasNonUnit, 0, A, 1, X, 0 );
536 chkxer();
537 } else if (strncmp( sf,"cblas_ztbsv",11)==0) {
538 cblas_rout = "cblas_ztbsv";
539 cblas_info = 1; RowMajorStrg = FALSE;
540 cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans,
541 CblasNonUnit, 0, 0, A, 1, X, 1 );
542 chkxer();
543 cblas_info = 2; RowMajorStrg = FALSE;
544 cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans,
545 CblasNonUnit, 0, 0, A, 1, X, 1 );
546 chkxer();
547 cblas_info = 3; RowMajorStrg = FALSE;
548 cblas_ztbsv(CblasColMajor, CblasUpper, INVALID,
549 CblasNonUnit, 0, 0, A, 1, X, 1 );
550 chkxer();
551 cblas_info = 4; RowMajorStrg = FALSE;
552 cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
553 INVALID, 0, 0, A, 1, X, 1 );
554 chkxer();
555 cblas_info = 5; RowMajorStrg = FALSE;
556 cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
557 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
558 chkxer();
559 cblas_info = 6; RowMajorStrg = FALSE;
560 cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
561 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
562 chkxer();
563 cblas_info = 8; RowMajorStrg = FALSE;
564 cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
565 CblasNonUnit, 0, 1, A, 1, X, 1 );
566 chkxer();
567 cblas_info = 10; RowMajorStrg = FALSE;
568 cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
569 CblasNonUnit, 0, 0, A, 1, X, 0 );
570 chkxer();
571 cblas_info = 2; RowMajorStrg = TRUE;
572 cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans,
573 CblasNonUnit, 0, 0, A, 1, X, 1 );
574 chkxer();
575 cblas_info = 3; RowMajorStrg = TRUE;
576 cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID,
577 CblasNonUnit, 0, 0, A, 1, X, 1 );
578 chkxer();
579 cblas_info = 4; RowMajorStrg = TRUE;
580 cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
581 INVALID, 0, 0, A, 1, X, 1 );
582 chkxer();
583 cblas_info = 5; RowMajorStrg = TRUE;
584 cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
585 CblasNonUnit, INVALID, 0, A, 1, X, 1 );
586 chkxer();
587 cblas_info = 6; RowMajorStrg = TRUE;
588 cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
589 CblasNonUnit, 0, INVALID, A, 1, X, 1 );
590 chkxer();
591 cblas_info = 8; RowMajorStrg = TRUE;
592 cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
593 CblasNonUnit, 0, 1, A, 1, X, 1 );
594 chkxer();
595 cblas_info = 10; RowMajorStrg = TRUE;
596 cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
597 CblasNonUnit, 0, 0, A, 1, X, 0 );
598 chkxer();
599 } else if (strncmp( sf,"cblas_ztpsv",11)==0) {
600 cblas_rout = "cblas_ztpsv";
601 cblas_info = 1; RowMajorStrg = FALSE;
602 cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans,
603 CblasNonUnit, 0, A, X, 1 );
604 chkxer();
605 cblas_info = 2; RowMajorStrg = FALSE;
606 cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans,
607 CblasNonUnit, 0, A, X, 1 );
608 chkxer();
609 cblas_info = 3; RowMajorStrg = FALSE;
610 cblas_ztpsv(CblasColMajor, CblasUpper, INVALID,
611 CblasNonUnit, 0, A, X, 1 );
612 chkxer();
613 cblas_info = 4; RowMajorStrg = FALSE;
614 cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
615 INVALID, 0, A, X, 1 );
616 chkxer();
617 cblas_info = 5; RowMajorStrg = FALSE;
618 cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
619 CblasNonUnit, INVALID, A, X, 1 );
620 chkxer();
621 cblas_info = 8; RowMajorStrg = FALSE;
622 cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
623 CblasNonUnit, 0, A, X, 0 );
624 chkxer();
625 cblas_info = 2; RowMajorStrg = TRUE;
626 cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans,
627 CblasNonUnit, 0, A, X, 1 );
628 chkxer();
629 cblas_info = 3; RowMajorStrg = TRUE;
630 cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID,
631 CblasNonUnit, 0, A, X, 1 );
632 chkxer();
633 cblas_info = 4; RowMajorStrg = TRUE;
634 cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
635 INVALID, 0, A, X, 1 );
636 chkxer();
637 cblas_info = 5; RowMajorStrg = TRUE;
638 cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
639 CblasNonUnit, INVALID, A, X, 1 );
640 chkxer();
641 cblas_info = 8; RowMajorStrg = TRUE;
642 cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
643 CblasNonUnit, 0, A, X, 0 );
644 chkxer();
645 } else if (strncmp( sf,"cblas_zgeru",10)==0) {
646 cblas_rout = "cblas_zgeru";
647 cblas_info = 1; RowMajorStrg = FALSE;
648 cblas_zgeru(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
649 chkxer();
650 cblas_info = 2; RowMajorStrg = FALSE;
651 cblas_zgeru(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
652 chkxer();
653 cblas_info = 3; RowMajorStrg = FALSE;
654 cblas_zgeru(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
655 chkxer();
656 cblas_info = 6; RowMajorStrg = FALSE;
657 cblas_zgeru(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
658 chkxer();
659 cblas_info = 8; RowMajorStrg = FALSE;
660 cblas_zgeru(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
661 chkxer();
662 cblas_info = 10; RowMajorStrg = FALSE;
663 cblas_zgeru(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
664 chkxer();
665 cblas_info = 2; RowMajorStrg = TRUE;
666 cblas_zgeru(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
667 chkxer();
668 cblas_info = 3; RowMajorStrg = TRUE;
669 cblas_zgeru(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
670 chkxer();
671 cblas_info = 6; RowMajorStrg = TRUE;
672 cblas_zgeru(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
673 chkxer();
674 cblas_info = 8; RowMajorStrg = TRUE;
675 cblas_zgeru(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
676 chkxer();
677 cblas_info = 10; RowMajorStrg = TRUE;
678 cblas_zgeru(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
679 chkxer();
680 } else if (strncmp( sf,"cblas_zgerc",10)==0) {
681 cblas_rout = "cblas_zgerc";
682 cblas_info = 1; RowMajorStrg = FALSE;
683 cblas_zgerc(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );
684 chkxer();
685 cblas_info = 2; RowMajorStrg = FALSE;
686 cblas_zgerc(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
687 chkxer();
688 cblas_info = 3; RowMajorStrg = FALSE;
689 cblas_zgerc(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
690 chkxer();
691 cblas_info = 6; RowMajorStrg = FALSE;
692 cblas_zgerc(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
693 chkxer();
694 cblas_info = 8; RowMajorStrg = FALSE;
695 cblas_zgerc(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
696 chkxer();
697 cblas_info = 10; RowMajorStrg = FALSE;
698 cblas_zgerc(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );
699 chkxer();
700 cblas_info = 2; RowMajorStrg = TRUE;
701 cblas_zgerc(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
702 chkxer();
703 cblas_info = 3; RowMajorStrg = TRUE;
704 cblas_zgerc(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
705 chkxer();
706 cblas_info = 6; RowMajorStrg = TRUE;
707 cblas_zgerc(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );
708 chkxer();
709 cblas_info = 8; RowMajorStrg = TRUE;
710 cblas_zgerc(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );
711 chkxer();
712 cblas_info = 10; RowMajorStrg = TRUE;
713 cblas_zgerc(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );
714 chkxer();
715 } else if (strncmp( sf,"cblas_zher2",11)==0) {
716 cblas_rout = "cblas_zher2";
717 cblas_info = 1; RowMajorStrg = FALSE;
718 cblas_zher2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );
719 chkxer();
720 cblas_info = 2; RowMajorStrg = FALSE;
721 cblas_zher2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
722 chkxer();
723 cblas_info = 3; RowMajorStrg = FALSE;
724 cblas_zher2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
725 chkxer();
726 cblas_info = 6; RowMajorStrg = FALSE;
727 cblas_zher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
728 chkxer();
729 cblas_info = 8; RowMajorStrg = FALSE;
730 cblas_zher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
731 chkxer();
732 cblas_info = 10; RowMajorStrg = FALSE;
733 cblas_zher2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
734 chkxer();
735 cblas_info = 2; RowMajorStrg = TRUE;
736 cblas_zher2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );
737 chkxer();
738 cblas_info = 3; RowMajorStrg = TRUE;
739 cblas_zher2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );
740 chkxer();
741 cblas_info = 6; RowMajorStrg = TRUE;
742 cblas_zher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );
743 chkxer();
744 cblas_info = 8; RowMajorStrg = TRUE;
745 cblas_zher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );
746 chkxer();
747 cblas_info = 10; RowMajorStrg = TRUE;
748 cblas_zher2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );
749 chkxer();
750 } else if (strncmp( sf,"cblas_zhpr2",11)==0) {
751 cblas_rout = "cblas_zhpr2";
752 cblas_info = 1; RowMajorStrg = FALSE;
753 cblas_zhpr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );
754 chkxer();
755 cblas_info = 2; RowMajorStrg = FALSE;
756 cblas_zhpr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
757 chkxer();
758 cblas_info = 3; RowMajorStrg = FALSE;
759 cblas_zhpr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
760 chkxer();
761 cblas_info = 6; RowMajorStrg = FALSE;
762 cblas_zhpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
763 chkxer();
764 cblas_info = 8; RowMajorStrg = FALSE;
765 cblas_zhpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
766 chkxer();
767 cblas_info = 2; RowMajorStrg = TRUE;
768 cblas_zhpr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );
769 chkxer();
770 cblas_info = 3; RowMajorStrg = TRUE;
771 cblas_zhpr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );
772 chkxer();
773 cblas_info = 6; RowMajorStrg = TRUE;
774 cblas_zhpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );
775 chkxer();
776 cblas_info = 8; RowMajorStrg = TRUE;
777 cblas_zhpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );
778 chkxer();
779 } else if (strncmp( sf,"cblas_zher",10)==0) {
780 cblas_rout = "cblas_zher";
781 cblas_info = 1; RowMajorStrg = FALSE;
782 cblas_zher(INVALID, CblasUpper, 0, RALPHA, X, 1, A, 1 );
783 chkxer();
784 cblas_info = 2; RowMajorStrg = FALSE;
785 cblas_zher(CblasColMajor, INVALID, 0, RALPHA, X, 1, A, 1 );
786 chkxer();
787 cblas_info = 3; RowMajorStrg = FALSE;
788 cblas_zher(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );
789 chkxer();
790 cblas_info = 6; RowMajorStrg = FALSE;
791 cblas_zher(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );
792 chkxer();
793 cblas_info = 8; RowMajorStrg = FALSE;
794 cblas_zher(CblasColMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );
795 chkxer();
796 cblas_info = 2; RowMajorStrg = TRUE;
797 cblas_zher(CblasRowMajor, INVALID, 0, RALPHA, X, 1, A, 1 );
798 chkxer();
799 cblas_info = 3; RowMajorStrg = TRUE;
800 cblas_zher(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );
801 chkxer();
802 cblas_info = 6; RowMajorStrg = TRUE;
803 cblas_zher(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );
804 chkxer();
805 cblas_info = 8; RowMajorStrg = TRUE;
806 cblas_zher(CblasRowMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );
807 chkxer();
808 } else if (strncmp( sf,"cblas_zhpr",10)==0) {
809 cblas_rout = "cblas_zhpr";
810 cblas_info = 1; RowMajorStrg = FALSE;
811 cblas_zhpr(INVALID, CblasUpper, 0, RALPHA, X, 1, A );
812 chkxer();
813 cblas_info = 2; RowMajorStrg = FALSE;
814 cblas_zhpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );
815 chkxer();
816 cblas_info = 3; RowMajorStrg = FALSE;
817 cblas_zhpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
818 chkxer();
819 cblas_info = 6; RowMajorStrg = FALSE;
820 cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
821 chkxer();
822 cblas_info = 2; RowMajorStrg = FALSE;
823 cblas_zhpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );
824 chkxer();
825 cblas_info = 3; RowMajorStrg = FALSE;
826 cblas_zhpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );
827 chkxer();
828 cblas_info = 6; RowMajorStrg = FALSE;
829 cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
830 chkxer();
831 }
832 if (cblas_ok == TRUE)
833 printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
834 else
835 printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);
836}
cblas_lerr
CBLAS_INT cblas_lerr
Definition c_z2chke.c:6
chkxer
void chkxer(void)
Definition c_z2chke.c:20
cblas_ok
CBLAS_INT cblas_ok
Definition c_z2chke.c:6
cblas_info
CBLAS_INT cblas_info
Definition c_z2chke.c:6
cblas_rout
char * cblas_rout
Definition c_z2chke.c:8
link_xerbla
CBLAS_INT link_xerbla
Definition c_z2chke.c:7
cblas_ztbmv
void cblas_ztbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
Definition cblas_ztbmv.c:10
CblasUpper
@ CblasUpper
Definition cblas.h:41
cblas_xerbla
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
Definition cblas_xerbla.c:12
cblas_ztpmv
void cblas_ztpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX)
Definition cblas_ztpmv.c:10
cblas_ztpsv
void cblas_ztpsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *Ap, void *X, const CBLAS_INT incX)
Definition cblas_ztpsv.c:10
cblas_zgbmv
void cblas_zgbmv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const CBLAS_INT KL, const CBLAS_INT KU, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zgbmv.c:12
CblasNoTrans
@ CblasNoTrans
Definition cblas.h:40
cblas_zher
void cblas_zher(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const void *X, const CBLAS_INT incX, void *A, const CBLAS_INT lda)
Definition cblas_zher.c:12
cblas_ztbsv
void cblas_ztbsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const CBLAS_INT K, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
Definition cblas_ztbsv.c:10
cblas_zgeru
void cblas_zgeru(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
Definition cblas_zgeru.c:10
cblas_zhpr2
void cblas_zhpr2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *Ap)
Definition cblas_zhpr2.c:12
cblas_zhpmv
void cblas_zhpmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *Ap, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zhpmv.c:12
CblasColMajor
@ CblasColMajor
Definition cblas.h:39
CblasRowMajor
@ CblasRowMajor
Definition cblas.h:39
cblas_zgemv
void cblas_zgemv(CBLAS_LAYOUT layout, CBLAS_TRANSPOSE TransA, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zgemv.c:12
cblas_zher2
void cblas_zher2(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
Definition cblas_zher2.c:12
CblasNonUnit
@ CblasNonUnit
Definition cblas.h:42
cblas_zgerc
void cblas_zgerc(CBLAS_LAYOUT layout, const CBLAS_INT M, const CBLAS_INT N, const void *alpha, const void *X, const CBLAS_INT incX, const void *Y, const CBLAS_INT incY, void *A, const CBLAS_INT lda)
Definition cblas_zgerc.c:12
cblas_ztrsv
void cblas_ztrsv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
Definition cblas_ztrsv.c:10
CBLAS_INT
#define CBLAS_INT
Definition cblas.h:24
cblas_ztrmv
void cblas_ztrmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE TransA, CBLAS_DIAG Diag, const CBLAS_INT N, const void *A, const CBLAS_INT lda, void *X, const CBLAS_INT incX)
Definition cblas_ztrmv.c:10
cblas_zhpr
void cblas_zhpr(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const double alpha, const void *X, const CBLAS_INT incX, void *A)
Definition cblas_zhpr.c:12
cblas_zhbmv
void cblas_zhbmv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const CBLAS_INT K, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zhbmv.c:12
cblas_zhemv
void cblas_zhemv(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, const CBLAS_INT N, const void *alpha, const void *A, const CBLAS_INT lda, const void *X, const CBLAS_INT incX, const void *beta, void *Y, const CBLAS_INT incY)
Definition cblas_zhemv.c:12
INVALID
#define INVALID
Definition cblas_example2.c:8
F77_xerbla
#define F77_xerbla(...)
Definition cblas_f77.h:578
RowMajorStrg
int RowMajorStrg
Definition cblas_globals.c:2
TRUE
#define TRUE
Definition cblas_test.h:19
FALSE
#define FALSE
Definition cblas_test.h:23
PASSED
#define PASSED
Definition cblas_test.h:20
Here is the call graph for this function: