Esope source files

   1 : C BMUL      SOURCE    CHAT      05/01/12    21:41:39     5004           
   2 :       FUNCTION BMUL(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 viscosite de l'eau liquide
   8 : C       T  : temperature du fluide en ›K
   9 : C       T0 : temperature de reference
  10 : C
  11 :       BMUL=129E-5*((T0+10)/T)**(7)
  12 :       RETURN
  13 :       END
  14 :  
  15 :