Changeset 251f54b in sasmodels for sasmodels/models/elliptical_cylinder.c

Timestamp:

Oct 18, 2016 9:10:48 AM (7 years ago)

Author:

Paul Kienzle <pkienzle@…>

Branches:

master, core_shell_microgels, costrafo411, magnetic_model, ticket-1257-vesicle-product, ticket_1156, ticket_1265_superball, ticket_822_more_unit_tests

Children:

6f676fb

Parents:

0a3d9b2

Message:

elliptical_cylinder: remove unused _kernel function

File:

• sasmodels/models/elliptical_cylinder.c (modified) (1 diff)

sasmodels/models/elliptical_cylinder.c

@@ -6 +6 @@
 
 
-
-static double
-_kernel(double q, double radius_minor, double r_ratio, double theta)
-{
-    // This is the function LAMBDA1^2 in Feigin's notation
-    // q is the q-value for the calculation (1/A)
-    // radius_minor is the transformed radius"a" in Feigin's notation
-    // r_ratio is the ratio (major radius)/(minor radius) of the Ellipsoid [=] ---
-    // theta is the dummy variable of the integration
-
-    double retval,arg;
-
-    arg = q*radius_minor*sqrt((1.0+r_ratio*r_ratio)/2+(1.0-r_ratio*r_ratio)*cos(theta)/2);
-    //retval = 2.0*J1(arg)/arg;
-    retval = sas_J1c(arg);
-    return retval*retval ;
-}
-
-
-double form_volume(double radius_minor, double r_ratio, double length)
+double
+form_volume(double radius_minor, double r_ratio, double length)
 {
     return M_PI * radius_minor * radius_minor * r_ratio * length;