The R Project SVN R

Rev

Rev 70779 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 70779 Rev 75739
Line 8... Line 8...
8 
#include <Accelerate/Accelerate.h>
 8 
#include <Accelerate/Accelerate.h>
9 
#else
 9 
#else
10 
#include <vecLib/vecLib.h>
 10 
#include <vecLib/vecLib.h>
11 
#endif
 11 
#endif
12 
 
 12 
 
13 
void F77_FUNC_(rcblas_cdotu_sub,)(const int *N, const void *X, const int *incX,
 13 
void FC_FUNC_(rcblas_cdotu_sub,)(const int *N, const void *X, const int *incX,
14 
                       const void *Y, const int *incY, void *dotu)
14 
                       const void *Y, const int *incY, void *dotu)
15 
{ cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); }
 15 
{ cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); }
16 
 
 16 
 
17 
void F77_FUNC_(rcblas_cdotc_sub,)(const int *N, const void *X, const int *incX,
 17 
void FC_FUNC_(rcblas_cdotc_sub,)(const int *N, const void *X, const int *incX,
18 
                       const void *Y, const int *incY, void *dotc)
 18 
                       const void *Y, const int *incY, void *dotc)
19 
{ cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); }
 19 
{ cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); }
20 
 
 20 
 
21 
void F77_FUNC_(rcblas_zdotu_sub,)(const int *N, const void *X, const int *incX,
 21 
void FC_FUNC_(rcblas_zdotu_sub,)(const int *N, const void *X, const int *incX,
22 
                       const void *Y, const int *incY, void *dotu)
 22 
                       const void *Y, const int *incY, void *dotu)
23 
{ cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu); }
 23 
{ cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu); }
24 
 
 24 
 
25 
void F77_FUNC_(rcblas_zdotc_sub,)(const int *N, const void *X, const int *incX,
 25 
void FC_FUNC_(rcblas_zdotc_sub,)(const int *N, const void *X, const int *incX,
26 
                       const void *Y, const int *incY, void *dotc)
 26 
                       const void *Y, const int *incY, void *dotc)
27 
{ cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc); }
 27 
{ cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc); }