1 #include "bli_config.h"
2 #include "bli_system.h"
3 #include "bli_type_defs.h"
4 #include "bli_cblas.h"
5 #ifdef BLIS_ENABLE_CBLAS
6 /*
7 * cblas_zaxpy.c
8 *
9 * The program is a C interface to zaxpy.
10 *
11 * Written by Keita Teranishi. 2/11/1998
12 *
13 */
14 #include "cblas.h"
15 #include "cblas_f77.h"
16 void cblas_zaxpy( const int N, const void *alpha, const void *X,
17 const int incX, void *Y, const int incY)
18 {
19 #ifdef F77_INT
20 F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
21 #else
22 #define F77_N N
23 #define F77_incX incX
24 #define F77_incY incY
25 #endif
26 F77_zaxpy( &F77_N, alpha, X, &F77_incX, Y, &F77_incY);
27 }
28 #endif