Sources Esope | Cast3M

veripr
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