!------------------CommonBlock-----------------------------
      integer maxmy,maxnx,maxnparams
      parameter(maxmy=10,maxnx=10,maxnparams=30)
      integer my,iknowder,nparams
      double precision targetx(maxnx),targety(maxmy),
     &  params(maxnparams)
      common /distcom/targetx,targety,params,
     &  my,iknowder,nparams
      save /distcom/
!----------------------------------------------------------