qd-0.1: Numeric/QD/Bits/Raw.hs

{-# LANGUAGE ForeignFunctionInterface #-}
module Numeric.QD.Bits.Raw
  ( get_double_expn
  ) where

import Foreign.C (CDouble, CInt)

foreign import ccall unsafe "qd/bits.h get_double_expn" get_double_expn :: CDouble -> IO CInt