source: trunk/LMDZ.TITAN.old/libf/phytitan/fi8.F

Last change on this file was 3, checked in by slebonnois, 14 years ago

Creation de repertoires:

  • chantiers : pour communiquer sur nos projets de modifs
  • documentation : pour stocker les docs

Ajout de:

  • libf/phytitan : physique de Titan
  • libf/chimtitan: chimie de Titan
  • libf/phyvenus : physique de Venus
File size: 134 bytes
Line 
1      FUNCTION FI8(X)
2      IMPLICIT REAL (A-H,O-Z)
3      FI8=.3737/X+3.718903-.1908*X+.1617*X*X-3.633E-3*X**3
4      RETURN
5      END
Note: See TracBrowser for help on using the repository browser.