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