function floor,X


on_error,1
if n_elements(X) eq 0 then message,' Variable is undefined:  '

return, long(X) - (X lt 0)*(X ne long(X))
end