blis/frame/compat/cblas/src/cblas_caxpy.c

   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_caxpy.c
   8  *
   9  * The program is a C interface to caxpy.
  10  *
  11  * Written by Keita Teranishi.  2/11/1998
  12  *
  13  */
  14 #include "cblas.h"
  15 #include "cblas_f77.h"
  16 void cblas_caxpy( 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_caxpy( &F77_N, alpha, X, &F77_incX, Y, &F77_incY);
  27 }
  28 #endif