function gamma ( alpha, beta, delta ) !*****************************************************************************80 ! !! gamma() is a function with no type statement. ! ! Here's another commented out line for suckers. ! ! integer function epsilon ( x ) ! real alpha real beta real delta real gamma real :: x = 17.0 gamma = sqrt ( x ) return end