Changeset 9aac25d in sasmodels for sasmodels/models/bcc.c

Timestamp:

Feb 8, 2016 5:27:30 AM (8 years ago)

Author:

piotr

Branches:

master, core_shell_microgels, costrafo411, magnetic_model, release_v0.94, release_v0.95, ticket-1257-vesicle-product, ticket_1156, ticket_1265_superball, ticket_822_more_unit_tests

Children:

98f3053

Parents:

3882eeb

Message:

Converted SCCrystalModel

File:

• sasmodels/models/bcc.c (modified) (3 diffs)

sasmodels/models/bcc.c

@@ -40 +40 @@
 }
 
-double _sphereform(double q, double radius, double sld, double solvent_sld){
-    const double qr = q*radius;
-    double sn, cn;
-    SINCOS(qr, sn, cn);
-    const double bes = (qr == 0.0 ? 1.0 : 3.0*(sn-qr*cn)/(qr*qr*qr));
-    const double fq = bes * (sld - solvent_sld)*form_volume(radius);
-    return 1.0e-4*fq*fq;
-}
 
 double form_volume(double radius){
@@ -87 +79 @@
 
         answer = (vb-va)/2.0*summ;
-        answer = answer*_sphereform(q,radius,sld,solvent_sld)*latticescale;
+        answer = answer*sphere_form(q,radius,sld,solvent_sld)*latticescale;
 
     return answer;
@@ -174 +166 @@
 
   // Use SphereForm directly from libigor
-  answer = _sphereform(q,radius,sld,solvent_sld)*Zq*latticescale;
+  answer = sphere_form(q,radius,sld,solvent_sld)*Zq*latticescale;
 
   return answer;