From ed1d06d6f14a4a3cf85854556878c1c4b33b81db Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sun, 13 Oct 2019 11:53:35 +0200
Subject: [PATCH] make functions independent of file state

---
 src/mesh_marc.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/mesh_marc.f90 b/src/mesh_marc.f90
index 4c854a2f8..402731345 100644
--- a/src/mesh_marc.f90
+++ b/src/mesh_marc.f90
@@ -657,9 +657,8 @@ function mesh_marc_buildElements(nElem,nNodes,fileUnit)
       exit
     endif
   enddo
-620 rewind(fileUnit)
- 
-end function mesh_marc_buildElements
+
+620 end function mesh_marc_buildElements
 
 
 !--------------------------------------------------------------------------------------------------
@@ -683,6 +682,7 @@ subroutine mesh_marc_buildElements2(microstructureAt,homogenizationAt, &
   integer, dimension(1+nElem) :: contInts
   integer :: i,j,t,sv,myVal,e,nNodesAlreadyRead
 
+  rewind(fileUnit)
   read (fileUnit,'(A300)',END=630) line
   do
     chunkPos = IO_stringPos(line)