Intrinsic-64 Floor

64: real:=Floor(value(real);

Floor returns the highest integer less than or equal to the argument.