%N delim %F $MIR/src/subs/utilities.for
%D Make sure value is between limits
%P bpw
%: utilities
%B
      integer          function delimi ( ivalue, iminvalue, imaxvalue )
      real             function delimr ( rvalue, rminvalue, rmaxvalue )
      double precision function delimd ( dvalue, dminvalue, dmaxvalue )
      integer          iminvalue, imaxvalue, ivalue
      real             rminvalue, rmaxvalue, rvalue
      double precision dminvalue, dmaxvalue, dvalue

 This returns minvalue if value<minvalue, maxvalue if value>maxvalue and
 value otherwise.

 Input:
   value:     value to check
   minvalue:  minimum delimiting value
   maxvalue:  maximum delimiting value
