Commit 67e5c0d0 authored by Gregor Michalicek's avatar Gregor Michalicek

Prepare introduction of vacuum energy parameters in inp.xml file

(more to come to make it functional)
parent 306ba555
......@@ -331,6 +331,11 @@ SUBROUTINE w_inpXML(&
END IF
END IF
268 FORMAT(' <vacuumEnergyParameters vacuum="',i0,'" spinUp="',f0.8,'" spinDown="',f0.8,'">')
DO i = 1, vacuum%nvac
WRITE(fileNum,268) i, enpara%evac0(i,1), enpara%evac0(i,input%jspins)
END DO
WRITE (fileNum,'(a)') ' </filmLattice>'
ELSE
......
This source diff could not be displayed because it is too large. You can view the blob instead.
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