Prepare introduction of vacuum energy parameters in inp.xml file

(more to come to make it functional)

Prepare introduction of vacuum energy parameters in inp.xml file
(more to come to make it functional)
67e5c0d0 · Gregor Michalicek · 306ba555 · 67e5c0d0 · 67e5c0d0
Commit 67e5c0d0 authored Jun 23, 2016 by Gregor Michalicek
Hide whitespace changes
Inline Side-by-side

Showing with 1798 additions and 1770 deletions

io/w_inpXML.f90 io/w_inpXML.f90 +5 -0

io/xml/inputSchema.h io/xml/inputSchema.h +1793 -1770

No files found.
--- a/io/w_inpXML.f90
+++ b/io/w_inpXML.f90
@@ -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


--- a/io/xml/inputSchema.h
+++ b/io/xml/inputSchema.h