diff options
author | Tim Murray <timmurray@google.com> | 2015-02-17 11:29:36 -0800 |
---|---|---|
committer | Tim Murray <timmurray@google.com> | 2015-02-17 13:04:10 -0800 |
commit | 81253e9afbc34b99e9adc22ddf33a1bfac56c697 (patch) | |
tree | 5c09d2b29298f5a52eadbc110c26c0dceeddac5a /src/cblas_zdotu_sub.c | |
parent | 3fc7142964e5daf9046253892e681d146a65cc2a (diff) | |
download | cblas-81253e9afbc34b99e9adc22ddf33a1bfac56c697.tar.gz |
Add CBLAS library.
Change-Id: I6d5c0ea5eb350f1d35637d8963a78811a4e015d8
Diffstat (limited to 'src/cblas_zdotu_sub.c')
-rw-r--r-- | src/cblas_zdotu_sub.c | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/cblas_zdotu_sub.c b/src/cblas_zdotu_sub.c new file mode 100644 index 0000000..48a14bf --- /dev/null +++ b/src/cblas_zdotu_sub.c @@ -0,0 +1,24 @@ +/* + * cblas_zdotu_sub.c + * + * The program is a C interface to zdotu. + * It calls the fortran wrapper before calling zdotu. + * + * Written by Keita Teranishi. 2/11/1998 + * + */ +#include "cblas.h" +#include "cblas_f77.h" +void cblas_zdotu_sub( const int N, const void *X, const int incX, + const void *Y, const int incY, void *dotu) +{ +#ifdef F77_INT + F77_INT F77_N=N, F77_incX=incX, F77_incY=incY; +#else + #define F77_N N + #define F77_incX incX + #define F77_incY incY +#endif + F77_zdotu_sub( &F77_N, X, &F77_incX, Y, &F77_incY, dotu); + return; +} |