summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special/Synchrotron.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2010-02-24 13:23:42 +0000
committerAlberto Ruiz <aruiz@um.es>2010-02-24 13:23:42 +0000
commit54bcc1fc1e0f9676cb10f627f412eeeea34b5d2c (patch)
tree3983a0046ce08a2390c5a495aae60fd419c58986 /lib/Numeric/GSL/Special/Synchrotron.hs
parentaae45de54aca92c5f0f013e46c6d6f65508d76f5 (diff)
created package hmatrix-special
Diffstat (limited to 'lib/Numeric/GSL/Special/Synchrotron.hs')
-rw-r--r--lib/Numeric/GSL/Special/Synchrotron.hs40
1 files changed, 0 insertions, 40 deletions
diff --git a/lib/Numeric/GSL/Special/Synchrotron.hs b/lib/Numeric/GSL/Special/Synchrotron.hs
deleted file mode 100644
index 59d6c76..0000000
--- a/lib/Numeric/GSL/Special/Synchrotron.hs
+++ /dev/null
@@ -1,40 +0,0 @@
1------------------------------------------------------------
2-- |
3-- Module : Numeric.GSL.Special.Synchrotron
4-- Copyright : (c) Alberto Ruiz 2006
5-- License : GPL
6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7-- Stability : provisional
8-- Portability : uses ffi
9--
10-- Wrappers for selected functions described at:
11--
12-- <http://www.google.com/search?q=gsl_sf_synchrotron.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13------------------------------------------------------------
14
15module Numeric.GSL.Special.Synchrotron(
16 synchrotron_1_e
17, synchrotron_1
18, synchrotron_2_e
19, synchrotron_2
20) where
21
22import Foreign(Ptr)
23import Foreign.C.Types(CInt)
24import Numeric.GSL.Special.Internal
25
26synchrotron_1_e :: Double -> (Double,Double)
27synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x
28foreign import ccall SAFE_CHEAP "gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr () -> IO CInt
29
30synchrotron_1 :: Double -> Double
31synchrotron_1 = gsl_sf_synchrotron_1
32foreign import ccall SAFE_CHEAP "gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double
33
34synchrotron_2_e :: Double -> (Double,Double)
35synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x
36foreign import ccall SAFE_CHEAP "gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr () -> IO CInt
37
38synchrotron_2 :: Double -> Double
39synchrotron_2 = gsl_sf_synchrotron_2
40foreign import ccall SAFE_CHEAP "gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double