1 #include "blis.h"
2 #ifdef BLIS_ENABLE_CBLAS
3 /*
4 * cblas_zdotc_sub.c
5 *
6 * The program is a C interface to zdotc.
7 * It calls the fortran wrapper before calling zdotc.
8 *
9 * Written by Keita Teranishi. 2/11/1998
10 *
11 */
12 #include "cblas.h"
13 #include "cblas_f77.h"
cblas_zdotc_sub(f77_int N,const void * X,f77_int incX,const void * Y,f77_int incY,void * dotc)14 void cblas_zdotc_sub( f77_int N, const void *X, f77_int incX,
15 const void *Y, f77_int incY, void *dotc)
16 {
17 #ifdef F77_INT
18 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
19 #else
20 #define F77_N N
21 #define F77_incX incX
22 #define F77_incY incY
23 #endif
24 F77_zdotc_sub( &F77_N, (dcomplex*)X, &F77_incX, (dcomplex*)Y, &F77_incY, (dcomplex*)dotc);
25 return;
26 }
27 #endif
28