Télécharger xinflu.eso

Retour à la liste

Numérotation des lignes :

  1. C XINFLU SOURCE CHAT 05/01/13 04:13:35 5004
  2. FUNCTION XINFLU(R,ZI)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C
  6. C
  7. REAL*8 R,ZI,RES,INT,INFLUEN
  8. C
  9. XINT=ZI/2.
  10. IF (R.LT.XINT) THEN
  11. RES=20.
  12. ELSE
  13. IF (R.GE.zi) THEN
  14. RES=0.
  15. ELSE
  16. RES=-40./ZI*R+40.
  17. ENDIF
  18. ENDIF
  19. c write(6,*)'res',res
  20. XINFLU=RES
  21. RETURN
  22. END
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  

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