Télécharger fbg5.eso

Retour à la liste

Numérotation des lignes :

  1. C FBG5 SOURCE CHAT 05/01/12 23:57:10 5004
  2.  
  3. FUNCTION FBG5(T)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6.  
  7. t1 = t**70.D0
  8. t4 = t**5.D0
  9. t7 = 0.1005524820235976D1-0.2009049640471953D0/(0.307077455497043D
  10. #-89*t1+1.D0)-0.8036198561887811D0/(0.1903968584518355D-2*t4+1.D0)
  11. FBG5=t7
  12. RETURN
  13. END
  14.  
  15.  
  16.  

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