|
Orion Poplawski |
f82a7fb |
From 71ff9e769ba5d9995b367201f0d41b7a8dedab9d Mon Sep 17 00:00:00 2001
|
|
Orion Poplawski |
f82a7fb |
From: John Bowman <bowman@ualberta.ca>
|
|
Orion Poplawski |
f82a7fb |
Date: Sat, 14 Nov 2015 01:25:56 -0700
|
|
Orion Poplawski |
f82a7fb |
Subject: [PATCH] Support GSL 2.0.
|
|
Orion Poplawski |
f82a7fb |
|
|
Orion Poplawski |
f82a7fb |
---
|
|
Orion Poplawski |
f82a7fb |
gsl.cc | 5 +++++
|
|
Orion Poplawski |
f82a7fb |
1 file changed, 5 insertions(+)
|
|
Orion Poplawski |
f82a7fb |
|
|
Orion Poplawski |
f82a7fb |
diff --git a/gsl.cc b/gsl.cc
|
|
Orion Poplawski |
f82a7fb |
index b500557..0f81dc6 100644
|
|
Orion Poplawski |
f82a7fb |
--- a/gsl.cc
|
|
Orion Poplawski |
f82a7fb |
+++ b/gsl.cc
|
|
Orion Poplawski |
f82a7fb |
@@ -27,6 +27,7 @@
|
|
Orion Poplawski |
f82a7fb |
#include <gsl/gsl_rng.h>
|
|
Orion Poplawski |
f82a7fb |
#include <gsl/gsl_randist.h>
|
|
Orion Poplawski |
f82a7fb |
#include <gsl/gsl_cdf.h>
|
|
Orion Poplawski |
f82a7fb |
+#include <gsl/gsl_version.h>
|
|
Orion Poplawski |
f82a7fb |
|
|
Orion Poplawski |
f82a7fb |
#include "opsymbols.h"
|
|
Orion Poplawski |
f82a7fb |
|
|
Orion Poplawski |
f82a7fb |
@@ -1088,7 +1089,11 @@ void gen_rungsl_venv(venv &ve)
|
|
Orion Poplawski |
f82a7fb |
addGSLDOUBLE2Func<gsl_sf_ellint_F>(SYM(F));
|
|
Orion Poplawski |
f82a7fb |
addGSLDOUBLE2Func<gsl_sf_ellint_E>(SYM(E));
|
|
Orion Poplawski |
f82a7fb |
addGSLDOUBLE3Func<gsl_sf_ellint_P>(SYM(P),SYM(phi),SYM(k),SYM(n));
|
|
Orion Poplawski |
f82a7fb |
+#if GSL_MAJOR_VERSION >= 2
|
|
Orion Poplawski |
f82a7fb |
+ addGSLDOUBLE2Func<gsl_sf_ellint_D>(SYM(D),SYM(phi),SYM(k));
|
|
Orion Poplawski |
f82a7fb |
+#else
|
|
Orion Poplawski |
f82a7fb |
addGSLDOUBLE3Func<gsl_sf_ellint_D>(SYM(D),SYM(phi),SYM(k),SYM(n));
|
|
Orion Poplawski |
f82a7fb |
+#endif
|
|
Orion Poplawski |
f82a7fb |
addGSLDOUBLE2Func<gsl_sf_ellint_RC>(SYM(RC),SYM(x),SYM(y));
|
|
Orion Poplawski |
f82a7fb |
addGSLDOUBLE3Func<gsl_sf_ellint_RD>(SYM(RD),SYM(x),SYM(y),SYM(z));
|
|
Orion Poplawski |
f82a7fb |
addGSLDOUBLE3Func<gsl_sf_ellint_RF>(SYM(RF),SYM(x),SYM(y),SYM(z));
|