Sources Esope | Cast3M

lbdaliq1
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