!  GeCos2.f90
!
!  Axel Drees, Uni Heidelberg, September 1997
!
!   calculate weight of 1+cos(theta)**2 
!   input cos(theta) from -1. to 1.
real function GeCos2(x)
     real  :: x      
     GeCos2=1+x**2
end function GeCos2