Added check on unimplemented DFT-D case

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@11245 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2014-11-05 14:09:32 +00:00
parent b840ff37ca
commit a363139cf1
1 changed files with 6 additions and 1 deletions

View File

@ -1,4 +1,5 @@
! !
! Copyright (C) 2001-2013 Quantum ESPRESSO group ! Copyright (C) 2001-2013 Quantum ESPRESSO group
! This file is distributed under the terms of the ! This file is distributed under the terms of the
! GNU General Public License. See the file `License' ! GNU General Public License. See the file `License'
@ -26,7 +27,8 @@ SUBROUTINE phq_readin()
USE start_k, ONLY : reset_grid USE start_k, ONLY : reset_grid
USE klist, ONLY : xk, nks, nkstot, lgauss, two_fermi_energies, lgauss USE klist, ONLY : xk, nks, nkstot, lgauss, two_fermi_energies, lgauss
USE ktetra, ONLY : ltetra USE ktetra, ONLY : ltetra
USE control_flags, ONLY : gamma_only, tqr, restart, lkpoint_dir, io_level USE control_flags, ONLY : gamma_only, tqr, restart, lkpoint_dir, io_level, &
llondon
USE uspp, ONLY : okvan USE uspp, ONLY : okvan
USE fixed_occ, ONLY : tfixed_occ USE fixed_occ, ONLY : tfixed_occ
USE lsda_mod, ONLY : lsda, nspin USE lsda_mod, ONLY : lsda, nspin
@ -578,6 +580,9 @@ SUBROUTINE phq_readin()
IF (lda_plus_u) CALL errore('phq_readin',& IF (lda_plus_u) CALL errore('phq_readin',&
'The phonon code with LDA+U is not yet available',1) 'The phonon code with LDA+U is not yet available',1)
IF (llondon) CALL errore('phq_readin',&
'The phonon code with DFT-D is not yet available',1)
IF (okpaw.and.(lraman.or.elop)) CALL errore('phq_readin',& IF (okpaw.and.(lraman.or.elop)) CALL errore('phq_readin',&
'The phonon code with paw and raman or elop is not yet available',1) 'The phonon code with paw and raman or elop is not yet available',1)