DOUBLE PRECISION REYNOL, GRASHO, XPRAND
      PARAMETER       (REYNOL=150,GRASHO=9.6D5,XPRAND=0.71D0)