diff options
Diffstat (limited to 'lib/Numeric/GSL/Special/Synchrotron.hs')
-rw-r--r-- | lib/Numeric/GSL/Special/Synchrotron.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/Numeric/GSL/Special/Synchrotron.hs b/lib/Numeric/GSL/Special/Synchrotron.hs index 6103a8a..48381e4 100644 --- a/lib/Numeric/GSL/Special/Synchrotron.hs +++ b/lib/Numeric/GSL/Special/Synchrotron.hs | |||
@@ -22,15 +22,19 @@ module Numeric.GSL.Special.Synchrotron( | |||
22 | import Foreign(Ptr) | 22 | import Foreign(Ptr) |
23 | import Foreign.C.Types(CInt) | 23 | import Foreign.C.Types(CInt) |
24 | import Numeric.GSL.Special.Internal | 24 | import Numeric.GSL.Special.Internal |
25 | |||
25 | synchrotron_1_e :: Double -> (Double,Double) | 26 | synchrotron_1_e :: Double -> (Double,Double) |
26 | synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x | 27 | synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x |
27 | foreign import ccall "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt | 28 | foreign import ccall "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt |
29 | |||
28 | synchrotron_1 :: Double -> Double | 30 | synchrotron_1 :: Double -> Double |
29 | synchrotron_1 = gsl_sf_synchrotron_1 | 31 | synchrotron_1 = gsl_sf_synchrotron_1 |
30 | foreign import ccall "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double | 32 | foreign import ccall "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double |
33 | |||
31 | synchrotron_2_e :: Double -> (Double,Double) | 34 | synchrotron_2_e :: Double -> (Double,Double) |
32 | synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x | 35 | synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x |
33 | foreign import ccall "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt | 36 | foreign import ccall "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt |
37 | |||
34 | synchrotron_2 :: Double -> Double | 38 | synchrotron_2 :: Double -> Double |
35 | synchrotron_2 = gsl_sf_synchrotron_2 | 39 | synchrotron_2 = gsl_sf_synchrotron_2 |
36 | foreign import ccall "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double | 40 | foreign import ccall "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double |