Function R2I

Convert Real to Integer