Esope source files

   1 : C EGALDP    SOURCE    CHAT      05/01/12    23:28:40     5004           
   2 :       LOGICAL FUNCTION EGALDP (X,Y,PRECIS)                                      
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             E_G_A_L D_P                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *                                                                               
  11 : *     DIRE SI 2 REELS DEFINIS EN DOUBLE PRECISION SONT A PEU PRES EGAUX.        
  12 : *                                                                               
  13 : * MODULES UTILISES:                                                             
  14 : * -----------------                                                             
  15 : *                                                                               
  16 :       IMPLICIT INTEGER(I-N)
  17 : -INC CCREEL                                                                     
  18 : *                                                                               
  19 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  20 : * -----------                                                                   
  21 : *                                                                               
  22 : *     X       (E)  1ER TERME DE COMPARAISON.                                    
  23 : *     Y       (E)  2EME TERME DE COMPARAISON.                                   
  24 : *     PRECIS  (E)  PRECISION ACCEPTEE POUR DIRE SI EGAUX.                       
  25 : *    +XPETIT  (E)  VOIR LE COMMUN "CCREEL".                                     
  26 : *     EGALDP  (S)  = .TRUE. SI "X" ET "Y" SONT A PEU PRES EGAUX.                
  27 : *                  = .FALSE. SINON.                                             
  28 : *                                                                               
  29 :       REAL*8 X,Y,PRECIS                                                         
  30 : *                                                                               
  31 : * CREATION, MODIFICATIONS:                                                      
  32 : * ------------------------                                                      
  33 : *                                                                               
  34 : *     PASCAL MANIGOT     26 FEVRIER 1988                                        
  35 : *                                                                               
  36 : ************************************************************************        
  37 : *                                                                               
  38 :       IF (ABS(X) .LT. XPETIT) THEN                                              
  39 :          EGALDP = ABS(Y).LE.XPETIT                                              
  40 :       ELSE                                                                      
  41 :          EGALDP = (X*(1.-SIGN(PRECIS,X))).LE.Y                                  
  42 :      &           .AND. Y.LE.(X*(1.+SIGN(PRECIS,X)))                             
  43 :       END IF                                                                    
  44 : *                                                                               
  45 :       END                                                                       
  46 :  
  47 :  
  48 :