1 /*
2  * cblas_dasum.c
3  *
4  * The program is a C interface to dasum.
5  * It calls the fortran wrapper before calling dasum.
6  *
7  * Written by Keita Teranishi.  2/11/1998
8  *
9  */
10 
11 #include <R.h>
12 #include <R_ext/Applic.h> /* R blas declarations */
13 
14 #include "cblas.h"
cblas_dasum(const int N,const double * X,const int incX)15 double cblas_dasum( const int N, const double *X, const int incX)
16 {
17    double asum;
18 #ifdef F77_INT
19    F77_INT F77_N=N, F77_incX=incX;
20 #else
21    #define F77_N N
22    #define F77_incX incX
23 #endif
24    asum = F77_CALL(dasum)( &F77_N, X, &F77_incX);
25    return asum;
26 }
27