program mainmc2,1
      call mc2dm()
      stop
      end