# round.awk --- do normal rounding

#

# Arnold Robbins, arnold@skeeve.com, Public Domain

# August, 1996

function round(x,   ival, aval, fraction)

{

   ival = int(x)    # integer part, int() truncates

   # see if fractional part

   if (ival == x)   # no fraction

      return ival   # ensure no decimals

   if (x < 0) {

      aval = -x     # absolute value

      ival = int(aval)

      fraction = aval - ival

      if (fraction >= .5)

         return int(x) - 1   # -2.5 --> -3

      else

         return int(x)       # -2.3 --> -2

   } else {

      fraction = x - ival

      if (fraction >= .5)

         return ival + 1

      else

         return ival

   }

}