Télécharger floz.eso

Retour à la liste

Numérotation des lignes :

  1. C FLOZ SOURCE CHAT 05/03/07 21:15:05 5041
  2. FUNCTION FLOZ(UPSI,Z,Y1,Y2,SQ22Z,SQ21Z,SQ12Z,SQ11Z)
  3. IMPLICIT REAL*8 (A-H,O-Z)
  4. IMPLICIT INTEGER(I-N)
  5. FLOZ=0.D0
  6. IF(ABS(Z).LT.UPSI) RETURN
  7. FLOZ=-Z*LOG(((Y2+SQ22Z)*(Y1+SQ11Z))/((Y2+SQ12Z)*(Y1+SQ21Z)))
  8. RETURN
  9. END
  10.  
  11.  

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