double precision dist
      common / GaussWorkData_COM / dist(NParticleMax)