c***********************************************************************
c     common blocks containing the adimensional physical constants
c***
c234567
      DOUBLE PRECISION tau, h, rho1, rho2, mu1, mu2, sigma, g, g1, vscale
      COMMON /PHYSICS/ tau, h, rho1, rho2, mu1, mu2, sigma, g, g1, vscale