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

references to not any more existing module dtgs removed. 

dtgs%have_task_groups -> dffts%have_task_groups in lr_readin.f90... it should work but please check !


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13753 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
degironc 2017-08-21 12:51:03 +00:00
parent 3ce803377d
commit a4bfa13721
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LR_Modules/ch_psi_all.f90
View File

@ -18,7 +18,7 @@ SUBROUTINE ch_psi_all (n, h, ah, e, ik, m)
USE wvfct, ONLY : npwx, nbnd, current_k
USE becmod, ONLY : bec_type, becp, calbec
USE uspp, ONLY : nkb, vkb
USE fft_base, ONLY : dffts, dtgs
USE fft_base, ONLY : dffts
USE gvect, ONLY : g
USE klist, ONLY : xk, igk_k
USE noncollin_module, ONLY : noncolin, npol

6
TDDFPT/src/lr_readin.f90
View File

@ -23,7 +23,7 @@ SUBROUTINE lr_readin
& do_makov_payne
USE scf, ONLY : vltot, v, vrs, vnew, &
& destroy_scf_type, rho
USE fft_base, ONLY : dfftp, dffts, dtgs
USE fft_base, ONLY : dfftp, dffts
USE gvecs, ONLY : doublegrid
USE wvfct, ONLY : nbnd, et, wg, current_k
USE lsda_mod, ONLY : isk
@ -610,13 +610,13 @@ CONTAINS
!
! No taskgroups and EXX.
!
IF (dtgs%have_task_groups .AND. dft_is_hybrid()) &
IF (dffts%have_task_groups .AND. dft_is_hybrid()) &
& CALL errore( 'lr_readin', ' Linear response calculation ' // &
& 'not implemented for EXX+Task groups', 1 )
!
! Experimental task groups warning.
!
IF (dtgs%have_task_groups) &
IF (dffts%have_task_groups) &
& CALL infomsg( 'lr_readin','Usage of task &
&groups with TDDFPT is still experimental. Use at your own risk.' )
!