Changeset 8bea12dd in sasview

Timestamp:

Jan 4, 2012 2:20:35 PM (13 years ago)

Author:

Mathieu Doucet <doucetm@…>

Branches:

master, ESS_GUI, ESS_GUI_Docs, ESS_GUI_batch_fitting, ESS_GUI_bumps_abstraction, ESS_GUI_iss1116, ESS_GUI_iss879, ESS_GUI_iss959, ESS_GUI_opencl, ESS_GUI_ordering, ESS_GUI_sync_sascalc, costrafo411, magnetic_scatt, release-4.1.1, release-4.1.2, release-4.2.2, release_4.0.1, ticket-1009, ticket-1094-headless, ticket-1242-2d-resolution, ticket-1243, ticket-1249, ticket885, unittest-saveload

Children:

67424cd

Parents:

8542bf3

Message:

Fix warning

Location:

sansmodels/src/sans/models/libigor

Files:

• libTwoPhase.c (modified) (1 diff)
• libTwoPhase.h (modified) (1 diff)

sansmodels/src/sans/models/libigor/libTwoPhase.c

@@ -5 +5 @@
 #include "StandardHeaders.h"                    // Include ANSI headers, Mac headers
 #include "libTwoPhase.h"
+
+/* internal functions */
+static double
+gammln(double xx) {
+
+    double x,y,tmp,ser;
+    static double cof[6]={76.18009172947146,-86.50532032941677,
+    24.01409824083091,-1.231739572450155,
+    0.1208650973866179e-2,-0.5395239384953e-5};
+    int j;
+
+    y=x=xx;
+    tmp=x+5.5;
+    tmp -= (x+0.5)*log(tmp);
+    ser=1.000000000190015;
+    for (j=0;j<=5;j++) ser += cof[j]/++y;
+    return -tmp+log(2.5066282746310005*ser/x);
+}
 
 // scattering from the Teubner-Strey model for microemulsions - hardly needs to be an XOP...

sansmodels/src/sans/models/libigor/libTwoPhase.h

@@ -22 +22 @@
 double GaussianShell(double dp[], double q);
 
-
-/* internal functions */
-static double
-gammln(double xx) {
-
-    double x,y,tmp,ser;
-    static double cof[6]={76.18009172947146,-86.50532032941677,
-                24.01409824083091,-1.231739572450155,
-                0.1208650973866179e-2,-0.5395239384953e-5};
-    int j;
-
-    y=x=xx;
-    tmp=x+5.5;
-    tmp -= (x+0.5)*log(tmp);
-    ser=1.000000000190015;
-    for (j=0;j<=5;j++) ser += cof[j]/++y;
-    return -tmp+log(2.5066282746310005*ser/x);
-}
-
-