{-# OPTIONS_GHC -cpp -fglasgow-exts #-}
module Unboxed where

import GHC.IOBase       ( IO(..) )
import GHC.Base
import GHC.Float        ( Double(..) )

readVarDouble arr =  IO ( \s ->
    case readDoubleArray# arr 0# s of { (# s, value# #) ->
    (# s, D# value# #) } )