The R Project SVN R

Rev

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

Rev 35468 Rev 37143
Line -... Line 1...
- 
 
 1 
#ifdef HAVE_CONFIG_H
1 
#include <config.h>
 2 
#include <config.h>
2 
#include <vecLib/vecLib.h>
 3 
#endif
3 
 
 4 
 
4 
#ifdef HAVE_F77_UNDERSCORE
 - 
 
5 
# define F77_SYMBOL(x)   x ## _
 - 
 
6 
#else
 - 
 
7 
# define F77_SYMBOL(x)   x
 5 
#include <vecLib/vecLib.h>
8 
#endif
- 
 
9 
 
 6 
 
10 
void F77_SYMBOL(rcblas_cdotu_sub)(const int *N, const void *X, const int *incX,
 7 
void F77_FUNC_(rcblas_cdotu_sub,)(const int *N, const void *X, const int *incX,
11 
                       const void *Y, const int *incY, void *dotu)
8 
                       const void *Y, const int *incY, void *dotu)
12 
{ cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); };
 9 
{ cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); };
13 
 
 10 
 
14 
void F77_SYMBOL(rcblas_cdotc_sub)(const int *N, const void *X, const int *incX,
 11 
void F77_FUNC_(rcblas_cdotc_sub,)(const int *N, const void *X, const int *incX,
15 
                       const void *Y, const int *incY, void *dotc)
 12 
                       const void *Y, const int *incY, void *dotc)
16 
{ cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); };
 13 
{ cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); };
17 
 
 14 
 
18 
void F77_SYMBOL(rcblas_zdotu_sub)(const int *N, const void *X, const int *incX,
 15 
void F77_FUNC_(rcblas_zdotu_sub,)(const int *N, const void *X, const int *incX,
19 
                       const void *Y, const int *incY, void *dotu)
 16 
                       const void *Y, const int *incY, void *dotu)
20 
{ cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu); };
 17 
{ cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu); };
21 
 
 18 
 
22 
void F77_SYMBOL(rcblas_zdotc_sub)(const int *N, const void *X, const int *incX,
 19 
void F77_FUNC_(rcblas_zdotc_sub,)(const int *N, const void *X, const int *incX,
23 
                       const void *Y, const int *incY, void *dotc)
 20 
                       const void *Y, const int *incY, void *dotc)
24 
{ cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc); };
 21 
{ cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc); };