Télécharger btpar.eso

Retour à la liste

Numérotation des lignes :

  1. C BTPAR SOURCE CB215821 16/04/21 21:15:26 8920
  2. SUBROUTINE BTPAR (XN,TN,X,TPX,NPP,I)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. DIMENSION XN(NPP),TN(NPP)
  6. C
  7. C operateur FUITE
  8. C>>> calcul de la temperature de paroi TPX en X en fonction
  9. C des valeurs aux noeuds (TN en XN) .
  10. C
  11. C recherche des noeuds (XN(i) XN(i+1)) encadrant X
  12. C NPP est la nombre de points de la ligne paroi
  13. C TP en deg C
  14.  
  15.  
  16. IF (ABS(X-XN(NPP)).LT.1.D-4) THEN
  17. TPX=TN(NPP)
  18. RETURN
  19. ELSE
  20.  
  21. 10 CONTINUE
  22. IF (X.GT.XN(I+1)) THEN
  23. I=I+1
  24. GOTO 10
  25. ENDIF
  26.  
  27. 20 CONTINUE
  28.  
  29. C>>> calcul de TPX par interpolation lin{aire
  30.  
  31. TPX=TN(I)+(TN(I+1)-TN(I))*(X-XN(I))/(XN(I+1)-XN(I))
  32.  
  33. RETURN
  34. ENDIF
  35. END
  36.  
  37.  
  38.  
  39.  
  40.  

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