undDoubleInt :: Double -> Int
roundDoubleInt x = double2Int (c_rintDouble x)


roundDoubleInt :: Double -> Int
roundDoubleInt x = double2Int (c_rintDouble x)
roundDoubleInt x = double2Int (c_rintDouble x)