SUBROUTINE  KONSA

C     [SAVE]
C     SAVE THE INITIAL POINT OF THE CONTOUR
C     [24-MAY-73]

      COMMON/KON/ M1(2),M2(2),M3(2),Z1,Z2,Z3
      COMMON/KQN/ N1(2),N2(2),N3(2),W1,W2,W3

      N1(1)=M1(1)
      N1(2)=M1(2)
      N2(1)=M3(1)
      N2(2)=M3(2)
      N3(1)=M2(1)
      N3(2)=M2(2)
      W1=Z1
      W2=Z3
      W3=Z2
      RETURN

      END