1 #ifdef HAVE_CONFIG_H 2 #include <config.h> 3 #endif 4 5 #include <AvailabilityMacros.h> /* for MAC_OS_X_VERSION_10_* -- present on 10.2+ (according to Apple) */ 6 /* Since macOS 10.8 vecLib requires Accelerate to be included first (which in turn includes vecLib) */ 7 #if defined MAC_OS_X_VERSION_10_8 && MAC_OS_X_VERSION_MIN_REQUIRED >= 1040 8 #include <Accelerate/Accelerate.h> 9 #else 10 #include <vecLib/vecLib.h> 11 #endif 12 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) 15 { cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); } 16 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) 19 { cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); } 20 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) 23 { cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu); } 24 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) 27 { cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc); } 28