Télécharger ktetmc.eso

Retour à la liste

Numérotation des lignes :

  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.  
  23.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales