Esope source files

   1 : C BLA       SOURCE    CHAT      05/01/12    21:40:55     5004           
   2 :       FUNCTION BLA(T,T0)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : C
   6 : C     operateur FUITE
   7 : C>>>  calcule la conductivite de l'air
   8 : C       T  : temperature du fluide en K
   9 : C       T0 : temperature de reference
  10 : C
  11 :       BLA=2.42+7.23E-3*(T-T0)
  12 :       BLA=BLA*1E-2
  13 :       RETURN
  14 :       END
  15 :  
  16 :