Télécharger fbg6.eso

Retour à la liste

Numérotation des lignes :

  1. C FBG6 SOURCE CHAT 05/01/12 23:57:13 5004
  2.  
  3.  
  4. FUNCTION FBG6(T)
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8 (A-H,O-Z)
  7.  
  8. t1 = t**5.D0
  9. t4 = 0.2538648D-1-0.252288D-1/(1.D0+0.32D2*t1)
  10. FBG6=t4
  11. RETURN
  12. END
  13.  
  14.  
  15.  

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