Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • sasmodels/models/lib/sas_J1.c

    r1596de3 r473a9f1  
    4242#if FLOAT_SIZE>4 
    4343//Cephes double pression function 
    44 double j1(double x); 
     44double cephes_j1(double x); 
    4545 
    4646constant double RPJ1[8] = { 
     
    106106    0.0 }; 
    107107 
    108 double j1(double x) 
     108double cephes_j1(double x) 
    109109{ 
    110110 
     
    144144#else 
    145145//Single precission version of cephes 
    146 float j1f(float x); 
     146float cephes_j1f(float x); 
    147147 
    148148constant float JPJ1[8] = { 
     
    179179    }; 
    180180 
    181 float j1f(float x) 
     181float cephes_j1f(float x) 
    182182{ 
    183183 
     
    211211 
    212212#if FLOAT_SIZE>4 
    213 #define sas_J1 j1 
     213#define sas_J1 cephes_j1 
    214214#else 
    215 #define sas_J1 j1f 
     215#define sas_J1 cephes_j1f 
    216216#endif 
    217217 
    218218//Finally J1c function that equals 2*J1(x)/x 
    219 double sas_J1c(double x); 
    220 double sas_J1c(double x) 
     219double sas_2J1x_x(double x); 
     220double sas_2J1x_x(double x) 
    221221{ 
    222222    return (x != 0.0 ) ? 2.0*sas_J1(x)/x : 1.0; 
Note: See TracChangeset for help on using the changeset viewer.