Esope source files

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