program testkmk

      implicit none

      integer(4), parameter :: noseg = 1706105
      integer(4) kmk(noseg)
      integer(4) nosegl
      integer(4) i, k

      nosegl = noseg/19
      open ( 10, file='stacks_10-10.kmk', form='binary' )
      read ( 10 ) kmk
      open ( 20, file='kmk.out' )
      do k = 1, nosegl
         write ( 20, '(i10,19i3)' ) k, ( kmk(i), i=k,noseg,nosegl )
      enddo

      stop
      end