created package hmatrix-special

1 files changed, 0 insertions, 236 deletions

diff --git a/lib/Numeric/GSL/Special/Gamma.hs b/lib/Numeric/GSL/Special/Gamma.hs
deleted file mode 100644
index 03b39c4..0000000
--- a/lib/Numeric/GSL/Special/Gamma.hs
+++ /dev/null
@@ -1,236 +0,0 @@
-------------------------------------------------------------
--- |
--- Module      :  Numeric.GSL.Special.Gamma
--- 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_gamma.h&as_sitesearch=www.gnu.org/software/gsl/manual&btnI=Lucky>
-------------------------------------------------------------
-
-module Numeric.GSL.Special.Gamma(
-  lngamma_e
-, lngamma
-, gamma_e
-, gamma
-, gammastar_e
-, gammastar
-, gammainv_e
-, gammainv
-, taylorcoeff_e
-, taylorcoeff
-, fact_e
-, fact
-, doublefact_e
-, doublefact
-, lnfact_e
-, lnfact
-, lndoublefact_e
-, lndoublefact
-, lnchoose_e
-, lnchoose
-, choose_e
-, choose
-, lnpoch_e
-, lnpoch
-, poch_e
-, poch
-, pochrel_e
-, pochrel
-, gamma_inc_Q_e
-, gamma_inc_Q
-, gamma_inc_P_e
-, gamma_inc_P
-, gamma_inc_e
-, gamma_inc
-, lnbeta_e
-, lnbeta
-, beta_e
-, beta
-, beta_inc_e
-, beta_inc
-) where
-
-import Foreign(Ptr)
-import Foreign.C.Types(CInt)
-import Numeric.GSL.Special.Internal
-
-lngamma_e :: Double -> (Double,Double)
-lngamma_e x = createSFR "lngamma_e" $ gsl_sf_lngamma_e x
-foreign import ccall SAFE_CHEAP "gsl_sf_lngamma_e" gsl_sf_lngamma_e :: Double -> Ptr () -> IO CInt
-
-lngamma :: Double -> Double
-lngamma = gsl_sf_lngamma
-foreign import ccall SAFE_CHEAP "gsl_sf_lngamma" gsl_sf_lngamma :: Double -> Double
-
-lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt
-lngamma_sgn_e = gsl_sf_lngamma_sgn_e
-foreign import ccall SAFE_CHEAP "gsl_sf_lngamma_sgn_e" gsl_sf_lngamma_sgn_e :: Double -> Ptr () -> Ptr Double -> CInt
-
-gamma_e :: Double -> (Double,Double)
-gamma_e x = createSFR "gamma_e" $ gsl_sf_gamma_e x
-foreign import ccall SAFE_CHEAP "gsl_sf_gamma_e" gsl_sf_gamma_e :: Double -> Ptr () -> IO CInt
-
-gamma :: Double -> Double
-gamma = gsl_sf_gamma
-foreign import ccall SAFE_CHEAP "gsl_sf_gamma" gsl_sf_gamma :: Double -> Double
-
-gammastar_e :: Double -> (Double,Double)
-gammastar_e x = createSFR "gammastar_e" $ gsl_sf_gammastar_e x
-foreign import ccall SAFE_CHEAP "gsl_sf_gammastar_e" gsl_sf_gammastar_e :: Double -> Ptr () -> IO CInt
-
-gammastar :: Double -> Double
-gammastar = gsl_sf_gammastar
-foreign import ccall SAFE_CHEAP "gsl_sf_gammastar" gsl_sf_gammastar :: Double -> Double
-
-gammainv_e :: Double -> (Double,Double)
-gammainv_e x = createSFR "gammainv_e" $ gsl_sf_gammainv_e x
-foreign import ccall SAFE_CHEAP "gsl_sf_gammainv_e" gsl_sf_gammainv_e :: Double -> Ptr () -> IO CInt
-
-gammainv :: Double -> Double
-gammainv = gsl_sf_gammainv
-foreign import ccall SAFE_CHEAP "gsl_sf_gammainv" gsl_sf_gammainv :: Double -> Double
-
-lngamma_complex_e :: Double -> Double -> Ptr () -> (Double,Double)
-lngamma_complex_e zr zi lnr = createSFR "lngamma_complex_e" $ gsl_sf_lngamma_complex_e zr zi lnr
-foreign import ccall SAFE_CHEAP "gsl_sf_lngamma_complex_e" gsl_sf_lngamma_complex_e :: Double -> Double -> Ptr () -> Ptr () -> IO CInt
-
-taylorcoeff_e :: CInt -> Double -> (Double,Double)
-taylorcoeff_e n x = createSFR "taylorcoeff_e" $ gsl_sf_taylorcoeff_e n x
-foreign import ccall SAFE_CHEAP "gsl_sf_taylorcoeff_e" gsl_sf_taylorcoeff_e :: CInt -> Double -> Ptr () -> IO CInt
-
-taylorcoeff :: CInt -> Double -> Double
-taylorcoeff = gsl_sf_taylorcoeff
-foreign import ccall SAFE_CHEAP "gsl_sf_taylorcoeff" gsl_sf_taylorcoeff :: CInt -> Double -> Double
-
-fact_e :: CInt -> (Double,Double)
-fact_e n = createSFR "fact_e" $ gsl_sf_fact_e n
-foreign import ccall SAFE_CHEAP "gsl_sf_fact_e" gsl_sf_fact_e :: CInt -> Ptr () -> IO CInt
-
-fact :: CInt -> Double
-fact = gsl_sf_fact
-foreign import ccall SAFE_CHEAP "gsl_sf_fact" gsl_sf_fact :: CInt -> Double
-
-doublefact_e :: CInt -> (Double,Double)
-doublefact_e n = createSFR "doublefact_e" $ gsl_sf_doublefact_e n
-foreign import ccall SAFE_CHEAP "gsl_sf_doublefact_e" gsl_sf_doublefact_e :: CInt -> Ptr () -> IO CInt
-
-doublefact :: CInt -> Double
-doublefact = gsl_sf_doublefact
-foreign import ccall SAFE_CHEAP "gsl_sf_doublefact" gsl_sf_doublefact :: CInt -> Double
-
-lnfact_e :: CInt -> (Double,Double)
-lnfact_e n = createSFR "lnfact_e" $ gsl_sf_lnfact_e n
-foreign import ccall SAFE_CHEAP "gsl_sf_lnfact_e" gsl_sf_lnfact_e :: CInt -> Ptr () -> IO CInt
-
-lnfact :: CInt -> Double
-lnfact = gsl_sf_lnfact
-foreign import ccall SAFE_CHEAP "gsl_sf_lnfact" gsl_sf_lnfact :: CInt -> Double
-
-lndoublefact_e :: CInt -> (Double,Double)
-lndoublefact_e n = createSFR "lndoublefact_e" $ gsl_sf_lndoublefact_e n
-foreign import ccall SAFE_CHEAP "gsl_sf_lndoublefact_e" gsl_sf_lndoublefact_e :: CInt -> Ptr () -> IO CInt
-
-lndoublefact :: CInt -> Double
-lndoublefact = gsl_sf_lndoublefact
-foreign import ccall SAFE_CHEAP "gsl_sf_lndoublefact" gsl_sf_lndoublefact :: CInt -> Double
-
-lnchoose_e :: CInt -> CInt -> (Double,Double)
-lnchoose_e n m = createSFR "lnchoose_e" $ gsl_sf_lnchoose_e n m
-foreign import ccall SAFE_CHEAP "gsl_sf_lnchoose_e" gsl_sf_lnchoose_e :: CInt -> CInt -> Ptr () -> IO CInt
-
-lnchoose :: CInt -> CInt -> Double
-lnchoose = gsl_sf_lnchoose
-foreign import ccall SAFE_CHEAP "gsl_sf_lnchoose" gsl_sf_lnchoose :: CInt -> CInt -> Double
-
-choose_e :: CInt -> CInt -> (Double,Double)
-choose_e n m = createSFR "choose_e" $ gsl_sf_choose_e n m
-foreign import ccall SAFE_CHEAP "gsl_sf_choose_e" gsl_sf_choose_e :: CInt -> CInt -> Ptr () -> IO CInt
-
-choose :: CInt -> CInt -> Double
-choose = gsl_sf_choose
-foreign import ccall SAFE_CHEAP "gsl_sf_choose" gsl_sf_choose :: CInt -> CInt -> Double
-
-lnpoch_e :: Double -> Double -> (Double,Double)
-lnpoch_e a x = createSFR "lnpoch_e" $ gsl_sf_lnpoch_e a x
-foreign import ccall SAFE_CHEAP "gsl_sf_lnpoch_e" gsl_sf_lnpoch_e :: Double -> Double -> Ptr () -> IO CInt
-
-lnpoch :: Double -> Double -> Double
-lnpoch = gsl_sf_lnpoch
-foreign import ccall SAFE_CHEAP "gsl_sf_lnpoch" gsl_sf_lnpoch :: Double -> Double -> Double
-
-lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
-lnpoch_sgn_e = gsl_sf_lnpoch_sgn_e
-foreign import ccall SAFE_CHEAP "gsl_sf_lnpoch_sgn_e" gsl_sf_lnpoch_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
-
-poch_e :: Double -> Double -> (Double,Double)
-poch_e a x = createSFR "poch_e" $ gsl_sf_poch_e a x
-foreign import ccall SAFE_CHEAP "gsl_sf_poch_e" gsl_sf_poch_e :: Double -> Double -> Ptr () -> IO CInt
-
-poch :: Double -> Double -> Double
-poch = gsl_sf_poch
-foreign import ccall SAFE_CHEAP "gsl_sf_poch" gsl_sf_poch :: Double -> Double -> Double
-
-pochrel_e :: Double -> Double -> (Double,Double)
-pochrel_e a x = createSFR "pochrel_e" $ gsl_sf_pochrel_e a x
-foreign import ccall SAFE_CHEAP "gsl_sf_pochrel_e" gsl_sf_pochrel_e :: Double -> Double -> Ptr () -> IO CInt
-
-pochrel :: Double -> Double -> Double
-pochrel = gsl_sf_pochrel
-foreign import ccall SAFE_CHEAP "gsl_sf_pochrel" gsl_sf_pochrel :: Double -> Double -> Double
-
-gamma_inc_Q_e :: Double -> Double -> (Double,Double)
-gamma_inc_Q_e a x = createSFR "gamma_inc_Q_e" $ gsl_sf_gamma_inc_Q_e a x
-foreign import ccall SAFE_CHEAP "gsl_sf_gamma_inc_Q_e" gsl_sf_gamma_inc_Q_e :: Double -> Double -> Ptr () -> IO CInt
-
-gamma_inc_Q :: Double -> Double -> Double
-gamma_inc_Q = gsl_sf_gamma_inc_Q
-foreign import ccall SAFE_CHEAP "gsl_sf_gamma_inc_Q" gsl_sf_gamma_inc_Q :: Double -> Double -> Double
-
-gamma_inc_P_e :: Double -> Double -> (Double,Double)
-gamma_inc_P_e a x = createSFR "gamma_inc_P_e" $ gsl_sf_gamma_inc_P_e a x
-foreign import ccall SAFE_CHEAP "gsl_sf_gamma_inc_P_e" gsl_sf_gamma_inc_P_e :: Double -> Double -> Ptr () -> IO CInt
-
-gamma_inc_P :: Double -> Double -> Double
-gamma_inc_P = gsl_sf_gamma_inc_P
-foreign import ccall SAFE_CHEAP "gsl_sf_gamma_inc_P" gsl_sf_gamma_inc_P :: Double -> Double -> Double
-
-gamma_inc_e :: Double -> Double -> (Double,Double)
-gamma_inc_e a x = createSFR "gamma_inc_e" $ gsl_sf_gamma_inc_e a x
-foreign import ccall SAFE_CHEAP "gsl_sf_gamma_inc_e" gsl_sf_gamma_inc_e :: Double -> Double -> Ptr () -> IO CInt
-
-gamma_inc :: Double -> Double -> Double
-gamma_inc = gsl_sf_gamma_inc
-foreign import ccall SAFE_CHEAP "gsl_sf_gamma_inc" gsl_sf_gamma_inc :: Double -> Double -> Double
-
-lnbeta_e :: Double -> Double -> (Double,Double)
-lnbeta_e a b = createSFR "lnbeta_e" $ gsl_sf_lnbeta_e a b
-foreign import ccall SAFE_CHEAP "gsl_sf_lnbeta_e" gsl_sf_lnbeta_e :: Double -> Double -> Ptr () -> IO CInt
-
-lnbeta :: Double -> Double -> Double
-lnbeta = gsl_sf_lnbeta
-foreign import ccall SAFE_CHEAP "gsl_sf_lnbeta" gsl_sf_lnbeta :: Double -> Double -> Double
-
-lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
-lnbeta_sgn_e = gsl_sf_lnbeta_sgn_e
-foreign import ccall SAFE_CHEAP "gsl_sf_lnbeta_sgn_e" gsl_sf_lnbeta_sgn_e :: Double -> Double -> Ptr () -> Ptr Double -> CInt
-
-beta_e :: Double -> Double -> (Double,Double)
-beta_e a b = createSFR "beta_e" $ gsl_sf_beta_e a b
-foreign import ccall SAFE_CHEAP "gsl_sf_beta_e" gsl_sf_beta_e :: Double -> Double -> Ptr () -> IO CInt
-
-beta :: Double -> Double -> Double
-beta = gsl_sf_beta
-foreign import ccall SAFE_CHEAP "gsl_sf_beta" gsl_sf_beta :: Double -> Double -> Double
-
-beta_inc_e :: Double -> Double -> Double -> (Double,Double)
-beta_inc_e a b x = createSFR "beta_inc_e" $ gsl_sf_beta_inc_e a b x
-foreign import ccall SAFE_CHEAP "gsl_sf_beta_inc_e" gsl_sf_beta_inc_e :: Double -> Double -> Double -> Ptr () -> IO CInt
-
-beta_inc :: Double -> Double -> Double -> Double
-beta_inc = gsl_sf_beta_inc
-foreign import ccall SAFE_CHEAP "gsl_sf_beta_inc" gsl_sf_beta_inc :: Double -> Double -> Double -> Double