Commit ff651548 authored by Gregor Michalicek's avatar Gregor Michalicek

Removed automatic generation of enpara file for film calculations

parent 7ab36813
...@@ -626,7 +626,7 @@ c in s and p states equal occupation of up and down states ...@@ -626,7 +626,7 @@ c in s and p states equal occupation of up and down states
enpara%lchange = .FALSE. enpara%lchange = .FALSE.
enpara%enmix = 1.0 enpara%enmix = 1.0
enpara%lchg_v = .TRUE. enpara%lchg_v = .TRUE.
IF(juDFT_was_argument("-genEnpara").OR.film) THEN IF(juDFT_was_argument("-genEnpara")) THEN
lmaxdTemp = atoms%lmaxd lmaxdTemp = atoms%lmaxd
atoms%lmaxd = 3 atoms%lmaxd = 3
OPEN (40,file='enpara',form='formatted',status='unknown') ! write out an enpara-file OPEN (40,file='enpara',form='formatted',status='unknown') ! write out an enpara-file
......
...@@ -302,7 +302,7 @@ ...@@ -302,7 +302,7 @@
! !
! set up parameters for enpara-file ! set up parameters for enpara-file
! !
IF ((juDFT_was_argument("-genEnpara").OR.input%film).AND..NOT.l_enpara) THEN IF ((juDFT_was_argument("-genEnpara")).AND..NOT.l_enpara) THEN
OPEN (40,file='enpara',form='formatted',status='unknown') OPEN (40,file='enpara',form='formatted',status='unknown')
enpara%lchange = .TRUE. enpara%lchange = .TRUE.
enpara%llochg = .TRUE. enpara%llochg = .TRUE.
......
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