summaryrefslogtreecommitdiff
path: root/packages/special/lib/Numeric/GSL/Special/Coulomb.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2012-03-13 14:51:12 +0100
committerAlberto Ruiz <aruiz@um.es>2012-03-13 14:51:12 +0100
commit072055e1658fa6fd64a4462b6a243ec0f5e5cdb4 (patch)
tree09e3a46185a1ee231cdddab6955437a2b0ead601 /packages/special/lib/Numeric/GSL/Special/Coulomb.hs
parent9c4a8a37291f902312215452d0bdd9ad95408ae9 (diff)
revert to SAFE_CHEAP macro, unsafe by default
Diffstat (limited to 'packages/special/lib/Numeric/GSL/Special/Coulomb.hs')
-rw-r--r--packages/special/lib/Numeric/GSL/Special/Coulomb.hs22
1 files changed, 11 insertions, 11 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Coulomb.hs b/packages/special/lib/Numeric/GSL/Special/Coulomb.hs
index 1d47d4e..218213a 100644
--- a/packages/special/lib/Numeric/GSL/Special/Coulomb.hs
+++ b/packages/special/lib/Numeric/GSL/Special/Coulomb.hs
@@ -26,44 +26,44 @@ import Numeric.GSL.Special.Internal
26 26
27hydrogenicR_1_e :: Double -> Double -> (Double,Double) 27hydrogenicR_1_e :: Double -> Double -> (Double,Double)
28hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r 28hydrogenicR_1_e zZ r = createSFR "hydrogenicR_1_e" $ gsl_sf_hydrogenicR_1_e zZ r
29foreign import ccall unsafe "gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt 29foreign import ccall SAFE_CHEAP "gsl_sf_hydrogenicR_1_e" gsl_sf_hydrogenicR_1_e :: Double -> Double -> Ptr () -> IO CInt
30 30
31hydrogenicR_1 :: Double -> Double -> Double 31hydrogenicR_1 :: Double -> Double -> Double
32hydrogenicR_1 = gsl_sf_hydrogenicR_1 32hydrogenicR_1 = gsl_sf_hydrogenicR_1
33foreign import ccall unsafe "gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double 33foreign import ccall SAFE_CHEAP "gsl_sf_hydrogenicR_1" gsl_sf_hydrogenicR_1 :: Double -> Double -> Double
34 34
35hydrogenicR_e :: CInt -> CInt -> Double -> Double -> (Double,Double) 35hydrogenicR_e :: CInt -> CInt -> Double -> Double -> (Double,Double)
36hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r 36hydrogenicR_e n l zZ r = createSFR "hydrogenicR_e" $ gsl_sf_hydrogenicR_e n l zZ r
37foreign import ccall unsafe "gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt 37foreign import ccall SAFE_CHEAP "gsl_sf_hydrogenicR_e" gsl_sf_hydrogenicR_e :: CInt -> CInt -> Double -> Double -> Ptr () -> IO CInt
38 38
39hydrogenicR :: CInt -> CInt -> Double -> Double -> Double 39hydrogenicR :: CInt -> CInt -> Double -> Double -> Double
40hydrogenicR = gsl_sf_hydrogenicR 40hydrogenicR = gsl_sf_hydrogenicR
41foreign import ccall unsafe "gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double 41foreign import ccall SAFE_CHEAP "gsl_sf_hydrogenicR" gsl_sf_hydrogenicR :: CInt -> CInt -> Double -> Double -> Double
42 42
43coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt 43coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt
44coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e 44coulomb_wave_FG_e = gsl_sf_coulomb_wave_FG_e
45foreign import ccall unsafe "gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt 45foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_wave_FG_e" gsl_sf_coulomb_wave_FG_e :: Double -> Double -> Double -> CInt -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Ptr Double -> Ptr Double -> CInt
46 46
47coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt 47coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt
48coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array 48coulomb_wave_F_array = gsl_sf_coulomb_wave_F_array
49foreign import ccall unsafe "gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt 49foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_wave_F_array" gsl_sf_coulomb_wave_F_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt
50 50
51coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt 51coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt
52coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array 52coulomb_wave_FG_array = gsl_sf_coulomb_wave_FG_array
53foreign import ccall unsafe "gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt 53foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_wave_FG_array" gsl_sf_coulomb_wave_FG_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt
54 54
55coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt 55coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt
56coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array 56coulomb_wave_FGp_array = gsl_sf_coulomb_wave_FGp_array
57foreign import ccall unsafe "gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt 57foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_wave_FGp_array" gsl_sf_coulomb_wave_FGp_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> Ptr Double -> CInt
58 58
59coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt 59coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt
60coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array 60coulomb_wave_sphF_array = gsl_sf_coulomb_wave_sphF_array
61foreign import ccall unsafe "gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt 61foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_wave_sphF_array" gsl_sf_coulomb_wave_sphF_array :: Double -> CInt -> Double -> Double -> Ptr Double -> Ptr Double -> CInt
62 62
63coulomb_CL_e :: Double -> Double -> (Double,Double) 63coulomb_CL_e :: Double -> Double -> (Double,Double)
64coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta 64coulomb_CL_e lL eta = createSFR "coulomb_CL_e" $ gsl_sf_coulomb_CL_e lL eta
65foreign import ccall unsafe "gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt 65foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_CL_e" gsl_sf_coulomb_CL_e :: Double -> Double -> Ptr () -> IO CInt
66 66
67coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt 67coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt
68coulomb_CL_array = gsl_sf_coulomb_CL_array 68coulomb_CL_array = gsl_sf_coulomb_CL_array
69foreign import ccall unsafe "gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt 69foreign import ccall SAFE_CHEAP "gsl_sf_coulomb_CL_array" gsl_sf_coulomb_CL_array :: Double -> CInt -> Double -> Ptr Double -> CInt
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-01 15:55:07 +0000