Commit f16d0a9e authored by Gregor Michalicek's avatar Gregor Michalicek

Set input%l_inpXML to .TRUE. if no "-old" command line argument was used

This is done to avoid the generation of unnecessary and redundant corelevels files.
parent aae4bf92
......@@ -75,6 +75,9 @@ PROGRAM inpgen
bfh = 93
input%l_inpXML = .FALSE.
IF (.NOT.juDFT_was_argument("-old")) THEN
input%l_inpXML = .TRUE.
END IF
ALLOCATE ( mmrot(3,3,nop48), ttr(3,nop48) )
ALLOCATE ( atompos(3,natmax),atomid(natmax) )
......
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