1 /*
2 * c_cblas1.c
3 *
4 * The program is a C wrapper for ccblat1.
5 *
6 * Written by Keita Teranishi. 2/11/1998
7 *
8 */
9 #include "cblas_test.h"
10 #include "cblas.h"
F77_caxpy(const int * N,const void * alpha,void * X,const int * incX,void * Y,const int * incY)11 void F77_caxpy(const int *N, const void *alpha, void *X,
12 const int *incX, void *Y, const int *incY)
13 {
14 cblas_caxpy(*N, alpha, X, *incX, Y, *incY);
15 return;
16 }
17
F77_ccopy(const int * N,void * X,const int * incX,void * Y,const int * incY)18 void F77_ccopy(const int *N, void *X, const int *incX,
19 void *Y, const int *incY)
20 {
21 cblas_ccopy(*N, X, *incX, Y, *incY);
22 return;
23 }
24
F77_cdotc(const int * N,void * X,const int * incX,void * Y,const int * incY,void * dotc)25 void F77_cdotc(const int *N, void *X, const int *incX,
26 void *Y, const int *incY, void *dotc)
27 {
28 cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc);
29 return;
30 }
31
F77_cdotu(const int * N,void * X,const int * incX,void * Y,const int * incY,void * dotu)32 void F77_cdotu(const int *N, void *X, const int *incX,
33 void *Y, const int *incY,void *dotu)
34 {
35 cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu);
36 return;
37 }
38
F77_cscal(const int * N,const void ** alpha,void * X,const int * incX)39 void F77_cscal(const int *N, const void * *alpha, void *X,
40 const int *incX)
41 {
42 cblas_cscal(*N, alpha, X, *incX);
43 return;
44 }
45
F77_csscal(const int * N,const float * alpha,void * X,const int * incX)46 void F77_csscal(const int *N, const float *alpha, void *X,
47 const int *incX)
48 {
49 cblas_csscal(*N, *alpha, X, *incX);
50 return;
51 }
52
F77_cswap(const int * N,void * X,const int * incX,void * Y,const int * incY)53 void F77_cswap( const int *N, void *X, const int *incX,
54 void *Y, const int *incY)
55 {
56 cblas_cswap(*N,X,*incX,Y,*incY);
57 return;
58 }
59
F77_icamax(const int * N,const void * X,const int * incX)60 int F77_icamax(const int *N, const void *X, const int *incX)
61 {
62 if (*N < 1 || *incX < 1) return(0);
63 return (cblas_icamax(*N, X, *incX)+1);
64 }
65
F77_scnrm2(const int * N,const void * X,const int * incX)66 float F77_scnrm2(const int *N, const void *X, const int *incX)
67 {
68 return cblas_scnrm2(*N, X, *incX);
69 }
70
F77_scasum(const int * N,void * X,const int * incX)71 float F77_scasum(const int *N, void *X, const int *incX)
72 {
73 return cblas_scasum(*N, X, *incX);
74 }
75