C LBDALIQ3 SOURCE SERRE 16/07/20 21:15:06 9017 SUBROUTINE LBDALIQ3(MLREE1,MLREE2,MLREE3) C-------------------------------------------------------------------- C Conductivité thermique de l'eau en fonction de la pression et de la C température (issue de CATHARE) : les data sont des LISTREELS C-------------------------------------------------------------------- C C E/ MLREE1 : Pression de l'enceinte (en Pa) C E/ MLREE2 : Température de l'eau (en K) C /S MLREE3 : Conductivité thermique de l'eau (en W/m/K) C C----------------------------------------------------------------------- C C Langage : ESOPE + FORTRAN77 C Auteurs : F.DABBENE 2016/05 C C----------------------------------------------------------------------- IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) REAL*8 LBDALIQ0 C -INC SMLREEL C JG1 = MLREE1.PROG(/1) DO 10 I=1,JG1 X1 = MLREE1.PROG(I) X2 = MLREE2.PROG(I) X3 = LBDALIQ0(X1,X2) MLREE3.PROG(I) = X3 10 CONTINUE C RETURN END