Changeset 74e9b5f in sasmodels for sasmodels/models/lib/sas_J1.c


Ignore:
Timestamp:
Oct 12, 2018 8:52:48 PM (6 years ago)
Author:
pkienzle
Branches:
master, core_shell_microgels, magnetic_model, ticket-1257-vesicle-product, ticket_1156, ticket_1265_superball, ticket_822_more_unit_tests
Children:
4de14584
Parents:
b0de252
Message:

autotag functions as device functions for cuda. Refs #1076.

File:
1 edited

Legend:

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

    r0db7dbd r74e9b5f  
    4343//Cephes double pression function 
    4444 
    45 constant_var double RPJ1[8] = { 
     45constant double RPJ1[8] = { 
    4646    -8.99971225705559398224E8, 
    4747    4.52228297998194034323E11, 
     
    5353    0.0 }; 
    5454 
    55 constant_var double RQJ1[8] = { 
     55constant double RQJ1[8] = { 
    5656    6.20836478118054335476E2, 
    5757    2.56987256757748830383E5, 
     
    6464    }; 
    6565 
    66 constant_var double PPJ1[8] = { 
     66constant double PPJ1[8] = { 
    6767    7.62125616208173112003E-4, 
    6868    7.31397056940917570436E-2, 
     
    7575 
    7676 
    77 constant_var double PQJ1[8] = { 
     77constant double PQJ1[8] = { 
    7878    5.71323128072548699714E-4, 
    7979    6.88455908754495404082E-2, 
     
    8585    0.0 }; 
    8686 
    87 constant_var double QPJ1[8] = { 
     87constant double QPJ1[8] = { 
    8888    5.10862594750176621635E-2, 
    8989    4.98213872951233449420E0, 
     
    9595    2.52070205858023719784E1 }; 
    9696 
    97 constant_var double QQJ1[8] = { 
     97constant double QQJ1[8] = { 
    9898    7.42373277035675149943E1, 
    9999    1.05644886038262816351E3, 
     
    105105    0.0 }; 
    106106 
    107 __device__ static 
     107static 
    108108double cephes_j1(double x) 
    109109{ 
     
    155155#else 
    156156//Single precission version of cephes 
    157 constant_var float JPJ1[8] = { 
     157constant float JPJ1[8] = { 
    158158    -4.878788132172128E-009, 
    159159    6.009061827883699E-007, 
     
    166166    }; 
    167167 
    168 constant_var float MO1J1[8] = { 
     168constant float MO1J1[8] = { 
    169169    6.913942741265801E-002, 
    170170    -2.284801500053359E-001, 
     
    177177    }; 
    178178 
    179 constant_var float PH1J1[8] = { 
     179constant float PH1J1[8] = { 
    180180    -4.497014141919556E+001, 
    181181    5.073465654089319E+001, 
     
    188188    }; 
    189189 
    190 __device__ static 
     190static 
    191191float cephes_j1f(float xx) 
    192192{ 
     
    239239 
    240240//Finally J1c function that equals 2*J1(x)/x 
    241 __device__ static 
     241static 
    242242double sas_2J1x_x(double x) 
    243243{ 
Note: See TracChangeset for help on using the changeset viewer.