C VERIPR    SOURCE    CHAT      05/01/13    04:05:46     5004           
      SUBROUTINE VERIPR(T1,T2,L1,IRETOU,EPS)                                    
C ======================================================================        
C     PROGRAMME FORTRAN                                                         
C     LES 2 PROGRESSIONS T1 T2 SONT-ELLES IDENTIQUES A EPS PRES ?               
C     OUI : IRETOU = 1 SINON 0                                                  
C                                                                               
C     PROGRAMMEUR : GUILBAUD                                                    
C     CREATION    : 07/10/87                                                    
C ======================================================================        
C                                                                               
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
      DIMENSION T1(1),T2(1)                                                     
      IRETOU=0                                                                  
      DO 10 L=1,L1                                                              
      TT1=T1(L)                                                                 
      TT2=T2(L)                                                                 
      IF(TT2.EQ.0.D0) THEN                                                      
        IF(TT1.EQ.0.D0) GOTO 10                                                 
        RETURN                                                                  
      ENDIF                                                                     
      DIF=ABS(1.D0-TT1/TT2)                                                     
      IF(DIF.GT.EPS) RETURN                                                     
   10 CONTINUE                                                                  
      IRETOU=1                                                                  
      RETURN                                                                    
      END