Esope source files

   1 : C VERIPR    SOURCE    CHAT      05/01/13    04:05:46     5004           
   2 :       SUBROUTINE VERIPR(T1,T2,L1,IRETOU,EPS)                                    
   3 : C ======================================================================        
   4 : C     PROGRAMME FORTRAN                                                         
   5 : C     LES 2 PROGRESSIONS T1 T2 SONT-ELLES IDENTIQUES A EPS PRES ?               
   6 : C     OUI : IRETOU = 1 SINON 0                                                  
   7 : C                                                                               
   8 : C     PROGRAMMEUR : GUILBAUD                                                    
   9 : C     CREATION    : 07/10/87                                                    
  10 : C ======================================================================        
  11 : C                                                                               
  12 :       IMPLICIT INTEGER(I-N)
  13 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  14 :       DIMENSION T1(1),T2(1)                                                     
  15 :       IRETOU=0                                                                  
  16 :       DO 10 L=1,L1                                                              
  17 :       TT1=T1(L)                                                                 
  18 :       TT2=T2(L)                                                                 
  19 :       IF(TT2.EQ.0.D0) THEN                                                      
  20 :         IF(TT1.EQ.0.D0) GOTO 10                                                 
  21 :         RETURN                                                                  
  22 :       ENDIF                                                                     
  23 :       DIF=ABS(1.D0-TT1/TT2)                                                     
  24 :       IF(DIF.GT.EPS) RETURN                                                     
  25 :    10 CONTINUE                                                                  
  26 :       IRETOU=1                                                                  
  27 :       RETURN                                                                    
  28 :       END                                                                       
  29 :