C BMUL      SOURCE    CHAT      05/01/12    21:41:39     5004           
      FUNCTION BMUL(T,T0)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
C     operateur FUITE
C>>>  calcule la viscosite de l'eau liquide
C       T  : temperature du fluide en ›K
C       T0 : temperature de reference
C
      BMUL=129E-5*((T0+10)/T)**(7)
      RETURN
      END