Minor code cleanup in r_inpXML.F90

Due to the elimination of variables some statements appeared redundantly. I removed them.

Minor code cleanup in r_inpXML.F90
Due to the elimination of variables some statements appeared redundantly. I removed them.
d87e7cd9 · Gregor Michalicek · c085f7b9 · d87e7cd9
Commit d87e7cd9 authored Jul 09, 2017 by Gregor Michalicek
Hide whitespace changes
Inline Side-by-side

Showing with 0 additions and 2 deletions

io/r_inpXML.F90 io/r_inpXML.F90 +0 -2

No files found.
--- a/io/r_inpXML.F90
+++ b/io/r_inpXML.F90
@@ -243,12 +243,10 @@ SUBROUTINE r_inpXML(&
  numberNodes = numberNodes + xmlGetNumberOfNodes('/fleurInput/atomGroups/atomGroup/absPos')
  numberNodes = numberNodes + xmlGetNumberOfNodes('/fleurInput/atomGroups/atomGroup/filmPos')

-  atoms%nat = numberNodes
  atoms%nat = numberNodes

  numberNodes = xmlGetNumberOfNodes('/fleurInput/atomGroups/atomGroup')

-  atoms%ntype = numberNodes
  atoms%ntype = numberNodes

  numSpecies = xmlGetNumberOfNodes('/fleurInput/atomSpecies/species')