Esope source files

   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 :