Télécharger bpsat.eso

Retour à la liste

Numérotation des lignes :

  1. C BPSAT SOURCE CHAT 05/01/12 21:42:34 5004
  2. FUNCTION BPSAT(T)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C
  6. C operateur FUITE
  7. C>>> calcule la pression de saturation de la vapeur en Pa
  8. C T : temperature du fluide en ›K
  9. C
  10. BPSAT=1.05E26*(T**(-5.))*EXP(-7000/T)
  11. RETURN
  12. END
  13.  
  14.  
  15.  

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