character       uct*4,utx(2)*15
      common /umac1/  uct  ,utx

      integer         urest,unumnd,unumel
      common /umac2/  urest,unumnd,unumel

      character       umshc*4  ,umanc*4  ,umacc*4  ,upltc*4
      common /umac3/  umshc(10),umanc(10),umacc(10),upltc(10)

      logical         ucount
      common /umac4/  ucount