Télécharger fau_m1.eso

Retour à la liste

Numérotation des lignes :

  1. C FAU_M1 SOURCE BECC 10/05/05 21:15:00 6674
  2. function fau_m1(M,coef)
  3. C
  4. real*8 fau_m1, M, coef
  5. C
  6. C coef = 1.0D0 for m1_plus
  7. C coef = -1.0D0 for m1_minus
  8. C
  9. fau_m1 = M + (coef * abs(M))
  10. fau_m1 = fau_m1 * 0.5D0
  11. C
  12. return
  13. end
  14.  
  15.  
  16.  
  17.  

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