- use helper function in place of an explicit reference to type member

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13786 c92efa57-630b-4861-b058-cf58834340f0

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
   !

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
   !

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
   !