Commit 0b725d31 authored by Gregor Michalicek's avatar Gregor Michalicek

Fixed inpgen problems if no input namelist is provided

parent 4513db57
......@@ -116,10 +116,11 @@
CALL read_record(infh,xl_buffer,bfh,nline,nbuffer,buffer,ios)
ENDIF
oldfleurset = .FALSE.
l_hyb = .FALSE.
IF ( buffer(1:6)=='&input' ) THEN ! get namelist 'input'
READ (bfh,input)
l_hyb = hybrid
oldfleurset = .false.
IF ( index(buffer,'oldfleur')>0 ) oldfleurset = .true.
op = 0
IF ( op > 0 ) THEN
......
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