import qualified Data.Array.Repa as R
import Test.QuickCheck (Arbitrary(..), Gen, Positive(..))
import qualified Data.Array.Repa as R
import Test.QuickCheck (Arbitrary(..), Gen, Positive(..))
k' = (fromIntegral k) / (fromIntegral sfz)
p = (i', j', k') :: Point
c = find_containing_cube g p
k' = (fromIntegral k) / (fromIntegral sfz)
p = (i', j', k') :: Point
c = find_containing_cube g p