Sources Esope | Cast3M

btpar
C BTPAR     SOURCE    CB215821  16/04/21    21:15:26     8920
      SUBROUTINE BTPAR (XN,TN,X,TPX,NPP,I)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      DIMENSION XN(NPP),TN(NPP)
C
C     operateur FUITE
C>>>  calcul de la temperature de paroi TPX en X en fonction
C     des valeurs aux noeuds (TN en XN) .
C
C     recherche des noeuds (XN(i) XN(i+1)) encadrant X
C     NPP est la nombre de points de la ligne paroi
C     TP en deg C
 
 
      IF (ABS(X-XN(NPP)).LT.1.D-4) THEN
        TPX=TN(NPP)
        RETURN
      ELSE
 
  10    CONTINUE
          IF (X.GT.XN(I+1)) THEN
          I=I+1
          GOTO 10
          ENDIF
 
  20    CONTINUE
 
C>>>  calcul de TPX par interpolation lin{aire
 
        TPX=TN(I)+(TN(I+1)-TN(I))*(X-XN(I))/(XN(I+1)-XN(I))
 
        RETURN
      ENDIF
      END