Esope source files

   1 : C FLA007    SOURCE    TTMF3     12/07/05    21:15:27     7425           
   2 :       SUBROUTINE FLA007(T,LAMI)
   3 : C---------------------------------------------------------------------
   4 : C Calcul de la conductivité thermique de chaque constituant du mélange 
   5 : C (en W/m/K) en fonction de la température (en K)
   6 : C---------------------------------------------------------------------
   7 : C
   8 : C---------------------------
   9 : C Parametres Entree/Sortie :
  10 : C---------------------------
  11 : C
  12 : C E/  T       : flottant : Température de référence (K)
  13 : C  /S LAMI(7) : flottant : Conductivité thermique de chaque constituant
  14 : C                          (W/m/K) 
  15 : C
  16 : C---------------------------------------------------------------------
  17 : C
  18 : C Langage : FORTRAN 77
  19 : C
  20 : C Mise en oeuvre : H. Paillère (1997, TTMF)
  21 : C
  22 : C---------------------------------------------------------------------
  23 :       IMPLICIT INTEGER(I-N)
  24 :       IMPLICIT REAL*8 (A-H,O-Z)
  25 :       REAL*8 LAMI(7)
  26 : C
  27 :       LAMI(1) = (-2.45D-6*T*T + 8.75D-3*T + 0.202D0) * 0.01D0
  28 :       LAMI(2) = (-1.63D-6*T*T + 8.83D-3*T + 0.106D0) * 0.01D0
  29 :       LAMI(3) = ( 1.80D-5*T*T + 3.15D-2*T + 7.010D0) * 0.01D0
  30 :       LAMI(4) = (               8.32D-3*T - 0.746D0) * 0.01D0
  31 : C
  32 :       LAMI(5) = ( 5.464D-3 * T**1.616D0)/(T + 76.6D0)
  33 :       LAMI(6) = (25.438D-3 * T**1.319D0)/(T + 2432.95D0)
  34 :       LAMI(7) = ( 1.931D-3 * T**1.541D0)/(T + 218.17D0)
  35 :       RETURN
  36 :       END
  37 : 
  38 : 
  39 :  
  40 :  
  41 :  
  42 :