First steps to add EELS input to inp.xml

global/types.F90

@@ -566,6 +566,7 @@ MODULE m_types
      LOGICAL:: tria
      LOGICAL:: integ
      LOGICAL:: pallst
+     LOGICAL:: l_eels
      LOGICAL:: l_wann
      LOGICAL:: secvar
      LOGICAL:: evonly(2)

io/r_inpXML.F90

@@ -1675,6 +1675,7 @@ SUBROUTINE r_inpXML(&
      banddos%band = evaluateFirstBoolOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@band'))
      banddos%vacdos = evaluateFirstBoolOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@vacdos'))
      sliceplot%slice = evaluateFirstBoolOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@slice'))
+     input%l_eels = evaluateFirstBoolOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@eels'))
      input%l_wann = evaluateFirstBoolOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@wannier'))
 
      ! Read in optional switches for checks
@@ -1780,6 +1781,19 @@ SUBROUTINE r_inpXML(&
         WRITE(*,*) 'band="T" --> Overriding "dos" and "ndir"!'
      ENDIF
 
+     ! Read in optional EELS input parameters
+
+     xPathA = '/fleurInput/output/eels'
+     numberNodes = xmlGetNumberOfNodes(xPathA)
+
+     IF ((input%l_eels).AND.(numberNodes.EQ.0)) THEN
+        CALL juDFT_error("eels is true but eels parameters are not set!", calledby = "r_inpXML")
+     END IF
+
+     IF (numberNodes.EQ.1) THEN
+        CALL juDFT_error("Reading in eels input not yet implemented!", calledby = "r_inpXML")
+     END IF
+
      ! Read in optional Wannier functions parameters
 
      xPathA = '/fleurInput/output/wannier'