Télécharger la plaquette Cast3M


fr en

Télécharger comp2.eso

Retour à la liste

Numérotation des lignes : 

comp2

  1. C COMP2     SOURCE    CB215821  16/04/21    21:15:54     8920
  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=ABS(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.  
  49.  
  50.  

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