Changeset 994d77f in sasmodels for sasmodels/models/lib/gauss76.c


Ignore:
Timestamp:
Oct 30, 2014 12:33:53 PM (10 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:
ef2861b
Parents:
d087487b
Message:

Convert double to float rather than using real

File:
1 edited

Legend:

Unmodified
Added
Removed

  • sasmodels/models/lib/gauss76.c

    r14de349 r994d77f  
    99 
    1010// Gaussians 
    11 constant real Gauss76Wt[76]={ 
    12         REAL(.00126779163408536),               //0 
    13         REAL(.00294910295364247), 
    14         REAL(.00462793522803742), 
    15         REAL(.00629918049732845), 
    16         REAL(.00795984747723973), 
    17         REAL(.00960710541471375), 
    18         REAL(.0112381685696677), 
    19         REAL(.0128502838475101), 
    20         REAL(.0144407317482767), 
    21         REAL(.0160068299122486), 
    22         REAL(.0175459372914742),                //10 
    23         REAL(.0190554584671906), 
    24         REAL(.020532847967908), 
    25         REAL(.0219756145344162), 
    26         REAL(.0233813253070112), 
    27         REAL(.0247476099206597), 
    28         REAL(.026072164497986), 
    29         REAL(.0273527555318275), 
    30         REAL(.028587223650054), 
    31         REAL(.029773487255905), 
    32         REAL(.0309095460374916),                //20 
    33         REAL(.0319934843404216), 
    34         REAL(.0330234743977917), 
    35         REAL(.0339977794120564), 
    36         REAL(.0349147564835508), 
    37         REAL(.0357728593807139), 
    38         REAL(.0365706411473296), 
    39         REAL(.0373067565423816), 
    40         REAL(.0379799643084053), 
    41         REAL(.0385891292645067), 
    42         REAL(.0391332242205184),                //30 
    43         REAL(.0396113317090621), 
    44         REAL(.0400226455325968), 
    45         REAL(.040366472122844), 
    46         REAL(.0406422317102947), 
    47         REAL(.0408494593018285), 
    48         REAL(.040987805464794), 
    49         REAL(.0410570369162294), 
    50         REAL(.0410570369162294), 
    51         REAL(.040987805464794), 
    52         REAL(.0408494593018285),                //40 
    53         REAL(.0406422317102947), 
    54         REAL(.040366472122844), 
    55         REAL(.0400226455325968), 
    56         REAL(.0396113317090621), 
    57         REAL(.0391332242205184), 
    58         REAL(.0385891292645067), 
    59         REAL(.0379799643084053), 
    60         REAL(.0373067565423816), 
    61         REAL(.0365706411473296), 
    62         REAL(.0357728593807139),                //50 
    63         REAL(.0349147564835508), 
    64         REAL(.0339977794120564), 
    65         REAL(.0330234743977917), 
    66         REAL(.0319934843404216), 
    67         REAL(.0309095460374916), 
    68         REAL(.029773487255905), 
    69         REAL(.028587223650054), 
    70         REAL(.0273527555318275), 
    71         REAL(.026072164497986), 
    72         REAL(.0247476099206597),                //60 
    73         REAL(.0233813253070112), 
    74         REAL(.0219756145344162), 
    75         REAL(.020532847967908), 
    76         REAL(.0190554584671906), 
    77         REAL(.0175459372914742), 
    78         REAL(.0160068299122486), 
    79         REAL(.0144407317482767), 
    80         REAL(.0128502838475101), 
    81         REAL(.0112381685696677), 
    82         REAL(.00960710541471375),               //70 
    83         REAL(.00795984747723973), 
    84         REAL(.00629918049732845), 
    85         REAL(.00462793522803742), 
    86         REAL(.00294910295364247), 
    87         REAL(.00126779163408536)                //75 (indexed from 0) 
     11constant double Gauss76Wt[76]={ 
     12        .00126779163408536,             //0 
     13        .00294910295364247, 
     14        .00462793522803742, 
     15        .00629918049732845, 
     16        .00795984747723973, 
     17        .00960710541471375, 
     18        .0112381685696677, 
     19        .0128502838475101, 
     20        .0144407317482767, 
     21        .0160068299122486, 
     22        .0175459372914742,              //10 
     23        .0190554584671906, 
     24        .020532847967908, 
     25        .0219756145344162, 
     26        .0233813253070112, 
     27        .0247476099206597, 
     28        .026072164497986, 
     29        .0273527555318275, 
     30        .028587223650054, 
     31        .029773487255905, 
     32        .0309095460374916,              //20 
     33        .0319934843404216, 
     34        .0330234743977917, 
     35        .0339977794120564, 
     36        .0349147564835508, 
     37        .0357728593807139, 
     38        .0365706411473296, 
     39        .0373067565423816, 
     40        .0379799643084053, 
     41        .0385891292645067, 
     42        .0391332242205184,              //30 
     43        .0396113317090621, 
     44        .0400226455325968, 
     45        .040366472122844, 
     46        .0406422317102947, 
     47        .0408494593018285, 
     48        .040987805464794, 
     49        .0410570369162294, 
     50        .0410570369162294, 
     51        .040987805464794, 
     52        .0408494593018285,              //40 
     53        .0406422317102947, 
     54        .040366472122844, 
     55        .0400226455325968, 
     56        .0396113317090621, 
     57        .0391332242205184, 
     58        .0385891292645067, 
     59        .0379799643084053, 
     60        .0373067565423816, 
     61        .0365706411473296, 
     62        .0357728593807139,              //50 
     63        .0349147564835508, 
     64        .0339977794120564, 
     65        .0330234743977917, 
     66        .0319934843404216, 
     67        .0309095460374916, 
     68        .029773487255905, 
     69        .028587223650054, 
     70        .0273527555318275, 
     71        .026072164497986, 
     72        .0247476099206597,              //60 
     73        .0233813253070112, 
     74        .0219756145344162, 
     75        .020532847967908, 
     76        .0190554584671906, 
     77        .0175459372914742, 
     78        .0160068299122486, 
     79        .0144407317482767, 
     80        .0128502838475101, 
     81        .0112381685696677, 
     82        .00960710541471375,             //70 
     83        .00795984747723973, 
     84        .00629918049732845, 
     85        .00462793522803742, 
     86        .00294910295364247, 
     87        .00126779163408536              //75 (indexed from 0) 
    8888}; 
    8989 
    90 constant real Gauss76Z[76]={ 
    91         REAL(-.999505948362153),                //0 
    92         REAL(-.997397786355355), 
    93         REAL(-.993608772723527), 
    94         REAL(-.988144453359837), 
    95         REAL(-.981013938975656), 
    96         REAL(-.972229228520377), 
    97         REAL(-.961805126758768), 
    98         REAL(-.949759207710896), 
    99         REAL(-.936111781934811), 
    100         REAL(-.92088586125215), 
    101         REAL(-.904107119545567),                //10 
    102         REAL(-.885803849292083), 
    103         REAL(-.866006913771982), 
    104         REAL(-.844749694983342), 
    105         REAL(-.822068037328975), 
    106         REAL(-.7980001871612), 
    107         REAL(-.77258672828181), 
    108         REAL(-.74587051350361), 
    109         REAL(-.717896592387704), 
    110         REAL(-.688712135277641), 
    111         REAL(-.658366353758143),                //20 
    112         REAL(-.626910417672267), 
    113         REAL(-.594397368836793), 
    114         REAL(-.560882031601237), 
    115         REAL(-.526420920401243), 
    116         REAL(-.491072144462194), 
    117         REAL(-.454895309813726), 
    118         REAL(-.417951418780327), 
    119         REAL(-.380302767117504), 
    120         REAL(-.342012838966962), 
    121         REAL(-.303146199807908),                //30 
    122         REAL(-.263768387584994), 
    123         REAL(-.223945802196474), 
    124         REAL(-.183745593528914), 
    125         REAL(-.143235548227268), 
    126         REAL(-.102483975391227), 
    127         REAL(-.0615595913906112), 
    128         REAL(-.0205314039939986), 
    129         REAL(.0205314039939986), 
    130         REAL(.0615595913906112), 
    131         REAL(.102483975391227),                 //40 
    132         REAL(.143235548227268), 
    133         REAL(.183745593528914), 
    134         REAL(.223945802196474), 
    135         REAL(.263768387584994), 
    136         REAL(.303146199807908), 
    137         REAL(.342012838966962), 
    138         REAL(.380302767117504), 
    139         REAL(.417951418780327), 
    140         REAL(.454895309813726), 
    141         REAL(.491072144462194),         //50 
    142         REAL(.526420920401243), 
    143         REAL(.560882031601237), 
    144         REAL(.594397368836793), 
    145         REAL(.626910417672267), 
    146         REAL(.658366353758143), 
    147         REAL(.688712135277641), 
    148         REAL(.717896592387704), 
    149         REAL(.74587051350361), 
    150         REAL(.77258672828181), 
    151         REAL(.7980001871612),   //60 
    152         REAL(.822068037328975), 
    153         REAL(.844749694983342), 
    154         REAL(.866006913771982), 
    155         REAL(.885803849292083), 
    156         REAL(.904107119545567), 
    157         REAL(.92088586125215), 
    158         REAL(.936111781934811), 
    159         REAL(.949759207710896), 
    160         REAL(.961805126758768), 
    161         REAL(.972229228520377),         //70 
    162         REAL(.981013938975656), 
    163         REAL(.988144453359837), 
    164         REAL(.993608772723527), 
    165         REAL(.997397786355355), 
    166         REAL(.999505948362153)          //75 
     90constant double Gauss76Z[76]={ 
     91        -.999505948362153,              //0 
     92        -.997397786355355, 
     93        -.993608772723527, 
     94        -.988144453359837, 
     95        -.981013938975656, 
     96        -.972229228520377, 
     97        -.961805126758768, 
     98        -.949759207710896, 
     99        -.936111781934811, 
     100        -.92088586125215, 
     101        -.904107119545567,              //10 
     102        -.885803849292083, 
     103        -.866006913771982, 
     104        -.844749694983342, 
     105        -.822068037328975, 
     106        -.7980001871612, 
     107        -.77258672828181, 
     108        -.74587051350361, 
     109        -.717896592387704, 
     110        -.688712135277641, 
     111        -.658366353758143,              //20 
     112        -.626910417672267, 
     113        -.594397368836793, 
     114        -.560882031601237, 
     115        -.526420920401243, 
     116        -.491072144462194, 
     117        -.454895309813726, 
     118        -.417951418780327, 
     119        -.380302767117504, 
     120        -.342012838966962, 
     121        -.303146199807908,              //30 
     122        -.263768387584994, 
     123        -.223945802196474, 
     124        -.183745593528914, 
     125        -.143235548227268, 
     126        -.102483975391227, 
     127        -.0615595913906112, 
     128        -.0205314039939986, 
     129        .0205314039939986, 
     130        .0615595913906112, 
     131        .102483975391227,                       //40 
     132        .143235548227268, 
     133        .183745593528914, 
     134        .223945802196474, 
     135        .263768387584994, 
     136        .303146199807908, 
     137        .342012838966962, 
     138        .380302767117504, 
     139        .417951418780327, 
     140        .454895309813726, 
     141        .491072144462194,               //50 
     142        .526420920401243, 
     143        .560882031601237, 
     144        .594397368836793, 
     145        .626910417672267, 
     146        .658366353758143, 
     147        .688712135277641, 
     148        .717896592387704, 
     149        .74587051350361, 
     150        .77258672828181, 
     151        .7980001871612, //60 
     152        .822068037328975, 
     153        .844749694983342, 
     154        .866006913771982, 
     155        .885803849292083, 
     156        .904107119545567, 
     157        .92088586125215, 
     158        .936111781934811, 
     159        .949759207710896, 
     160        .961805126758768, 
     161        .972229228520377,               //70 
     162        .981013938975656, 
     163        .988144453359837, 
     164        .993608772723527, 
     165        .997397786355355, 
     166        .999505948362153                //75 
    167167}; 
Note: See TracChangeset for help on using the changeset viewer.