Changeset b6c8abe in sasview for src/sas/sascalc/calculator/c_extensions/libfunc.c

Timestamp:

Mar 29, 2016 4:31:12 AM (9 years ago)

Author:

wojciech

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:

eca66a1

Parents:

c31dcdb1

Message:

Removed dead-end functions from libfunc

File:

• src/sas/sascalc/calculator/c_extensions/libfunc.c (modified) (5 diffs)

src/sas/sascalc/calculator/c_extensions/libfunc.c

@@ -87 +87 @@
 }
 
-/*
-double gamln(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);
-}
-*/
 // calculate magnetic sld and return total sld
 // bn : contrast (not just sld of the layer)
@@ -240 +223 @@
 **/
 
-
+/*
 #define ITMAX 100
 #define EPS 3.0e-7
@@ -272 +255 @@
   }
 
-
-}
-
+}
+*/
 /**
    Implements the incomplete gamma function Q(a,x) evaluated by its continued fraction
    representation
 **/
+/*
 void gcf(float *gammcf, float a, float x, float *gln) {
   int i;
@@ -304 +287 @@
   return;
 }
-
+*/
 /**
    Represents incomplete error function, P(a,x)
 **/
+/*
 float gammp(float a, float x) {
   float gamser,gammcf,gln;
@@ -319 +303 @@
   }
 }
+*/
 /**
     Implementation of the error function, erf(x)
 **/
+/*
 float erff(float x) {
   return x < 0.0 ? -gammp(0.5,x*x) : gammp(0.5,x*x);
 }
+*/