The R Project SVN R

Rev

Rev 75739 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
37143 urbaneks 1 
#ifdef HAVE_CONFIG_H
35468 urbaneks 2 
#include <config.h>
37143 urbaneks 3 
#endif
4 
 
60485 urbaneks 5 
#include <AvailabilityMacros.h> /* for MAC_OS_X_VERSION_10_* -- present on 10.2+ (according to Apple) */
70779 ripley 6 
/* Since macOS 10.8 vecLib requires Accelerate to be included first (which in turn includes vecLib) */
60485 urbaneks 7 
#if defined MAC_OS_X_VERSION_10_8 && MAC_OS_X_VERSION_MIN_REQUIRED >= 1040
8 
#include <Accelerate/Accelerate.h>
9 
#else
35468 urbaneks 10 
#include <vecLib/vecLib.h>
60485 urbaneks 11 
#endif
35468 urbaneks 12 
 
85144 ripley 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 
 
75739 ripley 24 
void FC_FUNC_(rcblas_cdotu_sub,)(const int *N, const void *X, const int *incX,
35468 urbaneks 25 
                       const void *Y, const int *incY, void *dotu)
48110 ripley 26 
{ cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); }
35468 urbaneks 27 
 
75739 ripley 28 
void FC_FUNC_(rcblas_cdotc_sub,)(const int *N, const void *X, const int *incX,
35468 urbaneks 29 
                       const void *Y, const int *incY, void *dotc)
48110 ripley 30 
{ cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); }
35468 urbaneks 31 
 
75739 ripley 32 
void FC_FUNC_(rcblas_zdotu_sub,)(const int *N, const void *X, const int *incX,
35468 urbaneks 33 
                       const void *Y, const int *incY, void *dotu)
48110 ripley 34 
{ cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu); }
35468 urbaneks 35 
 
75739 ripley 36 
void FC_FUNC_(rcblas_zdotc_sub,)(const int *N, const void *X, const int *incX,
35468 urbaneks 37 
                       const void *Y, const int *incY, void *dotc)
48110 ripley 38 
{ cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc); }