C COMP2     SOURCE    CB215821  16/04/21    21:15:54     8920
      SUBROUTINE COMP2(X,NX,FKX,NKX,NPTEUR,NC,ITEST)
C
C------------------------------------------------------------------------
C Objet: comparer les listes de temperatures donnees d'un coefficient
C        scalaire et d'une liste de courbes
C------------------------------------------------------------------------
C
C------------------------------------------------------------------------
C Entree: X(NX) tableau du coeff en fonction de la temperature
C         FKX(NKX) liste des courbes a differentes temperatures
C         NPTEUR(NC) tableau de pointeurs sur les differentes courbes
C------------------------------------------------------------------------
C
C------------------------------------------------------------------------
C Sortie: ITEST drapeau
C         si ITEST = 1 les listes de temperatures ididentiques
C                  = 0 les listes de temperatures differentes
C------------------------------------------------------------------------
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION X(*),FKX(*),NPTEUR(*)
C
      ITEST=1
      IF (NX.EQ.1.OR.NC.EQ.1) GOTO 100
      NCC=2*NC
      IF (NX.NE.NCC) THEN
          ITEST=0
          GOTO 100
      ENDIF
      ISCAL=1
      IFKX=1
      DO 50 I=1,NC
                     TES=ABS(X(ISCAL)-FKX(IFKX))
                   IF (TES.GT.1D-10) THEN
                     ITEST=0
                     GOTO 100
                   ENDIF
                   ISCAL=ISCAL+2
                   IFKX=IFKX+(2*NPTEUR(I))+1
 50   CONTINUE
100   CONTINUE
C
      RETURN
      END