Esope source files

   1 : C KTETMC    SOURCE    CHAT      05/01/13    01:10:41     5004           
   2 : 
   3 :              FUNCTION KTETMC (T)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       real*8 t,aa,bb,ktetMC
   6 :       real*8            coh,phi,ar,tmax,aap,aan,bbp,bbn
   7 :       common /rhmcdata/ coh,phi,ar,tmax,aap,aan,bbp,bbn
   8 :       if (abs(t).gt.tmax) then
   9 :         aa = aap
  10 :         bb = bbp
  11 :         if (t.lt.0.D0) then
  12 :          aa = aan
  13 :          bb = bbn
  14 :         endif
  15 :         ktetMC = aa-bb*sin(3.D0*t)
  16 :       else
  17 :         ktetMC = cos(t)-sin(phi)*sin(t)/sqrt(3.D0)
  18 :       endif
  19 :       return
  20 :       end
  21 :  
  22 :