c***********************************************************************
c
c include file: hfdecl.kom
c
c***********************************************************************
c
c local function declarations used in hydro
c
c***********************************************************************

      real scsq