Télécharger ddktet.eso

Retour à la liste

Numérotation des lignes :

  1. C DDKTET SOURCE CHAT 05/01/12 22:38:04 5004
  2.  
  3. FUNCTION DERDERKTETMC (T)
  4. IMPLICIT INTEGER(I-N)
  5. real*8 t,derderktetMC
  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. derderktetMC=0.D0
  10. else
  11. derderktetMC=-cos(t)+sin(phi)*sin(t)/sqrt(3.D0)
  12. endif
  13. return
  14. end
  15.  
  16.  
  17.  
  18.  

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