function nearest_integer, real
 x = long(10*(real-long(real)))
 if x lt 5 then i = long(real)
 if x ge 5 then i = long(real)+1
 return,i
end