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

forgotten format specifier

This commit is contained in:
Martin Diehl 2019-02-02 17:37:25 +01:00
parent abedb5c3db
commit 35c37ef9dc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mesh_marc.f90
View File

@ -1130,7 +1130,7 @@ subroutine mesh_marc_build_elements(fileUnit)
chunkPos = IO_stringPos(line) chunkPos = IO_stringPos(line)
if( (IO_lc(IO_stringValue(line,chunkPos,1_pInt)) == 'initial') .and. & if( (IO_lc(IO_stringValue(line,chunkPos,1_pInt)) == 'initial') .and. &
(IO_lc(IO_stringValue(line,chunkPos,2_pInt)) == 'state') ) then (IO_lc(IO_stringValue(line,chunkPos,2_pInt)) == 'state') ) then
if (initialcondTableStyle == 2_pInt) read (fileUnit,610,END=620) line ! read extra line for new style if (initialcondTableStyle == 2_pInt) read (fileUnit,'(A300)',END=620) line ! read extra line for new style
read (fileUnit,'(A300)',END=630) line ! read line with index of state var read (fileUnit,'(A300)',END=630) line ! read line with index of state var
chunkPos = IO_stringPos(line) chunkPos = IO_stringPos(line)
sv = IO_IntValue(line,chunkPos,1_pInt) ! figure state variable index sv = IO_IntValue(line,chunkPos,1_pInt) ! figure state variable index
@ -1149,7 +1149,7 @@ subroutine mesh_marc_build_elements(fileUnit)
e = mesh_FEasCP('elem',contInts(1_pInt+i)) e = mesh_FEasCP('elem',contInts(1_pInt+i))
mesh_element(1_pInt+sv,e) = myVal mesh_element(1_pInt+sv,e) = myVal
enddo enddo
if (initialcondTableStyle == 0_pInt) read (fileUnit,610,END=620) line ! ignore IP range for old table style if (initialcondTableStyle == 0_pInt) read (fileUnit,'(A300)',END=620) line ! ignore IP range for old table style
read (fileUnit,'(A300)',END=630) line read (fileUnit,'(A300)',END=630) line
chunkPos = IO_stringPos(line) chunkPos = IO_stringPos(line)
enddo enddo