Télécharger epspre.eso

Retour à la liste

Numérotation des lignes :

  1. C EPSPRE SOURCE CHAT 05/01/12 23:42:54 5004
  2. SUBROUTINE EPSPRE(X,Y,EPS,ICLE)
  3. C
  4. C VERIFIE SI Y EST EGAL A X A PES PRES
  5. C
  6. C SI OUI ICLE =1
  7. C SI NON ICLE =0
  8. C
  9. IMPLICIT INTEGER(I-N)
  10. IMPLICIT REAL*8(A-H,O-Z)
  11. C
  12. ICLE=1
  13. YM=Y-EPS
  14. YP=Y+EPS
  15. IF(X.GE.YM.AND.X.LE.YP) RETURN
  16. ICLE=0
  17. RETURN
  18. END
  19.  
  20.  

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