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

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


      INTEGER niterdis

      REAL tetavel,tetatemp,coefdis,gamdissip

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