anchor.diff:      end do
   !$omp end do
   !$omp end parallel
  +#else
  +    chunk_size(:) = 0
  +    chunk_size(0) = NKB
  +#endif
     end subroutine
   
     function get_stencil_FLOP(chunk_size)
  
positive.code:     call get_hamiltonian_chunk_size(chunk_size)
  
      lgflops = 0.0d0
      do i=0,NUMBER_THREADS-1
        cnt = chunk_size(i)
  
        hflop(1) = get_stencil_FLOP(cnt)
  
negative.code:     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)
  