!
!$Author: joelevin $
!$Date: 2011-03-24 11:33:26 -0500 (Thu, 24 Mar 2011) $
!$Revision: 11724 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/lib_mproc/func.for $
!
       
	   real function func(y)
!
!  This function is just the equation for a straight line 
!  and is used with trapzd.for which performs the integral
!  of this line.  The function is used for the triangular root distribution. 
!  Other equations for a line can also be used if the distribution
!  is not triangular.
       real y 
       
	   func=0.5*y 

	   end