diff options
Diffstat (limited to 'lib/GSL/Special/Synchrotron.hs')
-rw-r--r-- | lib/GSL/Special/Synchrotron.hs | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/lib/GSL/Special/Synchrotron.hs b/lib/GSL/Special/Synchrotron.hs deleted file mode 100644 index 2ed484b..0000000 --- a/lib/GSL/Special/Synchrotron.hs +++ /dev/null | |||
@@ -1,53 +0,0 @@ | |||
1 | ------------------------------------------------------------ | ||
2 | {- | | ||
3 | Module : GSL.Special.Synchrotron | ||
4 | Copyright : (c) Alberto Ruiz 2006 | ||
5 | License : GPL-style | ||
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 | -} | ||
15 | ------------------------------------------------------------ | ||
16 | |||
17 | module GSL.Special.Synchrotron( | ||
18 | synchrotron_1_e | ||
19 | , synchrotron_1 | ||
20 | , synchrotron_2_e | ||
21 | , synchrotron_2 | ||
22 | ) where | ||
23 | |||
24 | import Foreign(Ptr) | ||
25 | import GSL.Special.Internal | ||
26 | |||
27 | -- | wrapper for int gsl_sf_synchrotron_1_e(double x,gsl_sf_result* result); | ||
28 | -- | ||
29 | -- <http://www.google.com/search?q=gsl_sf_synchrotron_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
30 | synchrotron_1_e :: Double -> (Double,Double) | ||
31 | synchrotron_1_e x = createSFR "synchrotron_1_e" $ gsl_sf_synchrotron_1_e x | ||
32 | foreign import ccall "synchrotron.h gsl_sf_synchrotron_1_e" gsl_sf_synchrotron_1_e :: Double -> Ptr Double -> IO(Int) | ||
33 | |||
34 | -- | wrapper for double gsl_sf_synchrotron_1(double x); | ||
35 | -- | ||
36 | -- <http://www.google.com/search?q=gsl_sf_synchrotron_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
37 | synchrotron_1 :: Double -> Double | ||
38 | synchrotron_1 = gsl_sf_synchrotron_1 | ||
39 | foreign import ccall "synchrotron.h gsl_sf_synchrotron_1" gsl_sf_synchrotron_1 :: Double -> Double | ||
40 | |||
41 | -- | wrapper for int gsl_sf_synchrotron_2_e(double x,gsl_sf_result* result); | ||
42 | -- | ||
43 | -- <http://www.google.com/search?q=gsl_sf_synchrotron_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
44 | synchrotron_2_e :: Double -> (Double,Double) | ||
45 | synchrotron_2_e x = createSFR "synchrotron_2_e" $ gsl_sf_synchrotron_2_e x | ||
46 | foreign import ccall "synchrotron.h gsl_sf_synchrotron_2_e" gsl_sf_synchrotron_2_e :: Double -> Ptr Double -> IO(Int) | ||
47 | |||
48 | -- | wrapper for double gsl_sf_synchrotron_2(double x); | ||
49 | -- | ||
50 | -- <http://www.google.com/search?q=gsl_sf_synchrotron_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> | ||
51 | synchrotron_2 :: Double -> Double | ||
52 | synchrotron_2 = gsl_sf_synchrotron_2 | ||
53 | foreign import ccall "synchrotron.h gsl_sf_synchrotron_2" gsl_sf_synchrotron_2 :: Double -> Double | ||