crash if the vdw_corr is not one of the valid options

This commit is contained in:
Alberto Otero de la Roza 2019-08-05 21:40:43 +02:00
parent cd5f3cac63
commit 80b69e3c21
1 changed files with 3 additions and 1 deletions

View File

@ -1281,12 +1281,14 @@ SUBROUTINE iosys()
ts_vdw_= .FALSE.
lxdm = .TRUE.
!
CASE DEFAULT
CASE('none','')
!
llondon= .FALSE.
ldftd3 = .FALSE.
ts_vdw_= .FALSE.
lxdm = .FALSE.
CASE DEFAULT
CALL errore("iosys","unknown vdw correction (vdw_corr): "//TRIM(vdw_corr), 1)
!
END SELECT
IF ( london ) THEN