diff --git a/src/common/nonlocal_potential.f90 b/src/common/nonlocal_potential.f90 index c1a2b7cce..55fda5ddf 100644 --- a/src/common/nonlocal_potential.f90 +++ b/src/common/nonlocal_potential.f90 @@ -708,6 +708,12 @@ subroutine calc_uVpsi_rdivided(nspin,info,ppg,tpsi,uVpsibox,uVpsibox2) !$acc end kernels #endif #else +#ifdef USE_OPENACC +!$acc kernels +uVpsibox2 = dev_uVpsibox2 +uVpsibox = dev_uVpsibox +!$acc end kernels +#endif call comm_summation(uVpsibox,uVpsibox2,Nlma*Norb,info%icomm_r) #endif call timer_end(LOG_UHPSI_PSEUDO_COMM)