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
enpara%lchange = .FALSE.
enpara%enmix = 1.0
enpara%lchg_v = .TRUE.
IF(juDFT_was_argument("-genEnpara").OR.film) THEN
IF(juDFT_was_argument("-genEnpara")) THEN
lmaxdTemp = atoms%lmaxd
atoms%lmaxd = 3
OPEN (40,file='enpara',form='formatted',status='unknown') ! write out an enpara-file
......
......@@ -302,7 +302,7 @@
!
! 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')
enpara%lchange = .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