Commit dba22843 authored by Gregor Michalicek's avatar Gregor Michalicek

Fix missing initialization in fleurinput/types_atoms.F90

parent 1348f241
......@@ -312,6 +312,7 @@ SUBROUTINE read_xml_atoms(this,xml)
xpath=''
IF(xml%getNumberOfNodes(TRIM(ADJUSTL(xPaths))//'/force')==1) xpath=xpaths
IF(xml%getNumberOfNodes(TRIM(ADJUSTL(xPathg))//'/force')==1) xpath=xpathg
this%relax(:,n) = 0
IF (xpath.NE.'') THEN
this%l_geo(n) = evaluateFirstBoolOnly(xml%getAttributeValue(TRIM(ADJUSTL(xPath))//'/force/@calculate'))
valueString = xml%getAttributeValue(TRIM(ADJUSTL(xPath))//'/force/@relaxXYZ')
......@@ -321,7 +322,6 @@ SUBROUTINE read_xml_atoms(this,xml)
IF (relaxZ) this%relax(3,n) = 1
ELSE
this%l_geo(n) = .FALSE.
this%relax(:,n) = 0
END IF
!LO stuff
this%nlo(n) = 0
......
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