anchor.diff:    end do
     end do
     end do
  -#ifndef _OPENACC
  +#ifdef _OPENACC
  +!$acc end kernels
  +#else
   !$omp end parallel
   #endif
  -!$acc end kernels
     NVTX_END()
   
   ! yabana
  
positive.code:   enddo
  !$acc update device(kAc)
  
  !$acc kernels pcopy(Vloc) pcopyin(Vh,Vpsl,Vexc)
  #ifndef _OPENACC
  !$omp parallel do
  #endif
    do i=1,NL
  
negative.code: 
  !$acc data pcopy(zu, vloc) pcopyout(ekr_omp)
  
  !Constructing nonlocal part
    NVTX_BEG('dt_evolve_omp_KB(): nonlocal part',2)
  #ifdef _OPENACC
  !$acc kernels pcopy(ekr_omp) pcopyin(Mps, Jxyz,Jxx,Jyy,Jzz, kAc, Lx,Ly,Lz)
  !$acc loop collapse(2) independent gang
  #else
    thr_id=0
  !$omp parallel private(thr_id)
  !$  thr_id=omp_get_thread_num()
  