C LBDALIQ1 SOURCE CB215821 20/11/25 13:33:30 10792 SUBROUTINE LBDALIQ1(MPOVA1,MPOVA2,MPOVA3) 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 CHPOS C-------------------------------------------------------------------- C C E/ MPOVA1 : Pression de l'enceinte (en Pa) C E/ MPOVA2 : Température du liquide (en K) C /S MPOVA3 : 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 SMCHPOI C N1 = MPOVA1.VPOCHA(/1) DO 10 I=1,N1 X1 = MPOVA1.VPOCHA(I,1) X2 = MPOVA2.VPOCHA(I,1) X3 = LBDALIQ0(X1,X2) MPOVA3.VPOCHA(I,1) = X3 10 CONTINUE C RETURN END