anchor.diff:  module counter
     use constants
     implicit none
  -  real(float64), allocatable :: nk(:)
  +  integer, allocatable :: nk(:)
     real(float64), allocatable :: zk(:)
     real(float64) :: n_data
     real(float64) :: n_bins
  
positive.code:     end if
    end subroutine counts_reset
  
    subroutine counts_fit(ar)
      implicit none
      integer, intent(in) :: ar(:)
      integer :: i, j, u
      integer :: x, err
      integer :: xmax
  
negative.code:     if (allocated(nk)) then
         if (alphabet_size > n_bins) then
            unobserved = alphabet_size - n_bins*1.0_float64
            if (minval(nk) ==  0) then
               k = minloc(nk, 1)
               zk(k) = zk(k) + unobserved
            else
  