c                         ****************
c                         **    dumn    **
c                         ****************
      common/dumn/ sum,eold,cs,fzb,rold,aold,pold,dogs,cats,
     1   dum10,dum11,dum12,dum13,dum14,dum15,dum16,dum17,
     2   dum18,dum19,dum20,dum21,dum22,dum23,dum24,dum25,
     3    fpdum
      save /dumn/
c
      common/idumn/ idum1,idum2,idum3,idum4,idum5,idum6,idum7,
     1  idum8,idum9,idum10,idum11,idum12,idum13,idum14,
     2  idum15,idum16,idum17,idum18,idum19,idum20,idum21,
     3  idum22,idum23,idum24,idum25,intdum
      save /idumn/
c
      common/cdumn/ remark, commnt
      save /cdumn/
c
      character*50 remark,commnt
c
      dimension fpdum(ndumx),intdum(ndumx)
c