Télécharger veripr.eso

Retour à la liste

Numérotation des lignes :

  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.  
  30.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales