Home | History | Annotate | Download | only in src
      1 /*
      2  * cblas_daxpy.c
      3  *
      4  * The program is a C interface to daxpy.
      5  *
      6  * Written by Keita Teranishi.  2/11/1998
      7  *
      8  */
      9 #include "cblas.h"
     10 #include "cblas_f77.h"
     11 void cblas_daxpy( const int N, const double alpha, const double *X,
     12                        const int incX, double *Y, const int incY)
     13 {
     14 #ifdef F77_INT
     15    F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
     16 #else
     17    #define F77_N N
     18    #define F77_incX incX
     19    #define F77_incY incY
     20 #endif
     21    F77_daxpy( &F77_N, &alpha, X, &F77_incX, Y, &F77_incY);
     22 }
     23