Changeset 1596de3 in sasmodels

Timestamp:

Jul 27, 2016 6:41:50 AM (8 years ago)

Author:

Paul Kienzle <pkienzle@…>

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:

1557a1e

Parents:

c047acf

Message:

code formatting

Location:

sasmodels/models/lib

Files:

• sas_J0.c (modified) (4 diffs)
• sas_J1.c (modified) (4 diffs)
• sas_JN.c (modified) (1 diff)
• sas_gamma.c (modified) (1 diff)

sasmodels/models/lib/sas_J0.c

@@ -55 +55 @@
 #if FLOAT_SIZE>4
 //Cephes double precission
+double j0(double x);
 
  constant double PPJ0[8] = {
@@ -146 +147 @@
   };
 
-double j0(double x);
 double j0(double x)
 {
@@ -185 +185 @@
 }
 #else
+//Cephes single precission
+float j0f(float x);
 
  constant float MOJ0[8] = {
@@ -219 +221 @@
  };
 
-//Cephes single precission
-float j0f(float x);
 float j0f(float x)
 {

sasmodels/models/lib/sas_J1.c

@@ -41 +41 @@
 
 #if FLOAT_SIZE>4
-
 //Cephes double pression function
+double j1(double x);
+
 constant double RPJ1[8] = {
     -8.99971225705559398224E8,
@@ -105 +106 @@
     0.0 };
 
-double j1(double x);
 double j1(double x)
 {
@@ -144 +144 @@
 #else
 //Single precission version of cephes
+float j1f(float x);
+
 constant float JPJ1[8] = {
     -4.878788132172128E-009,
@@ -177 +179 @@
     };
 
-float j1f(float x);
 float j1f(float x)
 {

sasmodels/models/lib/sas_JN.c

@@ -121 +121 @@
 #else
 
+float jnf(int n, float x);
 float jnf(int n, float x)
 {

sasmodels/models/lib/sas_gamma.c

@@ -134 +134 @@
                 return(z / ((1.0 + 0.5772156649015329 * x) * x));
 }
-#endif
+#endif // NEED_TGAMMA