diff --git a/PHonon/PH/dynmat.f90 b/PHonon/PH/dynmat.f90
index 2d7296918..37f0d955e 100644
--- a/PHonon/PH/dynmat.f90
+++ b/PHonon/PH/dynmat.f90
@@ -71,7 +71,7 @@ end Module dynamical
 !
       USE kinds, ONLY: DP
       USE mp,         ONLY : mp_bcast
-      USE mp_global,  ONLY : nproc, mpime, mp_startup, mp_global_end
+      USE mp_global,  ONLY : mp_startup, mp_global_end
       USE io_global,  ONLY : ionode, ionode_id, stdout
       USE environment, ONLY : environment_start, environment_end
       USE io_dyn_mat,  ONLY : read_dyn_mat_param, read_dyn_mat_header, &
diff --git a/PHonon/PH/matdyn.f90 b/PHonon/PH/matdyn.f90
index ac72d73ec..ae2b72902 100644
--- a/PHonon/PH/matdyn.f90
+++ b/PHonon/PH/matdyn.f90
@@ -127,7 +127,7 @@ PROGRAM matdyn
   !
   USE kinds,      ONLY : DP
   USE mp,         ONLY : mp_bcast
-  USE mp_global,  ONLY : nproc, mpime, mp_startup, mp_global_end
+  USE mp_global,  ONLY :  mp_startup, mp_global_end
   USE environment, ONLY : environment_start, environment_end
   USE io_global,  ONLY : ionode, ionode_id, stdout
   USE io_dyn_mat, ONLY : read_dyn_mat_param, read_dyn_mat_header, &
diff --git a/PHonon/PH/phq_readin.f90 b/PHonon/PH/phq_readin.f90
index 706d39911..ad6a86808 100644
--- a/PHonon/PH/phq_readin.f90
+++ b/PHonon/PH/phq_readin.f90
@@ -51,7 +51,7 @@ SUBROUTINE phq_readin()
   USE ldaU,          ONLY : lda_plus_u
   USE control_flags, ONLY : iverbosity, modenum, twfcollect
   USE io_global,     ONLY : ionode, stdout
-  USE mp_global,     ONLY : nproc, nproc_pool, nproc_pool_file, &
+  USE mp_global,     ONLY : nproc_pool, nproc_pool_file, &
                             nimage, my_image_id,    &
                             nproc_image_file, nproc_image, npool
   USE paw_variables, ONLY : okpaw
diff --git a/PHonon/PH/q2r.f90 b/PHonon/PH/q2r.f90
index 7cdf5ac4c..b2ae2d689 100644
--- a/PHonon/PH/q2r.f90
+++ b/PHonon/PH/q2r.f90
@@ -60,7 +60,7 @@ PROGRAM q2r
   !
   USE kinds,      ONLY : DP
   USE mp,         ONLY : mp_bcast
-  USE mp_global,  ONLY : nproc, mpime, mp_startup, mp_global_end
+  USE mp_global,  ONLY : mp_startup, mp_global_end
   USE dynamicalq, ONLY : phiq, tau, ityp, zeu
   USE fft_scalar, ONLY : cfft3d
   USE io_global, ONLY : ionode_id, ionode, stdout
diff --git a/PW/src/cdiagh.f90 b/PW/src/cdiagh.f90
index e60bdf22d..a447a4efc 100644
--- a/PW/src/cdiagh.f90
+++ b/PW/src/cdiagh.f90
@@ -14,8 +14,7 @@ SUBROUTINE cdiagh( n, h, ldh, e, v )
   ! ... hermitean matrix H. On output, the matrix is unchanged
   !
   USE kinds,            ONLY : DP
-  USE mp_global,        ONLY : nproc, nbgrp, nproc_bgrp, me_bgrp, &
-                               root_bgrp, intra_bgrp_comm
+  USE mp_global,        ONLY : nbgrp, me_bgrp, root_bgrp, intra_bgrp_comm
   USE mp,               ONLY : mp_bcast
   !
   IMPLICIT NONE
diff --git a/PW/src/exx.f90 b/PW/src/exx.f90
index 652a2d3a3..fb9094059 100644
--- a/PW/src/exx.f90
+++ b/PW/src/exx.f90
@@ -227,7 +227,7 @@ CONTAINS
   USE wvfct,      ONLY : nbnd
   USE io_global,  ONLY : stdout
   !
-  USE mp_global,  ONLY : nproc, npool, nimage
+  USE mp_global,  ONLY : npool
   !
   IMPLICIT NONE
   !