Télécharger fbg4.eso

Retour à la liste

Numérotation des lignes :

  1. C FBG4 SOURCE CHAT 05/01/12 23:57:06 5004
  2.  
  3. FUNCTION FBG4(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. t9 = 0.2126494641379152D-89*t7*t2*t1+1.D0
  14. t10 = t9**2
  15. t14 = t7**2
  16. t21 = 0.1316872427983539D0*t2*t+1.D0
  17. t22 = t21**2
  18. t29 = -0.1338325040926625D-171/t10/t9*t14*t4*t1+0.3101832673594114
  19. #D-82/t10*t7*t2-0.5159884026030178D4/t22/t21*t4+0.1567314772906667D
  20. #5/t22*t1*t-0.229355086081D2
  21. FBG4=T29
  22. RETURN
  23. END
  24.  
  25.  
  26.  

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