Sources Esope | Cast3M

derkte
C DERKTE    SOURCE    CHAT      05/01/12    22:43:07     5004
 
             FUNCTION DERKTETMC (T)
      IMPLICIT INTEGER(I-N)
      real*8 t,derktetMC
      real*8            coh,phi,ar,tmax,aap,aan,bbp,bbn
      common /rhmcdata/ coh,phi,ar,tmax,aap,aan,bbp,bbn
      if (abs(t).gt.tmax) then
        derktetMC=0.D0
      else
        derktetMC=-sin(t)-sin(phi)*cos(t)/sqrt(3.D0)
      endif
      return
      end