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

automatic length determination for more flexibility

This commit is contained in:
Martin Diehl 2020-01-23 07:29:38 +01:00
parent d28b18267b
commit cc67b1bd3b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/IO.f90
View File

@ -805,7 +805,7 @@ function IO_read(fileUnit) result(line)
character(len=pStringLen) :: line character(len=pStringLen) :: line
read(fileUnit,'(a256)',END=100) line read(fileUnit,'(A)',END=100) line
100 end function IO_read 100 end function IO_read

2
src/mesh_marc.f90
View File

@ -415,7 +415,7 @@ subroutine inputRead_mapElemSets(nameElemSet,mapElemSet,fileUnit,fileContent)
rewind(fileUnit) rewind(fileUnit)
do do
read (fileUnit,'(A300)',END=620) line read (fileUnit,'(a)',END=620) line
chunkPos = IO_stringPos(line) chunkPos = IO_stringPos(line)
if( (IO_lc(IO_stringValue(line,chunkPos,1)) == 'define' ) .and. & if( (IO_lc(IO_stringValue(line,chunkPos,1)) == 'define' ) .and. &
(IO_lc(IO_stringValue(line,chunkPos,2)) == 'element' ) ) then (IO_lc(IO_stringValue(line,chunkPos,2)) == 'element' ) ) then