scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

[skip-CI] Removal of unused variables

This commit is contained in:
Paolo Giannozzi 2023-12-16 11:16:00 +01:00
parent 2b3b83eba4
commit d23d72b768
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
LR_Modules/c_bands_ph.f90
View File

@ -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

3
Modules/recvec.f90
View File

@ -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
!