SUBROUTINE  KONIT (I,J,K)

C     [INITIAL TRIANGLE]
C     [16-NOV-74]

      COMMON/KON/ M1(2),M2(2),M3(2),Z1,Z2,Z3

      GO TO (10,20),K

   10 M1(1)=I
      M1(2)=J
      M2(1)=I+1
      M2(2)=J
      M3(1)=I
      M3(2)=J+1
      RETURN

   20 M1(1)=I+1
      M1(2)=J+1
      M2(1)=I+1
      M2(2)=J
      M3(1)=I
      M3(2)=J+1
      RETURN

      END