integer function epsilon ( x ) ! !*****************************************************************************80 ! !! EPSILON is an integer function with type statement. ! integer x epsilon = x + 1 return end