diff --git a/src/ZSOLVER/dotprod.f90 b/src/ZSOLVER/dotprod.f90
index dab2e6a88597dd0afb3e5672aa3b144383795c4c..89fa143925c7aa3392956a92aa86f5a5a3441820 100644
--- a/src/ZSOLVER/dotprod.f90
+++ b/src/ZSOLVER/dotprod.f90
@@ -195,8 +195,8 @@ ZDOTPROD(:,:)    = 0.
   END DO
 !$mnh_end_do()
 !$acc end parallel
-!$acc update host(ZDOTPROD)
-PDOTPROD = SUM_DD_R2_ll(ZDOTPROD)
+! acc update host(ZDOTPROD)
+PDOTPROD = SUM_DD_R2_ll_DEVICE(ZDOTPROD)
 !JUAN16
 #ifndef MNH_OPENACC
 DEALLOCATE(ZDOTPROD)