Télécharger fbg1.eso

Retour à la liste

Numérotation des lignes :

  1. C FBG1 SOURCE CHAT 05/01/12 23:56:57 5004
  2.  
  3.  
  4. C=====================================================================
  5. C=====================================================================
  6. C BGFUNCIONES SOURCE MARINO ARROYO 99/05/20
  7. C
  8. FUNCTION FBG1(T)
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8 (A-H,O-Z)
  11.  
  12. t1 = t**2
  13. t2 = t1**2
  14. t4 = t2**2
  15. t5 = t4**2
  16. t6 = t5**2
  17. t7 = t6**2
  18. t10 = 1.D0/(0.2126494641379152D-89*t7*t2*t1+1.D0)
  19. t13 = 1.D0/(0.1316872427983539D0*t2*t+1.D0)
  20. t14 = -0.156710172162D4-3020.D0*t10-0.595089827838D4*t13-0.1146775
  21. #430405D2*t1+0.458710172162D3*t
  22. t17 = abs(t14)/t14
  23. t26 = 31536000.D0*exp(-0.2514499507768026D2-0.8765881258141834D0*t
  24. #17+0.580521937625287D-3*(1.D0/2.D0+t17/2.D0)*(0.458710172162D4+302
  25. #0.D0*t10+0.595089827838D4*t13+0.1146775430405D2*t1-0.458710172162D
  26. #3*t)+0.3152398523064585D-3*(1.D0/2.D0-t17/2.D0)*(0.156710172162D4+
  27. #3020.D0*t10+0.595089827838D4*t13+0.1146775430405D2*t1-0.4587101721
  28. #62D3*t))
  29. FBG1=T26
  30. RETURN
  31. END
  32.  
  33.  
  34.  

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