more explicit error messages

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3156 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2006-06-06 15:42:55 +00:00
parent 57ceb1b802
commit ff11d52df0
1 changed files with 3 additions and 2 deletions

View File

@ -16,8 +16,9 @@ subroutine raman
USE ramanm, ONLY: lraman, elop
implicit none
if (okvan) call errore ('raman','Vanderbilt not implemented',1)
if (lsda) call errore ('raman',' LSDA not implemented',1)
if (okvan) &
call errore ('raman','Ultrasoft pseudopotentials not implemented',1)
if (lsda) call errore ('raman',' spin-polarized case not implemented',1)
if (degauss.ne.0.d0 .or..not.lgamma) &
call errore ('raman','called in the wrong case',1)
if (epsil.and..not.convt) &