anchor.diff:      integer,intent(out) :: chunk_size(0:NUMBER_THREADS-1)
       integer :: ikb, tid
   
  +#ifndef _OPENACC
       tid = 0
       chunk_size(:) = 0
   !$omp parallel private(tid) shared(chunk_size)
  
positive.code:     end do
  !$omp end do
  !$omp end parallel
    end subroutine
  
    function get_stencil_FLOP(chunk_size)
  
negative.code:     call get_hamiltonian_chunk_size(chunk_size)
  
      lgflops = 0.0d0
  #ifndef _OPENACC
      do i=0,NUMBER_THREADS-1
  #else
      do i=0,0
  #endif
        cnt = chunk_size(i)
  
        hflop(1) = get_stencil_FLOP(cnt)
  