From d23d72b768ee7838c3416e0b1967069783aec015 Mon Sep 17 00:00:00 2001
From: Paolo Giannozzi <p.giannozzi@gmail.com>
Date: Sat, 16 Dec 2023 11:16:00 +0100
Subject: [PATCH] [skip-CI] Removal of unused variables

---
 LR_Modules/c_bands_ph.f90 | 6 +++---
 Modules/recvec.f90        | 3 ---
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/LR_Modules/c_bands_ph.f90 b/LR_Modules/c_bands_ph.f90
index 56d9b2a73..15bd04500 100644
--- a/LR_Modules/c_bands_ph.f90
+++ b/LR_Modules/c_bands_ph.f90
@@ -7,8 +7,8 @@
 !
 !
 !----------------------------------------------------------------------------
-! Questa e' una copia di c_bands_nscf intesa per un confronto con 
-! thermo_pw. 
+! Copy of c_bands_nscf, for comparison with thermo_pw. 
+! FIXME: is the above correct?
 !
 !
 SUBROUTINE c_bands_nscf_ph( )
@@ -26,7 +26,7 @@ SUBROUTINE c_bands_nscf_ph( )
   USE gvect,                ONLY : g
   USE wvfct,                ONLY : et, nbnd, npwx, current_k
   USE control_lr,           ONLY : lgamma
-  USE control_flags,        ONLY : ethr, restart, isolve, io_level, iverbosity, use_gpu
+  USE control_flags,        ONLY : ethr, restart, isolve, io_level, iverbosity
   USE ldaU,                 ONLY : lda_plus_u, Hubbard_projectors, wfcU, lda_plus_u_kind
   USE lsda_mod,             ONLY : current_spin, lsda, isk
   USE wavefunctions,        ONLY : evc
diff --git a/Modules/recvec.f90 b/Modules/recvec.f90
index 981107172..4e966a62e 100644
--- a/Modules/recvec.f90
+++ b/Modules/recvec.f90
@@ -74,7 +74,6 @@
        !! Set local and global dimensions, allocate arrays
        !
        USE mp, ONLY: mp_max, mp_sum
-       USE control_flags, ONLY : use_gpu
        IMPLICIT NONE
        INTEGER, INTENT(IN) :: ngm_
        INTEGER, INTENT(IN) :: comm
@@ -109,7 +108,6 @@
      SUBROUTINE deallocate_gvect(vc)
        !! Deallocate G-vector related arrays.
        !
-       USE control_flags, ONLY : use_gpu
        IMPLICIT NONE
        !
        LOGICAL, OPTIONAL, INTENT(IN) :: vc
@@ -183,7 +181,6 @@
         !
         USE kinds,              ONLY : DP
         USE constants,          ONLY : eps8
-        USE control_flags,      ONLY : use_gpu
         !
         IMPLICIT NONE
         !