Commit c2c4484c authored by Gregor Michalicek's avatar Gregor Michalicek

Write out vacuum energy parameters to inp.xml

parent 36e66f65
......@@ -60,7 +60,6 @@
INTEGER iggachk
INTEGER n ,iostat, errorStatus, numSpecies
REAL scale,scpos ,zc
REAL ello0(atoms%nlod,atoms%ntype),evac0(2)
TYPE(t_banddos)::banddos
TYPE(t_obsolete)::obsolete
......@@ -369,6 +368,12 @@
ENDIF
ENDIF
! set vacuum%nvac and vacuum energy parameters
vacuum%nvac = 2
IF (sym%zrfs.OR.sym%invs) vacuum%nvac = 1
IF (oneD%odd%d1) vacuum%nvac = 1
IF(.NOT.juDFT_was_argument("-noXML")) THEN
nkptOld = kpts%nkpt
latnamTemp = cell%latnam
......
......@@ -331,7 +331,7 @@ SUBROUTINE w_inpXML(&
END IF
END IF
268 FORMAT(' <vacuumEnergyParameters vacuum="',i0,'" spinUp="',f0.8,'" spinDown="',f0.8,'">')
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
......
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