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

Table driven input works wirh 2010! 

That leaves DDM to do for tomorrow ;-)
This commit is contained in:
Franz Roters 2010-04-29 09:43:31 +00:00
parent b7b2b4e9c3
commit e8719cb6b8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/mesh.f90
View File

@ -1062,7 +1062,7 @@ candidate: do i=1,minN ! iterate over lonelyNode's shared elements
read (unit,610,END=620) line read (unit,610,END=620) line
pos = IO_stringPos(line,maxNchunks) pos = IO_stringPos(line,maxNchunks)
if ( IO_lc(IO_stringValue(line,pos,1)) == 'table' .and. pos(1) == 6) then if ( IO_lc(IO_stringValue(line,pos,1)) == 'table' .and. pos(1) .GT. 5) then
initialcondTableStyle = IO_intValue(line,pos,4) initialcondTableStyle = IO_intValue(line,pos,4)
hypoelasticTableStyle = IO_intValue(line,pos,5) hypoelasticTableStyle = IO_intValue(line,pos,5)
exit exit