%N entier %F $MIR/src/subs/utilities.for
%D The entier function
%: utilities
%P bpw
%B
      integer function entier(x)
      real             x

 This returns the entier of x, i.e. the next integer smaller than x.

 Input:
   x: real value to take the entier of
