anchor.diff:  Subroutine dt_evolve_omp_KB_MS
     use Global_Variables
     use timelog
  +  use nvtx
     use opt_variables
     implicit none
     integer    :: ik,ib
  
positive.code:   end do
    end do
    end do
  #ifndef _OPENACC
  !$omp end parallel
  #endif
  !$acc end kernels
    NVTX_END()
  
  ! yabana
  
negative.code:   end select
  ! yabana
  
    NVTX_BEG('dt_evolve_omp_KB_MS(): dt_evolve_hpsi',3)
    call dt_evolve_hpsi
    NVTX_END()
  
    NVTX_BEG('dt_evolve_omp_KB_MS(): psi_rho_RT',4)
    call psi_rho_RT
    NVTX_END()
  
    NVTX_BEG('dt_evolve_omp_KB_MS(): Hartree',5)
    call Hartree
    NVTX_END()
  
  ! yabana
    NVTX_BEG('dt_evolve_omp_KB_MS(): Hartree',5)
    call Exc_Cor('RT')
    NVTX_END()
  ! yabana
  
  #ifdef _OPENACC
  !$acc kernels pcopy(Vloc) pcopyin(Vh,Vpsl,Vexc)
  #else
  !$omp parallel do
  #endif
    do i=1,NL
      Vloc(i)=Vh(i)+Vpsl(i)+Vexc(i)
    end do
  !$acc end kernels
  
  !$acc end data
  
    call timelog_end(LOG_DT_EVOLVE)
    NVTX_END()
  
    return
  End Subroutine dt_evolve_omp_KB_MS
  