!
!$Author$
!$Date$
!$Revision$
!$HeadURL$
!

      real function func(y)
c
c  This function is just the equation for a strait line
c  and is used with trapzd.for which performs the integral
c  of this line.  The function is used for the triangular root distribution.
c  Other equations for a line can also be used if the distribution
c  is not triangular.
       real y

      func=0.5*y

      return
      end