Sources Esope | Cast3M

fla007
C FLA007    SOURCE    TTMF3     12/07/05    21:15:27     7425
      SUBROUTINE FLA007(T,LAMI)
C---------------------------------------------------------------------
C Calcul de la conductivité thermique de chaque constituant du mélange
C (en W/m/K) en fonction de la température (en K)
C---------------------------------------------------------------------
C
C---------------------------
C Parametres Entree/Sortie :
C---------------------------
C
C E/  T       : flottant : Température de référence (K)
C  /S LAMI(7) : flottant : Conductivité thermique de chaque constituant
C                          (W/m/K)
C
C---------------------------------------------------------------------
C
C Langage : FORTRAN 77
C
C Mise en oeuvre : H. Paillère (1997, TTMF)
C
C---------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 LAMI(7)
C
      LAMI(1) = (-2.45D-6*T*T + 8.75D-3*T + 0.202D0) * 0.01D0
      LAMI(2) = (-1.63D-6*T*T + 8.83D-3*T + 0.106D0) * 0.01D0
      LAMI(3) = ( 1.80D-5*T*T + 3.15D-2*T + 7.010D0) * 0.01D0
      LAMI(4) = (               8.32D-3*T - 0.746D0) * 0.01D0
C
      LAMI(5) = ( 5.464D-3 * T**1.616D0)/(T + 76.6D0)
      LAMI(6) = (25.438D-3 * T**1.319D0)/(T + 2432.95D0)
      LAMI(7) = ( 1.931D-3 * T**1.541D0)/(T + 218.17D0)
      RETURN
      END