Télécharger fbg3.eso

Retour à la liste

Numérotation des lignes :

  1. C FBG3 SOURCE CHAT 05/01/12 23:57:03 5004
  2.  
  3. FUNCTION FBG3(T)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6.  
  7. t1 = t**2
  8. t2 = t1**2
  9. t4 = t2**2
  10. t5 = t4**2
  11. t6 = t5**2
  12. t7 = t6**2
  13. t10 = (0.2126494641379152D-89*t7*t2*t1+1.D0)**2.D0
  14. t12 = t2*t
  15. t16 = (0.1316872427983539D0*t12+1.D0)**2.D0
  16. t19 = 0.4495409671875527D-84/t10*t7*t12+0.3918286932266667D4/t16*t
  17. #2+0.458710172162D3-0.229355086081D2*t
  18. FBG3=T19
  19. RETURN
  20. END
  21.  
  22.  
  23.  

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