summaryrefslogtreecommitdiff
path: root/lib/Numeric/GSL/Special/Debye.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2009-06-17 12:27:17 +0000
committerAlberto Ruiz <aruiz@um.es>2009-06-17 12:27:17 +0000
commite58f1e0e94407983fa18cd535cf76427019f1519 (patch)
tree4ffffdb92fd78e2233485895fb288111af0bf386 /lib/Numeric/GSL/Special/Debye.hs
parent45e0e90ffdedd3c1fbe3da750018c65a1535cf75 (diff)
added special transport and elljac
Diffstat (limited to 'lib/Numeric/GSL/Special/Debye.hs')
-rw-r--r--lib/Numeric/GSL/Special/Debye.hs72
1 files changed, 11 insertions, 61 deletions
diff --git a/lib/Numeric/GSL/Special/Debye.hs b/lib/Numeric/GSL/Special/Debye.hs
index 7221fca..c989a82 100644
--- a/lib/Numeric/GSL/Special/Debye.hs
+++ b/lib/Numeric/GSL/Special/Debye.hs
@@ -1,17 +1,15 @@
1------------------------------------------------------------ 1------------------------------------------------------------
2{- | 2-- |
3Module : Numeric.GSL.Special.Debye 3-- Module : Numeric.GSL.Special.Debye
4Copyright : (c) Alberto Ruiz 2006 4-- Copyright : (c) Alberto Ruiz 2006
5License : GPL-style 5-- License : GPL
6Maintainer : Alberto Ruiz (aruiz at um dot es) 6-- Maintainer : Alberto Ruiz (aruiz at um dot es)
7Stability : provisional 7-- Stability : provisional
8Portability : uses ffi 8-- Portability : uses ffi
9 9--
10Wrappers for selected functions described at: 10-- Wrappers for selected functions described at:
11 11--
12<http://www.google.com/search?q=gsl_sf_debye.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky> 12-- <http://www.google.com/search?q=gsl_sf_debye.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
13
14-}
15------------------------------------------------------------ 13------------------------------------------------------------
16 14
17module Numeric.GSL.Special.Debye( 15module Numeric.GSL.Special.Debye(
@@ -32,87 +30,39 @@ module Numeric.GSL.Special.Debye(
32import Foreign(Ptr) 30import Foreign(Ptr)
33import Foreign.C.Types(CInt) 31import Foreign.C.Types(CInt)
34import Numeric.GSL.Special.Internal 32import Numeric.GSL.Special.Internal
35
36-- | wrapper for int gsl_sf_debye_1_e(double x,gsl_sf_result* result);
37--
38-- <http://www.google.com/search?q=gsl_sf_debye_1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
39debye_1_e :: Double -> (Double,Double) 33debye_1_e :: Double -> (Double,Double)
40debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x 34debye_1_e x = createSFR "debye_1_e" $ gsl_sf_debye_1_e x
41foreign import ccall "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt 35foreign import ccall "gsl_sf_debye_1_e" gsl_sf_debye_1_e :: Double -> Ptr () -> IO CInt
42
43-- | wrapper for double gsl_sf_debye_1(double x);
44--
45-- <http://www.google.com/search?q=gsl_sf_debye_1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
46debye_1 :: Double -> Double 36debye_1 :: Double -> Double
47debye_1 = gsl_sf_debye_1 37debye_1 = gsl_sf_debye_1
48foreign import ccall "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double 38foreign import ccall "gsl_sf_debye_1" gsl_sf_debye_1 :: Double -> Double
49
50-- | wrapper for int gsl_sf_debye_2_e(double x,gsl_sf_result* result);
51--
52-- <http://www.google.com/search?q=gsl_sf_debye_2_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
53debye_2_e :: Double -> (Double,Double) 39debye_2_e :: Double -> (Double,Double)
54debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x 40debye_2_e x = createSFR "debye_2_e" $ gsl_sf_debye_2_e x
55foreign import ccall "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt 41foreign import ccall "gsl_sf_debye_2_e" gsl_sf_debye_2_e :: Double -> Ptr () -> IO CInt
56
57-- | wrapper for double gsl_sf_debye_2(double x);
58--
59-- <http://www.google.com/search?q=gsl_sf_debye_2&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
60debye_2 :: Double -> Double 42debye_2 :: Double -> Double
61debye_2 = gsl_sf_debye_2 43debye_2 = gsl_sf_debye_2
62foreign import ccall "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double 44foreign import ccall "gsl_sf_debye_2" gsl_sf_debye_2 :: Double -> Double
63
64-- | wrapper for int gsl_sf_debye_3_e(double x,gsl_sf_result* result);
65--
66-- <http://www.google.com/search?q=gsl_sf_debye_3_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
67debye_3_e :: Double -> (Double,Double) 45debye_3_e :: Double -> (Double,Double)
68debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x 46debye_3_e x = createSFR "debye_3_e" $ gsl_sf_debye_3_e x
69foreign import ccall "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt 47foreign import ccall "gsl_sf_debye_3_e" gsl_sf_debye_3_e :: Double -> Ptr () -> IO CInt
70
71-- | wrapper for double gsl_sf_debye_3(double x);
72--
73-- <http://www.google.com/search?q=gsl_sf_debye_3&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
74debye_3 :: Double -> Double 48debye_3 :: Double -> Double
75debye_3 = gsl_sf_debye_3 49debye_3 = gsl_sf_debye_3
76foreign import ccall "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double 50foreign import ccall "gsl_sf_debye_3" gsl_sf_debye_3 :: Double -> Double
77
78-- | wrapper for int gsl_sf_debye_4_e(double x,gsl_sf_result* result);
79--
80-- <http://www.google.com/search?q=gsl_sf_debye_4_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
81debye_4_e :: Double -> (Double,Double) 51debye_4_e :: Double -> (Double,Double)
82debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x 52debye_4_e x = createSFR "debye_4_e" $ gsl_sf_debye_4_e x
83foreign import ccall "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt 53foreign import ccall "gsl_sf_debye_4_e" gsl_sf_debye_4_e :: Double -> Ptr () -> IO CInt
84
85-- | wrapper for double gsl_sf_debye_4(double x);
86--
87-- <http://www.google.com/search?q=gsl_sf_debye_4&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
88debye_4 :: Double -> Double 54debye_4 :: Double -> Double
89debye_4 = gsl_sf_debye_4 55debye_4 = gsl_sf_debye_4
90foreign import ccall "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double 56foreign import ccall "gsl_sf_debye_4" gsl_sf_debye_4 :: Double -> Double
91
92-- | wrapper for int gsl_sf_debye_5_e(double x,gsl_sf_result* result);
93--
94-- <http://www.google.com/search?q=gsl_sf_debye_5_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
95debye_5_e :: Double -> (Double,Double) 57debye_5_e :: Double -> (Double,Double)
96debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x 58debye_5_e x = createSFR "debye_5_e" $ gsl_sf_debye_5_e x
97foreign import ccall "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt 59foreign import ccall "gsl_sf_debye_5_e" gsl_sf_debye_5_e :: Double -> Ptr () -> IO CInt
98
99-- | wrapper for double gsl_sf_debye_5(double x);
100--
101-- <http://www.google.com/search?q=gsl_sf_debye_5&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
102debye_5 :: Double -> Double 60debye_5 :: Double -> Double
103debye_5 = gsl_sf_debye_5 61debye_5 = gsl_sf_debye_5
104foreign import ccall "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double 62foreign import ccall "gsl_sf_debye_5" gsl_sf_debye_5 :: Double -> Double
105
106-- | wrapper for int gsl_sf_debye_6_e(double x,gsl_sf_result* result);
107--
108-- <http://www.google.com/search?q=gsl_sf_debye_6_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
109debye_6_e :: Double -> (Double,Double) 63debye_6_e :: Double -> (Double,Double)
110debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x 64debye_6_e x = createSFR "debye_6_e" $ gsl_sf_debye_6_e x
111foreign import ccall "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt 65foreign import ccall "gsl_sf_debye_6_e" gsl_sf_debye_6_e :: Double -> Ptr () -> IO CInt
112
113-- | wrapper for double gsl_sf_debye_6(double x);
114--
115-- <http://www.google.com/search?q=gsl_sf_debye_6&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
116debye_6 :: Double -> Double 66debye_6 :: Double -> Double
117debye_6 = gsl_sf_debye_6 67debye_6 = gsl_sf_debye_6
118foreign import ccall "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double 68foreign import ccall "gsl_sf_debye_6" gsl_sf_debye_6 :: Double -> Double