Télécharger wwfunc.eso

Retour à la liste

Numérotation des lignes :

  1. C WWFUNC SOURCE CB215821 16/04/21 21:18:42 8920
  2. CCC
  3. C **********************************************************************
  4. CCC
  5. FUNCTION WWFUNC(T,E)
  6. IMPLICIT INTEGER(I-N)
  7. real*8 t,e,aux1,aux2,aux3,cost,wwfunc
  8. cost=COS(t)
  9. aux1=1.D0-e**2
  10. aux2=4.D0*aux1*cost**2
  11. aux3=2.D0*e-1.D0
  12. wwfunc=(aux3**2+aux2)/
  13. . (2.D0*aux1*cost+aux3*SQRT(aux2+5.D0*e**2-4.D0*e))
  14. return
  15. end
  16.  
  17.  
  18.  
  19.  
  20.  

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