Changes in sasmodels/models/lib/sas_J1.c [1596de3:473a9f1] in sasmodels
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
sasmodels/models/lib/sas_J1.c
r1596de3 r473a9f1 42 42 #if FLOAT_SIZE>4 43 43 //Cephes double pression function 44 double j1(double x);44 double cephes_j1(double x); 45 45 46 46 constant double RPJ1[8] = { … … 106 106 0.0 }; 107 107 108 double j1(double x)108 double cephes_j1(double x) 109 109 { 110 110 … … 144 144 #else 145 145 //Single precission version of cephes 146 float j1f(float x);146 float cephes_j1f(float x); 147 147 148 148 constant float JPJ1[8] = { … … 179 179 }; 180 180 181 float j1f(float x)181 float cephes_j1f(float x) 182 182 { 183 183 … … 211 211 212 212 #if FLOAT_SIZE>4 213 #define sas_J1 j1213 #define sas_J1 cephes_j1 214 214 #else 215 #define sas_J1 j1f215 #define sas_J1 cephes_j1f 216 216 #endif 217 217 218 218 //Finally J1c function that equals 2*J1(x)/x 219 double sas_ J1c(double x);220 double sas_ J1c(double x)219 double sas_2J1x_x(double x); 220 double sas_2J1x_x(double x) 221 221 { 222 222 return (x != 0.0 ) ? 2.0*sas_J1(x)/x : 1.0;
Note: See TracChangeset
for help on using the changeset viewer.