Commit abebe3fc authored by Gregor Michalicek's avatar Gregor Michalicek

Rename EELS -> coreSpec / coreSpectrum

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