c-----------------------------------------------------------------------
c INCLUDE dissip.h

      COMMON/comdissip/
     $    lstardis,niterdis,coefdis,tetavel,tetatemp,gamdissip


      LOGICAL lstardis
      INTEGER niterdis

      REAL tetavel,tetatemp,coefdis,gamdissip

c-----------------------------------------------------------------------