Changes in sasmodels/models/fractal.c [4788822:925ad6e] in sasmodels

File:

• sasmodels/models/fractal.c (modified) (2 diffs)

sasmodels/models/fractal.c

@@ -1 +1 @@
 #define INVALID(p) (p.fractal_dim < 0.0)
-
- static double
- form_volume(double radius)
- {
-     return M_4PI_3 * cube(radius);
- }
 
 static double
@@ -19 +13 @@
 
     //calculate P(q) for the spherical subunits
-    const double pq = square(form_volume(radius) * (sld_block-sld_solvent)
-                      *sas_3j1x_x(q*radius));
+    const double V = M_4PI_3*cube(radius);
+    const double pq = V * square((sld_block-sld_solvent)*sas_3j1x_x(q*radius));
 
     // scale to units cm-1 sr-1 (assuming data on absolute scale)