SUBROUTINE  KONXV (I,J)

C     [EXCHANGE VECTORS]
C     KONXV (I,J) EXCHANGES THE ITH AND JTH VECTORS IN COMMON.
C     [24-MAY-73]

      COMMON/KON/ MM(2,3),Z(3)

      DO 10 L=1,2
      N=MM(L,I)
      MM(L,I)=MM(L,J)
   10 MM(L,J)=N
      T=Z(I)
      Z(I)=Z(J)
      Z(J)=T
      RETURN

      END