Esope source files

   1 : C COMP      SOURCE    PV        09/03/12    21:17:49     6325           
   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=DABS (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 :