common/carts/x(3*maxatom),xr(3*maxatom),f(3*maxatom), &
      v(3*maxatom),xbel(3*maxatom)