Commit abebe3fc authored by Gregor Michalicek's avatar Gregor Michalicek

Rename EELS -> coreSpec / coreSpectrum

parent 06c7afb0
......@@ -566,7 +566,7 @@ MODULE m_types
LOGICAL:: tria
LOGICAL:: integ
LOGICAL:: pallst
LOGICAL:: l_eels
LOGICAL:: l_coreSpec
LOGICAL:: l_wann
LOGICAL:: secvar
LOGICAL:: evonly(2)
......
......@@ -1675,7 +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_coreSpec = evaluateFirstBoolOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@coreSpec'))
input%l_wann = evaluateFirstBoolOnly(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA))//'/@wannier'))
! Read in optional switches for checks
......@@ -1781,13 +1781,13 @@ SUBROUTINE r_inpXML(&
WRITE(*,*) 'band="T" --> Overriding "dos" and "ndir"!'
ENDIF
! Read in optional EELS input parameters
! Read in optional core spectrum (EELS) input parameters
xPathA = '/fleurInput/output/eels'
xPathA = '/fleurInput/output/coreSpectrum'
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")
IF ((input%l_coreSpec).AND.(numberNodes.EQ.0)) THEN
CALL juDFT_error("coreSpec is true but coreSpectrum parameters are not set!", calledby = "r_inpXML")
END IF
IF (numberNodes.EQ.1) THEN
......
This diff is collapsed.
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