function rfix,num ; Nearest Integer function if n_params() lt 1 then return,0 if num ge 0.0 then res=fix(num+0.5D0) else res=fix(num-0.5D0) return,res end