Télécharger comp2.eso

Retour à la liste

Numérotation des lignes :

  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