223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

make functions independent of file state

This commit is contained in:
Martin Diehl 2019-10-13 11:53:35 +02:00
parent 9ea91b84e8
commit ed1d06d6f1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mesh_marc.f90
View File

@ -657,9 +657,8 @@ function mesh_marc_buildElements(nElem,nNodes,fileUnit)
exit exit
endif endif
enddo enddo
620 rewind(fileUnit)
620 end function mesh_marc_buildElements
end function mesh_marc_buildElements
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
@ -683,6 +682,7 @@ subroutine mesh_marc_buildElements2(microstructureAt,homogenizationAt, &
integer, dimension(1+nElem) :: contInts integer, dimension(1+nElem) :: contInts
integer :: i,j,t,sv,myVal,e,nNodesAlreadyRead integer :: i,j,t,sv,myVal,e,nNodesAlreadyRead
rewind(fileUnit)
read (fileUnit,'(A300)',END=630) line read (fileUnit,'(A300)',END=630) line
do do
chunkPos = IO_stringPos(line) chunkPos = IO_stringPos(line)