Implemented vacuum energy parameters relative to vzInf

...with inp.xml iff no enpara file is provided.

eigen/lodpot.f90

@@ -502,6 +502,9 @@ CONTAINS
                 ENDIF
              ENDIF
              evac(ivac,jsp) = enpara%evac0(ivac,jsp) + vz0
+             IF (input%l_inpXML) THEN
+                evac(ivac,jsp) = vz(vacuum%nmz,ivac,jsp) + enpara%evac0(ivac,jsp)
+             END IF
              attributes = ''
              WRITE(attributes(1),'(i0)') ivac
              WRITE(attributes(2),'(i0)') jsp

init/inpeig.f90

@@ -50,7 +50,7 @@
      &                    atoms,input,jsp,enpara)
            ENDDO !dimension%jspd
          CLOSE (40)
-      ELSE
+      ELSE IF (.NOT.input%l_inpXML) THEN
          WRITE(6,*) "No enpara file found, using default values"
          enpara%el0(0,:,1)=-999999.0
          DO n = 1, atoms%ntype

io/r_inpXML.F90

@@ -736,7 +736,7 @@ SUBROUTINE r_inpXML(&
          vacuum%dvac = cell%z1
          a3(3) = dtild
          enpara%evac0 = eVac0Default_const
-         xPathB = TRIM(ADJUSTL(xPathA))//'vacuumEnergyParameters'
+         xPathB = TRIM(ADJUSTL(xPathA))//'/vacuumEnergyParameters'
          numberNodes = xmlGetNumberOfNodes(xPathB)
          IF(numberNodes.GE.1) THEN
             DO i = 1, numberNodes