undDoubleInteger :: Double -> Integer
roundDoubleInteger x = double2Integer (c_rintDouble x)


roundDoubleInteger :: Double -> Integer
roundDoubleInteger x = double2Integer (c_rintDouble x)
roundDoubleInteger x = double2Integer (c_rintDouble x)