











      INTEGER      MAXVEC
      PARAMETER    (MAXVEC = 8*MAXAT)
      INTEGER      NUMGRV, HUEVAL(MAXVEC), HUEFLY(MAXVEC), NUMFLY
      REAL         XMOL(3,MAXVEC), YMOL(3,MAXVEC), PMOL(3,MAXVEC),
     +             QMOL(3,MAXVEC), XYMOL(12*MAXVEC)
      EQUIVALENCE  (XMOL(1,1), XYMOL(0*MAXVEC+1))
      EQUIVALENCE  (YMOL(1,1), XYMOL(3*MAXVEC+1))
      EQUIVALENCE  (PMOL(1,1), XYMOL(6*MAXVEC+1))
      EQUIVALENCE  (QMOL(1,1), XYMOL(9*MAXVEC+1))

      COMMON      /VECTOR1/
     +             XYMOL

      COMMON      /VECTOR2/
     +             HUEVAL, HUEFLY

      COMMON      /VECTOR3/
     +             NUMGRV, NUMFLY
