'dispersions' no longer used

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1116 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2004-08-18 10:45:56 +00:00
parent 5c4ced7c2c
commit 9f8b059499
1 changed files with 1 additions and 5 deletions

View File

@ -402,10 +402,6 @@ SUBROUTINE iosys()
iswitch = -2 ! ... obsolescent: do not use in new code ( 29/10/2003 C.S.)
lphonon = .TRUE.
nstep = 1
CASE ( 'dispersion' )
iswitch = -2
lphonon = .TRUE.
nstep = 1
CASE ( 'raman' )
lraman = .TRUE.
nstep = 1
@ -433,7 +429,7 @@ SUBROUTINE iosys()
END IF
!
IF ( .NOT. lscf .AND. startingpot /= 'file' ) THEN
CALL errore( ' iosys', 'wrong startingpot: use default', -1 )
CALL errore( ' iosys', 'wrong startingpot: use default', -2 )
startingpot = 'file'
END IF
!