SUBROUTINE  KONRE

C     [RESTORE]
C     RESTORE THE INITIAL POINT OF THE CONTOUR
C     [14-FEB-74]

      COMMON/KON/ M(6),Z(3)
      COMMON/KQN/ N(6),W(3)

      DO 10 I=1,6
   10 M(I)=N(I)
      DO 20 I=1,3
   20 Z(I)=W(I)
      RETURN

      END