Esope source files

   1 : C COMP2     SOURCE    CHAT      05/01/12    22:15:47     5004           
   2 :       SUBROUTINE COMP2(X,NX,FKX,NKX,NPTEUR,NC,ITEST)
   3 : C
   4 : C------------------------------------------------------------------------
   5 : C Objet: comparer les listes de temperatures donnees d'un coefficient
   6 : C        scalaire et d'une liste de courbes 
   7 : C------------------------------------------------------------------------
   8 : C
   9 : C------------------------------------------------------------------------
  10 : C Entree: X(NX) tableau du coeff en fonction de la temperature
  11 : C         FKX(NKX) liste des courbes a differentes temperatures
  12 : C         NPTEUR(NC) tableau de pointeurs sur les differentes courbes
  13 : C------------------------------------------------------------------------
  14 : C
  15 : C------------------------------------------------------------------------
  16 : C Sortie: ITEST drapeau 
  17 : C         si ITEST = 1 les listes de temperatures ididentiques
  18 : C                  = 0 les listes de temperatures differentes
  19 : C------------------------------------------------------------------------
  20 : C
  21 :       IMPLICIT INTEGER(I-N)
  22 :       IMPLICIT REAL*8(A-H,O-Z)
  23 :       DIMENSION X(*),FKX(*),NPTEUR(*)
  24 : C
  25 :       ITEST=1
  26 :       IF (NX.EQ.1.OR.NC.EQ.1) GOTO 100
  27 :       NCC=2*NC
  28 :       IF (NX.NE.NCC) THEN
  29 :           ITEST=0
  30 :           GOTO 100
  31 :       ENDIF
  32 :       ISCAL=1
  33 :       IFKX=1
  34 :       DO 50 I=1,NC
  35 :                      TES=DABS (X(ISCAL)-FKX(IFKX))
  36 :                    IF (TES.GT.1D-10) THEN
  37 :                      ITEST=0
  38 :                      GOTO 100
  39 :                    ENDIF
  40 :                    ISCAL=ISCAL+2
  41 :                    IFKX=IFKX+(2*NPTEUR(I))+1
  42 :  50   CONTINUE
  43 : 100   CONTINUE 
  44 : C
  45 :       RETURN
  46 :       END
  47 :  
  48 :