From bbf07a5b76cf196007adcfe2bfc954440843ce2f Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sat, 20 Feb 2010 13:14:04 +0000 Subject: safe-cheap flag --- lib/Numeric/GSL/Special/Erf.hs | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'lib/Numeric/GSL/Special/Erf.hs') diff --git a/lib/Numeric/GSL/Special/Erf.hs b/lib/Numeric/GSL/Special/Erf.hs index 34ade6f..258afd3 100644 --- a/lib/Numeric/GSL/Special/Erf.hs +++ b/lib/Numeric/GSL/Special/Erf.hs @@ -33,48 +33,48 @@ import Numeric.GSL.Special.Internal erfc_e :: Double -> (Double,Double) erfc_e x = createSFR "erfc_e" $ gsl_sf_erfc_e x -foreign import ccall "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_erfc_e" gsl_sf_erfc_e :: Double -> Ptr () -> IO CInt erfc :: Double -> Double erfc = gsl_sf_erfc -foreign import ccall "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_erfc" gsl_sf_erfc :: Double -> Double log_erfc_e :: Double -> (Double,Double) log_erfc_e x = createSFR "log_erfc_e" $ gsl_sf_log_erfc_e x -foreign import ccall "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_log_erfc_e" gsl_sf_log_erfc_e :: Double -> Ptr () -> IO CInt log_erfc :: Double -> Double log_erfc = gsl_sf_log_erfc -foreign import ccall "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_log_erfc" gsl_sf_log_erfc :: Double -> Double erf_e :: Double -> (Double,Double) erf_e x = createSFR "erf_e" $ gsl_sf_erf_e x -foreign import ccall "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_erf_e" gsl_sf_erf_e :: Double -> Ptr () -> IO CInt erf :: Double -> Double erf = gsl_sf_erf -foreign import ccall "gsl_sf_erf" gsl_sf_erf :: Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_erf" gsl_sf_erf :: Double -> Double erf_Z_e :: Double -> (Double,Double) erf_Z_e x = createSFR "erf_Z_e" $ gsl_sf_erf_Z_e x -foreign import ccall "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_erf_Z_e" gsl_sf_erf_Z_e :: Double -> Ptr () -> IO CInt erf_Q_e :: Double -> (Double,Double) erf_Q_e x = createSFR "erf_Q_e" $ gsl_sf_erf_Q_e x -foreign import ccall "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_erf_Q_e" gsl_sf_erf_Q_e :: Double -> Ptr () -> IO CInt erf_Z :: Double -> Double erf_Z = gsl_sf_erf_Z -foreign import ccall "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_erf_Z" gsl_sf_erf_Z :: Double -> Double erf_Q :: Double -> Double erf_Q = gsl_sf_erf_Q -foreign import ccall "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_erf_Q" gsl_sf_erf_Q :: Double -> Double hazard_e :: Double -> (Double,Double) hazard_e x = createSFR "hazard_e" $ gsl_sf_hazard_e x -foreign import ccall "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt +foreign import ccall SAFE_CHEAP "gsl_sf_hazard_e" gsl_sf_hazard_e :: Double -> Ptr () -> IO CInt hazard :: Double -> Double hazard = gsl_sf_hazard -foreign import ccall "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double +foreign import ccall SAFE_CHEAP "gsl_sf_hazard" gsl_sf_hazard :: Double -> Double -- cgit v1.2.3