diff options
author | Alberto Ruiz <aruiz@um.es> | 2012-03-13 11:21:21 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2012-03-13 11:21:21 +0100 |
commit | 9c4a8a37291f902312215452d0bdd9ad95408ae9 (patch) | |
tree | 72d468cfa9999dc079466f250883dfb131d016ba /packages/special/lib/Numeric/GSL/Special/Ellint.hs | |
parent | 6f6455593c0490e4710854b08fc63a2d0993dcac (diff) | |
parent | 032fe19ddfa6e4cfba33f76aaa13043b54568fcf (diff) |
Merge remote-tracking branch 'wowus/master' into unsafe
Diffstat (limited to 'packages/special/lib/Numeric/GSL/Special/Ellint.hs')
-rw-r--r-- | packages/special/lib/Numeric/GSL/Special/Ellint.hs | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/packages/special/lib/Numeric/GSL/Special/Ellint.hs b/packages/special/lib/Numeric/GSL/Special/Ellint.hs index 365c366..5837a7f 100644 --- a/packages/special/lib/Numeric/GSL/Special/Ellint.hs +++ b/packages/special/lib/Numeric/GSL/Special/Ellint.hs | |||
@@ -45,96 +45,96 @@ import Numeric.GSL.Special.Internal | |||
45 | 45 | ||
46 | ellint_Kcomp_e :: Double -> Precision -> (Double,Double) | 46 | ellint_Kcomp_e :: Double -> Precision -> (Double,Double) |
47 | ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) | 47 | ellint_Kcomp_e k mode = createSFR "ellint_Kcomp_e" $ gsl_sf_ellint_Kcomp_e k (precCode mode) |
48 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 48 | foreign import ccall unsafe "gsl_sf_ellint_Kcomp_e" gsl_sf_ellint_Kcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
49 | 49 | ||
50 | ellint_Kcomp :: Double -> Precision -> Double | 50 | ellint_Kcomp :: Double -> Precision -> Double |
51 | ellint_Kcomp k mode = gsl_sf_ellint_Kcomp k (precCode mode) | 51 | ellint_Kcomp k mode = gsl_sf_ellint_Kcomp k (precCode mode) |
52 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double | 52 | foreign import ccall unsafe "gsl_sf_ellint_Kcomp" gsl_sf_ellint_Kcomp :: Double -> Gsl_mode_t -> Double |
53 | 53 | ||
54 | ellint_Ecomp_e :: Double -> Precision -> (Double,Double) | 54 | ellint_Ecomp_e :: Double -> Precision -> (Double,Double) |
55 | ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) | 55 | ellint_Ecomp_e k mode = createSFR "ellint_Ecomp_e" $ gsl_sf_ellint_Ecomp_e k (precCode mode) |
56 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 56 | foreign import ccall unsafe "gsl_sf_ellint_Ecomp_e" gsl_sf_ellint_Ecomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
57 | 57 | ||
58 | ellint_Ecomp :: Double -> Precision -> Double | 58 | ellint_Ecomp :: Double -> Precision -> Double |
59 | ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) | 59 | ellint_Ecomp k mode = gsl_sf_ellint_Ecomp k (precCode mode) |
60 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double | 60 | foreign import ccall unsafe "gsl_sf_ellint_Ecomp" gsl_sf_ellint_Ecomp :: Double -> Gsl_mode_t -> Double |
61 | 61 | ||
62 | ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double) | 62 | ellint_Pcomp_e :: Double -> Double -> Precision -> (Double,Double) |
63 | ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode) | 63 | ellint_Pcomp_e k n mode = createSFR "ellint_Pcomp_e" $ gsl_sf_ellint_Pcomp_e k n (precCode mode) |
64 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 64 | foreign import ccall unsafe "gsl_sf_ellint_Pcomp_e" gsl_sf_ellint_Pcomp_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
65 | 65 | ||
66 | ellint_Pcomp :: Double -> Double -> Precision -> Double | 66 | ellint_Pcomp :: Double -> Double -> Precision -> Double |
67 | ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode) | 67 | ellint_Pcomp k n mode = gsl_sf_ellint_Pcomp k n (precCode mode) |
68 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double | 68 | foreign import ccall unsafe "gsl_sf_ellint_Pcomp" gsl_sf_ellint_Pcomp :: Double -> Double -> Gsl_mode_t -> Double |
69 | 69 | ||
70 | ellint_Dcomp_e :: Double -> Precision -> (Double,Double) | 70 | ellint_Dcomp_e :: Double -> Precision -> (Double,Double) |
71 | ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode) | 71 | ellint_Dcomp_e k mode = createSFR "ellint_Dcomp_e" $ gsl_sf_ellint_Dcomp_e k (precCode mode) |
72 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt | 72 | foreign import ccall unsafe "gsl_sf_ellint_Dcomp_e" gsl_sf_ellint_Dcomp_e :: Double -> Gsl_mode_t -> Ptr () -> IO CInt |
73 | 73 | ||
74 | ellint_Dcomp :: Double -> Precision -> Double | 74 | ellint_Dcomp :: Double -> Precision -> Double |
75 | ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode) | 75 | ellint_Dcomp k mode = gsl_sf_ellint_Dcomp k (precCode mode) |
76 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double | 76 | foreign import ccall unsafe "gsl_sf_ellint_Dcomp" gsl_sf_ellint_Dcomp :: Double -> Gsl_mode_t -> Double |
77 | 77 | ||
78 | ellint_F_e :: Double -> Double -> Precision -> (Double,Double) | 78 | ellint_F_e :: Double -> Double -> Precision -> (Double,Double) |
79 | ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) | 79 | ellint_F_e phi k mode = createSFR "ellint_F_e" $ gsl_sf_ellint_F_e phi k (precCode mode) |
80 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 80 | foreign import ccall unsafe "gsl_sf_ellint_F_e" gsl_sf_ellint_F_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
81 | 81 | ||
82 | ellint_F :: Double -> Double -> Precision -> Double | 82 | ellint_F :: Double -> Double -> Precision -> Double |
83 | ellint_F phi k mode = gsl_sf_ellint_F phi k (precCode mode) | 83 | ellint_F phi k mode = gsl_sf_ellint_F phi k (precCode mode) |
84 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double | 84 | foreign import ccall unsafe "gsl_sf_ellint_F" gsl_sf_ellint_F :: Double -> Double -> Gsl_mode_t -> Double |
85 | 85 | ||
86 | ellint_E_e :: Double -> Double -> Precision -> (Double,Double) | 86 | ellint_E_e :: Double -> Double -> Precision -> (Double,Double) |
87 | ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) | 87 | ellint_E_e phi k mode = createSFR "ellint_E_e" $ gsl_sf_ellint_E_e phi k (precCode mode) |
88 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 88 | foreign import ccall unsafe "gsl_sf_ellint_E_e" gsl_sf_ellint_E_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
89 | 89 | ||
90 | ellint_E :: Double -> Double -> Precision -> Double | 90 | ellint_E :: Double -> Double -> Precision -> Double |
91 | ellint_E phi k mode = gsl_sf_ellint_E phi k (precCode mode) | 91 | ellint_E phi k mode = gsl_sf_ellint_E phi k (precCode mode) |
92 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double | 92 | foreign import ccall unsafe "gsl_sf_ellint_E" gsl_sf_ellint_E :: Double -> Double -> Gsl_mode_t -> Double |
93 | 93 | ||
94 | ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 94 | ellint_P_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
95 | ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) | 95 | ellint_P_e phi k n mode = createSFR "ellint_P_e" $ gsl_sf_ellint_P_e phi k n (precCode mode) |
96 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 96 | foreign import ccall unsafe "gsl_sf_ellint_P_e" gsl_sf_ellint_P_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
97 | 97 | ||
98 | ellint_P :: Double -> Double -> Double -> Precision -> Double | 98 | ellint_P :: Double -> Double -> Double -> Precision -> Double |
99 | ellint_P phi k n mode = gsl_sf_ellint_P phi k n (precCode mode) | 99 | ellint_P phi k n mode = gsl_sf_ellint_P phi k n (precCode mode) |
100 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double | 100 | foreign import ccall unsafe "gsl_sf_ellint_P" gsl_sf_ellint_P :: Double -> Double -> Double -> Gsl_mode_t -> Double |
101 | 101 | ||
102 | ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 102 | ellint_D_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
103 | ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) | 103 | ellint_D_e phi k n mode = createSFR "ellint_D_e" $ gsl_sf_ellint_D_e phi k n (precCode mode) |
104 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 104 | foreign import ccall unsafe "gsl_sf_ellint_D_e" gsl_sf_ellint_D_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
105 | 105 | ||
106 | ellint_D :: Double -> Double -> Double -> Precision -> Double | 106 | ellint_D :: Double -> Double -> Double -> Precision -> Double |
107 | ellint_D phi k n mode = gsl_sf_ellint_D phi k n (precCode mode) | 107 | ellint_D phi k n mode = gsl_sf_ellint_D phi k n (precCode mode) |
108 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double | 108 | foreign import ccall unsafe "gsl_sf_ellint_D" gsl_sf_ellint_D :: Double -> Double -> Double -> Gsl_mode_t -> Double |
109 | 109 | ||
110 | ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) | 110 | ellint_RC_e :: Double -> Double -> Precision -> (Double,Double) |
111 | ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) | 111 | ellint_RC_e x y mode = createSFR "ellint_RC_e" $ gsl_sf_ellint_RC_e x y (precCode mode) |
112 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 112 | foreign import ccall unsafe "gsl_sf_ellint_RC_e" gsl_sf_ellint_RC_e :: Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
113 | 113 | ||
114 | ellint_RC :: Double -> Double -> Precision -> Double | 114 | ellint_RC :: Double -> Double -> Precision -> Double |
115 | ellint_RC x y mode = gsl_sf_ellint_RC x y (precCode mode) | 115 | ellint_RC x y mode = gsl_sf_ellint_RC x y (precCode mode) |
116 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double | 116 | foreign import ccall unsafe "gsl_sf_ellint_RC" gsl_sf_ellint_RC :: Double -> Double -> Gsl_mode_t -> Double |
117 | 117 | ||
118 | ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 118 | ellint_RD_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
119 | ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) | 119 | ellint_RD_e x y z mode = createSFR "ellint_RD_e" $ gsl_sf_ellint_RD_e x y z (precCode mode) |
120 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 120 | foreign import ccall unsafe "gsl_sf_ellint_RD_e" gsl_sf_ellint_RD_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
121 | 121 | ||
122 | ellint_RD :: Double -> Double -> Double -> Precision -> Double | 122 | ellint_RD :: Double -> Double -> Double -> Precision -> Double |
123 | ellint_RD x y z mode = gsl_sf_ellint_RD x y z (precCode mode) | 123 | ellint_RD x y z mode = gsl_sf_ellint_RD x y z (precCode mode) |
124 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double | 124 | foreign import ccall unsafe "gsl_sf_ellint_RD" gsl_sf_ellint_RD :: Double -> Double -> Double -> Gsl_mode_t -> Double |
125 | 125 | ||
126 | ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) | 126 | ellint_RF_e :: Double -> Double -> Double -> Precision -> (Double,Double) |
127 | ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) | 127 | ellint_RF_e x y z mode = createSFR "ellint_RF_e" $ gsl_sf_ellint_RF_e x y z (precCode mode) |
128 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 128 | foreign import ccall unsafe "gsl_sf_ellint_RF_e" gsl_sf_ellint_RF_e :: Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
129 | 129 | ||
130 | ellint_RF :: Double -> Double -> Double -> Precision -> Double | 130 | ellint_RF :: Double -> Double -> Double -> Precision -> Double |
131 | ellint_RF x y z mode = gsl_sf_ellint_RF x y z (precCode mode) | 131 | ellint_RF x y z mode = gsl_sf_ellint_RF x y z (precCode mode) |
132 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double | 132 | foreign import ccall unsafe "gsl_sf_ellint_RF" gsl_sf_ellint_RF :: Double -> Double -> Double -> Gsl_mode_t -> Double |
133 | 133 | ||
134 | ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) | 134 | ellint_RJ_e :: Double -> Double -> Double -> Double -> Precision -> (Double,Double) |
135 | ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) | 135 | ellint_RJ_e x y z p mode = createSFR "ellint_RJ_e" $ gsl_sf_ellint_RJ_e x y z p (precCode mode) |
136 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt | 136 | foreign import ccall unsafe "gsl_sf_ellint_RJ_e" gsl_sf_ellint_RJ_e :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Ptr () -> IO CInt |
137 | 137 | ||
138 | ellint_RJ :: Double -> Double -> Double -> Double -> Precision -> Double | 138 | ellint_RJ :: Double -> Double -> Double -> Double -> Precision -> Double |
139 | ellint_RJ x y z p mode = gsl_sf_ellint_RJ x y z p (precCode mode) | 139 | ellint_RJ x y z p mode = gsl_sf_ellint_RJ x y z p (precCode mode) |
140 | foreign import ccall SAFE_CHEAP "gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double | 140 | foreign import ccall unsafe "gsl_sf_ellint_RJ" gsl_sf_ellint_RJ :: Double -> Double -> Double -> Double -> Gsl_mode_t -> Double |