Changes in sasmodels/models/spherical_sld.c [71b751d:d277229] in sasmodels

File:

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

sasmodels/models/spherical_sld.c

@@ -10 +10 @@
     }
     return M_4PI_3*cube(r);
+}
+
+static double
+effective_radius(int mode, double fp_n_shells, double thickness[], double interface[])
+{
+    int n_shells= (int)(fp_n_shells + 0.5);
+    double r = 0.0;
+    for (int i=0; i < n_shells; i++) {
+        r += thickness[i] + interface[i];
+    }
+    return r;
 }