      SUBROUTINE MNDMOV(XDIST,YDIST,ZDIST,NGROUP,IGROUP)
      INCLUDE 'SIZES'
* MNDO COORDINATE MOVEMENT OF ATOMS IN MOLECULE
      IMPLICIT REAL (A-H, O-Z)
      COMMON /ATOMS/CN(3, NUMATM),IE( NUMATM), NUATOM, ATCHG( NUMATM)
      COMMON /GEOM/CO(3, NUMATM),NA( NUMATM),NB( NUMATM),NC( NUMATM)
      COMMON /INTCOR/XNDOGM(3, NUMATM),INTFRE(3, NUMATM)
      DIMENSION XDIST( NUMATM),YDIST( NUMATM),ZDIST( NUMATM)
*
      DO 10 IB=1,NUATOM
         IA=IB
         XNDOGM(1,IA)=XNDOGM(1,IA)+XDIST(IA)
         XNDOGM(2,IA)=XNDOGM(2,IA)+YDIST(IA)
  10     XNDOGM(3,IA)=XNDOGM(3,IA)+ZDIST(IA)
      RETURN
      END
