c-----------------------------------------------------------------------
c INCLUDE 'sponge.h'

      COMMON/com_sponge/callsponge,mode_sponge,hsponge,tetasponge

      LOGICAL   callsponge
      INTEGER   mode_sponge
      REAL   hsponge,tetasponge
c-----------------------------------------------------------------------