added special transport and elljac

1 files changed, 11 insertions, 69 deletions

diff --git a/lib/Numeric/GSL/Special/Zeta.hs b/lib/Numeric/GSL/Special/Zeta.hs
index a78d0e8..45c0f48 100644
--- a/lib/Numeric/GSL/Special/Zeta.hs
+++ b/lib/Numeric/GSL/Special/Zeta.hs
@@ -1,17 +1,15 @@
 ------------------------------------------------------------
-{- |
-Module      :  Numeric.GSL.Special.Zeta
-Copyright   :  (c) Alberto Ruiz 2006
-License     :  GPL-style
-Maintainer  :  Alberto Ruiz (aruiz at um dot es)
-Stability   :  provisional
-Portability :  uses ffi
-
-Wrappers for selected functions described at:
-
-<http://www.google.com/search?q=gsl_sf_zeta.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-
--}
+-- |
+-- Module      :  Numeric.GSL.Special.Zeta
+-- Copyright   :  (c) Alberto Ruiz 2006
+-- License     :  GPL
+-- Maintainer  :  Alberto Ruiz (aruiz at um dot es)
+-- Stability   :  provisional
+-- Portability :  uses ffi
+--
+-- Wrappers for selected functions described at:
+--
+-- <http://www.google.com/search?q=gsl_sf_zeta.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 ------------------------------------------------------------
 
 module Numeric.GSL.Special.Zeta(
@@ -34,101 +32,45 @@ module Numeric.GSL.Special.Zeta(
 import Foreign(Ptr)
 import Foreign.C.Types(CInt)
 import Numeric.GSL.Special.Internal
-
--- | wrapper for int gsl_sf_zeta_int_e(int n,gsl_sf_result* result);
---
---   <http://www.google.com/search?q=gsl_sf_zeta_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 zeta_int_e :: CInt -> (Double,Double)
 zeta_int_e n = createSFR "zeta_int_e" $ gsl_sf_zeta_int_e n
 foreign import ccall "gsl_sf_zeta_int_e" gsl_sf_zeta_int_e :: CInt -> Ptr () -> IO CInt
-
--- | wrapper for double gsl_sf_zeta_int(int n);
---
---   <http://www.google.com/search?q=gsl_sf_zeta_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 zeta_int :: CInt -> Double
 zeta_int = gsl_sf_zeta_int
 foreign import ccall "gsl_sf_zeta_int" gsl_sf_zeta_int :: CInt -> Double
-
--- | wrapper for int gsl_sf_zeta_e(double s,gsl_sf_result* result);
---
---   <http://www.google.com/search?q=gsl_sf_zeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 zeta_e :: Double -> (Double,Double)
 zeta_e s = createSFR "zeta_e" $ gsl_sf_zeta_e s
 foreign import ccall "gsl_sf_zeta_e" gsl_sf_zeta_e :: Double -> Ptr () -> IO CInt
-
--- | wrapper for double gsl_sf_zeta(double s);
---
---   <http://www.google.com/search?q=gsl_sf_zeta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 zeta :: Double -> Double
 zeta = gsl_sf_zeta
 foreign import ccall "gsl_sf_zeta" gsl_sf_zeta :: Double -> Double
-
--- | wrapper for int gsl_sf_zetam1_e(double s,gsl_sf_result* result);
---
---   <http://www.google.com/search?q=gsl_sf_zetam1_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 zetam1_e :: Double -> (Double,Double)
 zetam1_e s = createSFR "zetam1_e" $ gsl_sf_zetam1_e s
 foreign import ccall "gsl_sf_zetam1_e" gsl_sf_zetam1_e :: Double -> Ptr () -> IO CInt
-
--- | wrapper for double gsl_sf_zetam1(double s);
---
---   <http://www.google.com/search?q=gsl_sf_zetam1&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 zetam1 :: Double -> Double
 zetam1 = gsl_sf_zetam1
 foreign import ccall "gsl_sf_zetam1" gsl_sf_zetam1 :: Double -> Double
-
--- | wrapper for int gsl_sf_zetam1_int_e(int s,gsl_sf_result* result);
---
---   <http://www.google.com/search?q=gsl_sf_zetam1_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 zetam1_int_e :: CInt -> (Double,Double)
 zetam1_int_e s = createSFR "zetam1_int_e" $ gsl_sf_zetam1_int_e s
 foreign import ccall "gsl_sf_zetam1_int_e" gsl_sf_zetam1_int_e :: CInt -> Ptr () -> IO CInt
-
--- | wrapper for double gsl_sf_zetam1_int(int s);
---
---   <http://www.google.com/search?q=gsl_sf_zetam1_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 zetam1_int :: CInt -> Double
 zetam1_int = gsl_sf_zetam1_int
 foreign import ccall "gsl_sf_zetam1_int" gsl_sf_zetam1_int :: CInt -> Double
-
--- | wrapper for int gsl_sf_hzeta_e(double s,double q,gsl_sf_result* result);
---
---   <http://www.google.com/search?q=gsl_sf_hzeta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 hzeta_e :: Double -> Double -> (Double,Double)
 hzeta_e s q = createSFR "hzeta_e" $ gsl_sf_hzeta_e s q
 foreign import ccall "gsl_sf_hzeta_e" gsl_sf_hzeta_e :: Double -> Double -> Ptr () -> IO CInt
-
--- | wrapper for double gsl_sf_hzeta(double s,double q);
---
---   <http://www.google.com/search?q=gsl_sf_hzeta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 hzeta :: Double -> Double -> Double
 hzeta = gsl_sf_hzeta
 foreign import ccall "gsl_sf_hzeta" gsl_sf_hzeta :: Double -> Double -> Double
-
--- | wrapper for int gsl_sf_eta_int_e(int n,gsl_sf_result* result);
---
---   <http://www.google.com/search?q=gsl_sf_eta_int_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 eta_int_e :: CInt -> (Double,Double)
 eta_int_e n = createSFR "eta_int_e" $ gsl_sf_eta_int_e n
 foreign import ccall "gsl_sf_eta_int_e" gsl_sf_eta_int_e :: CInt -> Ptr () -> IO CInt
-
--- | wrapper for double gsl_sf_eta_int(int n);
---
---   <http://www.google.com/search?q=gsl_sf_eta_int&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 eta_int :: CInt -> Double
 eta_int = gsl_sf_eta_int
 foreign import ccall "gsl_sf_eta_int" gsl_sf_eta_int :: CInt -> Double
-
--- | wrapper for int gsl_sf_eta_e(double s,gsl_sf_result* result);
---
---   <http://www.google.com/search?q=gsl_sf_eta_e&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 eta_e :: Double -> (Double,Double)
 eta_e s = createSFR "eta_e" $ gsl_sf_eta_e s
 foreign import ccall "gsl_sf_eta_e" gsl_sf_eta_e :: Double -> Ptr () -> IO CInt
-
--- | wrapper for double gsl_sf_eta(double s);
---
---   <http://www.google.com/search?q=gsl_sf_eta&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
 eta :: Double -> Double
 eta = gsl_sf_eta
 foreign import ccall "gsl_sf_eta" gsl_sf_eta :: Double -> Double