Changeset 98cb4d7 in sasmodels for sasmodels/models

Timestamp:

Apr 26, 2016 1:00:14 PM (8 years ago)

Author:

Paul Kienzle <pkienzle@…>

Branches:

master, core_shell_microgels, costrafo411, magnetic_model, release_v0.94, release_v0.95, ticket-1257-vesicle-product, ticket_1156, ticket_1265_superball, ticket_822_more_unit_tests

Children:

3a45c2c, 2a55a6f

Parents:

e9dc7df

Message:

only define tgamma when compiling for MSVC

File:

• sasmodels/models/lib/sas_gamma.c (modified) (4 diffs)

sasmodels/models/lib/sas_gamma.c

@@ -1 +1 @@
 /*
 The wrapper for gamma function from OpenCL and standard libraries
-The OpenCL gamma function fails misserably on values lower than 1.0
+The OpenCL gamma function fails miserably on values lower than 1.0
 while works fine on larger values.
 We use gamma definition Gamma(t + 1) = t * Gamma(t) to compute
@@ -7 +7 @@
 */
 
-#ifdef tgamma
-inline double sas_gamma( double x) { return tgamma(x+1)/x; }
-#else
+#if defined(NEED_TGAMMA)
 static double cephes_stirf(double x)
 {
@@ -39 +37 @@
 }
 
-double sas_gamma(double x) {
+static double tgamma(double x) {
         double p, q, z;
         int sgngam;
@@ -137 +135 @@
 }
 #endif
+
+
+inline double sas_gamma( double x) { return tgamma(x+1)/x; }