C BTPAR     SOURCE    CHAT      05/01/12    21:44:24     5004           
      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 (DABS(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