1 /*
2 * c_zblas1.c
3 *
4 * The program is a C wrapper for zcblat1.
5 *
6 * Written by Keita Teranishi. 2/11/1998
7 *
8 */
9 #include "cblas_test.h"
10 #include "cblas.h"
F77_zaxpy(const int * N,const void * alpha,void * X,const int * incX,void * Y,const int * incY)11 void F77_zaxpy(const int *N, const void *alpha, void *X,
12 const int *incX, void *Y, const int *incY)
13 {
14 cblas_zaxpy(*N, alpha, X, *incX, Y, *incY);
15 return;
16 }
17
F77_zcopy(const int * N,void * X,const int * incX,void * Y,const int * incY)18 void F77_zcopy(const int *N, void *X, const int *incX,
19 void *Y, const int *incY)
20 {
21 cblas_zcopy(*N, X, *incX, Y, *incY);
22 return;
23 }
24
F77_zdotc(const int * N,const void * X,const int * incX,const void * Y,const int * incY,void * dotc)25 void F77_zdotc(const int *N, const void *X, const int *incX,
26 const void *Y, const int *incY,void *dotc)
27 {
28 cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc);
29 return;
30 }
31
F77_zdotu(const int * N,void * X,const int * incX,void * Y,const int * incY,void * dotu)32 void F77_zdotu(const int *N, void *X, const int *incX,
33 void *Y, const int *incY,void *dotu)
34 {
35 cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu);
36 return;
37 }
38
F77_zdscal(const int * N,const double * alpha,void * X,const int * incX)39 void F77_zdscal(const int *N, const double *alpha, void *X,
40 const int *incX)
41 {
42 cblas_zdscal(*N, *alpha, X, *incX);
43 return;
44 }
45
F77_zscal(const int * N,const void ** alpha,void * X,const int * incX)46 void F77_zscal(const int *N, const void * *alpha, void *X,
47 const int *incX)
48 {
49 cblas_zscal(*N, alpha, X, *incX);
50 return;
51 }
52
F77_zswap(const int * N,void * X,const int * incX,void * Y,const int * incY)53 void F77_zswap( const int *N, void *X, const int *incX,
54 void *Y, const int *incY)
55 {
56 cblas_zswap(*N,X,*incX,Y,*incY);
57 return;
58 }
59
F77_izamax(const int * N,const void * X,const int * incX)60 int F77_izamax(const int *N, const void *X, const int *incX)
61 {
62 if (*N < 1 || *incX < 1) return(0);
63 return(cblas_izamax(*N, X, *incX)+1);
64 }
65
F77_dznrm2(const int * N,const void * X,const int * incX)66 double F77_dznrm2(const int *N, const void *X, const int *incX)
67 {
68 return cblas_dznrm2(*N, X, *incX);
69 }
70
F77_dzasum(const int * N,void * X,const int * incX)71 double F77_dzasum(const int *N, void *X, const int *incX)
72 {
73 return cblas_dzasum(*N, X, *incX);
74 }
75