Найти в последовательности количество чисел, идущих подряд, равных между собой

program test
  implicit   none
    integer, parameter :: N  = 10
    integer :: k, x, i, j
    integer, dimension(N) :: arr
    arr = (/1,2,3,4,4,4,5,6,7,8/)    
    k = 0 ! здесь копим длину последовательности одинаковых чисел
    i = 1
    buscar: do while( i < N+1 )
      x = k
      j = i + 1
      count_k: do while( j < N+1 )
                 if( arr(i) == arr(j) ) then
                     k = k + 1
                     j = j + 1
                     ! write (*,*) 'k = ', k                    
                 else
                     exit count_k ! покинуть цикл
                 end if                 
               end do count_k
      if( k /= x ) then
          k = k + 1
          i = i + k - x
      else
          i = i + 1
      end if
    end do buscar
    write (*,*) 'Плато = ', k
end program test

program test
  implicit   none
    integer, parameter :: N  = 15
    integer :: i,k
    integer, dimension(N) :: arr
    arr = (/1,2,3,4,4,4,4,4,5,6,7,8,9,10,11/)
    k=1
    do i=2,N
       if (arr(i)==arr(i-1)) then
          k=k+1
       end if
    end do   
    write (*,*) 'Плато = ', k
end program test

program test
  implicit   none
    integer, parameter :: N  = 15
    integer :: i,k
    integer, dimension(N) :: arr
    logical :: l = .false.
    arr = (/1,2,3,14,15,16,4,4,5,6,7,8,9,10,11/)
    k=1
    do i=2,N
       if (arr(i)==arr(i-1)) then
          k=k+1
          l=.true.
       end if
    end do   
    if (l) then
        write (*,*) 'Плато = ', k
    else
        write (*,*) 'Плато = ', k-1
    end if  
end program test