The R Project SVN R

Rev

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

Rev 37143 Rev 48110
Line 4... Line 4...
4 
 
 4 
 
5 
#include <vecLib/vecLib.h>
 5 
#include <vecLib/vecLib.h>
6 
 
 6 
 
7 
void F77_FUNC_(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,
8 
                       const void *Y, const int *incY, void *dotu)
8 
                       const void *Y, const int *incY, void *dotu)
9 
{ cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); };
 9 
{ cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); }
10 
 
 10 
 
11 
void F77_FUNC_(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,
12 
                       const void *Y, const int *incY, void *dotc)
 12 
                       const void *Y, const int *incY, void *dotc)
13 
{ cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); };
 13 
{ cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); }
14 
 
 14 
 
15 
void F77_FUNC_(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,
16 
                       const void *Y, const int *incY, void *dotu)
 16 
                       const void *Y, const int *incY, void *dotu)
17 
{ cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu); };
 17 
{ cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu); }
18 
 
 18 
 
19 
void F77_FUNC_(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,
20 
                       const void *Y, const int *incY, void *dotc)
 20 
                       const void *Y, const int *incY, void *dotc)
21 
{ cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc); };
 21 
{ cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc); }