diff --git a/PH/phcom.f90 b/PH/phcom.f90
index aacbb9311..ecd2b4b19 100644
--- a/PH/phcom.f90
+++ b/PH/phcom.f90
@@ -111,7 +111,7 @@ MODULE eqv
 END MODULE eqv
 !
 !
-MODULE efield
+MODULE efield_mod
   USE kinds, ONLY :  DP
   !
   ! ... the variables for the electric field perturbation
@@ -130,7 +130,7 @@ MODULE efield
        zstarue0(:,:)          ! 3 * nat, 3)
   ! the effective charges
   !
-END MODULE efield
+END MODULE efield_mod
 !
 !
 MODULE nlcc_ph
@@ -349,7 +349,7 @@ MODULE phcom
   USE dynmat
   USE qpoint
   USE eqv
-  USE efield
+  USE efield_mod
   USE nlcc_ph
   USE gc_ph
   USE phus
diff --git a/PH/solve_linter.f90 b/PH/solve_linter.f90
index 667d89eb2..3eb8187cc 100644
--- a/PH/solve_linter.f90
+++ b/PH/solve_linter.f90
@@ -39,7 +39,7 @@ subroutine solve_linter (irr, imode0, npe, drhoscf)
                                    iuwfc, lrwfc, iunrec, iudvscf
   USE output,               ONLY : fildrho, fildvscf
   USE phus,                 ONLY : int1, int2, int3
-  USE efield,               ONLY : epsilon, zstareu, zstarue, zstareu0, zstarue0
+  USE efield_mod,           ONLY : epsilon, zstareu, zstarue, zstareu0, zstarue0
   USE dynmat,               ONLY : dyn, dyn00
   USE eqv,                  ONLY : dvpsi, dpsi, evq
   USE qpoint,               ONLY : npwq, igkq, nksq