source: trunk/libf/phytitan/averge.F @ 130

Last change on this file since 130 was 3, checked in by slebonnois, 15 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: 89 bytes
Line 
1      FUNCTION AVERGE(X,Y)
2      AVERGE = .5*SQRT(X*Y)+0.25*(X+Y)
3      RETURN
4      END
Note: See TracBrowser for help on using the repository browser.