Sources Esope | Cast3M

ddktet
C DDKTET    SOURCE    CHAT      05/01/12    22:38:04     5004
 
             FUNCTION DERDERKTETMC (T)
      IMPLICIT INTEGER(I-N)
      real*8 t,derderktetMC
      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
        derderktetMC=0.D0
      else
        derderktetMC=-cos(t)+sin(phi)*sin(t)/sqrt(3.D0)
      endif
      return
      end