Changes in sasmodels/models/lib/sas_J1.c [74e9b5f:5181ccc] in sasmodels
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
sasmodels/models/lib/sas_J1.c
r74e9b5f r5181ccc 42 42 #if FLOAT_SIZE>4 43 43 //Cephes double pression function 44 double cephes_j1(double x); 44 45 45 46 constant double RPJ1[8] = { … … 105 106 0.0 }; 106 107 107 static108 108 double cephes_j1(double x) 109 109 { … … 155 155 #else 156 156 //Single precission version of cephes 157 float cephes_j1f(float x); 158 157 159 constant float JPJ1[8] = { 158 160 -4.878788132172128E-009, … … 188 190 }; 189 191 190 static191 192 float cephes_j1f(float xx) 192 193 { … … 239 240 240 241 //Finally J1c function that equals 2*J1(x)/x 241 static 242 double sas_2J1x_x(double x); 242 243 double sas_2J1x_x(double x) 243 244 {
Note: See TracChangeset
for help on using the changeset viewer.