The R Project SVN R

Rev

Rev 75739 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 75739 Rev 85144
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 
/* These calls were deprcated in 'new' Accelerate and are warned about, so
- 
 
 14 
   suppress the warnings
- 
 
 15 
 
- 
 
 16 
   FIXME: define ACCELERATE_NEW_LAPACK where appropriate
- 
 
 17 
   *and* use new entry points.
- 
 
 18 
*/
- 
 
 19 
 
- 
 
 20 
#ifdef __clang__
- 
 
 21 
# pragma clang diagnostic ignored "-Wdeprecated-declarations"
- 
 
 22 
#endif
- 
 
 23 
 
13 
void FC_FUNC_(rcblas_cdotu_sub,)(const int *N, const void *X, const int *incX,
 24 
void FC_FUNC_(rcblas_cdotu_sub,)(const int *N, const void *X, const int *incX,
14 
                       const void *Y, const int *incY, void *dotu)
25 
                       const void *Y, const int *incY, void *dotu)
15 
{ cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); }
 26 
{ cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); }
16 
 
 27 
 
17 
void FC_FUNC_(rcblas_cdotc_sub,)(const int *N, const void *X, const int *incX,
 28 
void FC_FUNC_(rcblas_cdotc_sub,)(const int *N, const void *X, const int *incX,