Télécharger la plaquette Cast3M


fr en

Télécharger comp.eso

Retour à la liste

Numérotation des lignes : 

comp

  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