Commit a4bfa137 authored by degironc's avatar degironc

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
parent 3ce80337
......@@ -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
......
......@@ -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.' )
!
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment