Changeset 79290f for pcp/src/mymath.c

Timestamp:

Jun 7, 2008, 1:13:29 PM (17 years ago)

Author:

Frederik Heber <heber@…>

Children:

02bc3c

Parents:

a97897

Message:

config.h is included in each and every file. After trying to compile on JUMP (with xlc).

File:

• pcp/src/mymath.c (modified) (6 diffs)

pcp/src/mymath.c

@@ -21 +21 @@
 */
 
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
 #include<stdlib.h>
 #include<stdio.h>
@@ -29 +33 @@
 
 // use double precision fft when we have it
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-
 #ifdef HAVE_DFFTW_H
 #include "dfftw.h"
@@ -338 +338 @@
  * \note formula and coefficients are taken from "Numerical Receipes in C"
  */
-static double gammln(double xx) {
+#ifdef HAVE_INLINE
+inline double gammln(double xx) 
+#else
+double gammln(double xx) 
+#endif
+{
   int j;
   double x,tmp,ser;
@@ -361 +366 @@
  * \warning maximum precision 1e-7
  */
-static double gser(double a, double x) {
+#ifdef HAVE_INLINE
+inline double gser(double a, double x)
+#else
+double gser(double a, double x) 
+#endif
+{
   double gln = gammln(a);
   double ap,sum,del;
@@ -389 +399 @@
  * \note formula and coefficients are taken from "Numerical Receipes in C"
  */
-static double gcf(double a, double x) {
+#ifdef HAVE_INLINE
+inline double gcf(double a, double x)
+#else
+double gcf(double a, double x) 
+#endif
+{
   double gln = gammln(a);
   double gold = 0.0;
@@ -429 +444 @@
  * \note formula and coefficients are taken from "Numerical Receipes in C"
  */
-static double gammp(double a, double x) {
+#ifdef HAVE_INLINE
+inline double gammp(double a, double x)
+#else
+double gammp(double a, double x)
+#endif
+{
   double res;
   if (x < a+1.) {