diff --git a/PHonon/PH/elphon.f90 b/PHonon/PH/elphon.f90
index 5f47f0711..31d19c791 100644
--- a/PHonon/PH/elphon.f90
+++ b/PHonon/PH/elphon.f90
@@ -295,6 +295,7 @@ SUBROUTINE elphel (irr, npe, imode0, dvscfins)
   USE eqv,        ONLY : dvpsi, evq
   USE qpoint,     ONLY : nksq, ikks, ikqs, nksqtot
   USE control_lr, ONLY : lgamma
+  USE fft_helper_subroutines
 
   IMPLICIT NONE
   !
@@ -331,7 +332,7 @@ SUBROUTINE elphel (irr, npe, imode0, dvscfins)
      v_siz =  dffts%nnr_tg
      ALLOCATE( tg_dv   ( v_siz, nspin_mag ) )
      ALLOCATE( tg_psic( v_siz, npol ) )
-     incr = dffts%nproc2
+     incr = fftx_ntgrp(dffts)
      !
   ENDIF
   !
diff --git a/PHonon/PH/solve_e.f90 b/PHonon/PH/solve_e.f90
index 4f9135fa1..f5bc1586f 100644
--- a/PHonon/PH/solve_e.f90
+++ b/PHonon/PH/solve_e.f90
@@ -60,6 +60,7 @@ subroutine solve_e
   USE eqv,                   ONLY : dpsi, dvpsi
   USE control_lr,            ONLY : nbnd_occ, lgamma
   USE dv_of_drho_lr
+  USE fft_helper_subroutines
 
   implicit none
 
@@ -143,7 +144,7 @@ subroutine solve_e
      v_siz =  dffts%nnr_tg
      ALLOCATE( tg_dv   ( v_siz, nspin_mag ) )
      ALLOCATE( tg_psic( v_siz, npol ) )
-     incr = dffts%nproc2
+     incr = fftx_ntgrp(dffts)
      !
   ENDIF
   !
diff --git a/PHonon/PH/solve_linter.f90 b/PHonon/PH/solve_linter.f90
index 260d81ad3..d9b7f74ec 100644
--- a/PHonon/PH/solve_linter.f90
+++ b/PHonon/PH/solve_linter.f90
@@ -73,6 +73,7 @@ SUBROUTINE solve_linter (irr, imode0, npe, drhoscf)
   USE qpoint,       ONLY : xq, nksq, ikks, ikqs
   USE control_lr,   ONLY : alpha_pv, nbnd_occ, lgamma
   USE dv_of_drho_lr
+  USE fft_helper_subroutines
 
   implicit none
 
@@ -174,7 +175,7 @@ SUBROUTINE solve_linter (irr, imode0, npe, drhoscf)
      v_siz =  dffts%nnr_tg
      ALLOCATE( tg_dv  ( v_siz, nspin_mag ) )
      ALLOCATE( tg_psic( v_siz, npol ) )
-     incr = dffts%nproc2
+     incr = fftx_ntgrp(dffts)
      !
   ENDIF
   !