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

Timestamp:

Mar 22, 2016 6:54:13 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:

197260f

Parents:

a8787f9

Message:

Removing gammap function

File:

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

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

@@ -87 +87 @@
 }
 
-
+/*
 double gamln(double xx) {
 
@@ -103 +103 @@
     return -tmp+log(2.5066282746310005*ser/x);
 }
-
+*/
 // calculate magnetic sld and return total sld
 // bn : contrast (not just sld of the layer)
@@ -241 +241 @@
 **/
 
-
+/*
 #define ITMAX 100
 #define EPS 3.0e-7
@@ -275 +275 @@
 
 }
+*/
 
 /**
@@ -280 +281 @@
    representation
 **/
-
+/*
 void gcf(float *gammcf, float a, float x, float *gln) {
   int i;
@@ -306 +307 @@
   return;
 }
-
+*/
 
 /**
    Represents incomplete error function, P(a,x)
 **/
+/*
 float gammp(float a, float x) {
   float gamser,gammcf,gln;
@@ -322 +324 @@
   }
 }
-
+*/
 /**
     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);
 }
-
+*/