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

Some cleanup

This commit is contained in:
Ivan Carnimeo 2023-10-06 17:22:56 +02:00
parent 96f255f4cd
commit 48bbf87eea
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
LR_Modules/lrcom.f90
View File

@ -153,9 +153,6 @@ MODULE lrus
!
USE kinds, ONLY : DP
USE becmod, ONLY : bec_type
#if defined(__CUDA)
USE becmod_gpum, ONLY : bec_type_d
#endif
!
! ... These are additional variables needed for the linear response
! ... with US pseudopotentials and a generic perturbation Delta Vscf

4
PHonon/PH/phq_init.f90
View File

@ -64,9 +64,6 @@ SUBROUTINE phq_init()
USE control_lr, ONLY : nbnd_occ, lgamma
USE ldaU, ONLY : lda_plus_u
USE uspp_init, ONLY : init_us_2
#if defined(__CUDA)
USE becmod_subs_gpum, ONLY : calbec_gpu, synchronize_bec_type_gpu
#endif
!
IMPLICIT NONE
!
@ -88,6 +85,7 @@ SUBROUTINE phq_init()
COMPLEX(DP), ALLOCATABLE :: aux1(:,:), tevc(:,:)
! used to compute alphap
TYPE(bec_type) :: bectmp
! temporary buffer to work with offload of arrays of derived types
!
!
IF (all_done) RETURN