C CWWFUN    SOURCE    CHAT      05/01/12    22:33:58     5004           
c
                 FUNCTION C_WWFUNC(T,E)
      IMPLICIT INTEGER(I-N)
      complex*16 t,aux1,aux2,aux3,cost,c_wwfunc
      real*8 e
      cost=cos(t)
      aux1=1.D0-e**2
      aux2=4.D0*aux1*cost**2
      aux3=2.D0*e-1.D0
      c_wwfunc=(aux3**2+aux2)/
     .       (2.D0*aux1*cost+aux3*sqrt(aux2+5.D0*e**2-4.D0*e))
      return
      end