Télécharger comp.eso

Retour à la liste

Numérotation des lignes :

  1. C COMP SOURCE CB215821 16/04/21 21:15:53 8920
  2. SUBROUTINE COMP(X,NX,Y,NY,ITEST)
  3. C
  4. C------------------------------------------------------------------------
  5. C Objet: comparer les listes de temperatures de 2 courbes de coefficients
  6. C------------------------------------------------------------------------
  7. C
  8. C------------------------------------------------------------------------
  9. C Entree: X(NX),Y(NY) tableaux a comparer
  10. C------------------------------------------------------------------------
  11. C
  12. C------------------------------------------------------------------------
  13. C Sortie: ITEST drapeau
  14. C si ITEST = 1 listes de temperatures identiques
  15. C = 0 listes de temperatures differentes
  16. C------------------------------------------------------------------------
  17. C
  18. IMPLICIT INTEGER(I-N)
  19. IMPLICIT REAL*8(A-H,O-Z)
  20. DIMENSION X(*),Y(*)
  21. C
  22. ITEST=1
  23. IF (NX.EQ.1.OR.NY.EQ.1) GOTO 100
  24. IF (NX.NE.NY) THEN
  25. ITEST=0
  26. GOTO 100
  27. ENDIF
  28. NXX=NX-1
  29. DO 50 I=1,NXX,2
  30. TES=ABS(X(I)-Y(I))
  31. IF (TES.GT.1D-10) THEN
  32. ITEST=0
  33. GOTO 100
  34. ENDIF
  35. 50 CONTINUE
  36. 100 CONTINUE
  37. C
  38. RETURN
  39. END
  40.  
  41.  
  42.  
  43.  
  44.  

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