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

constitutive models need to skip new keyword elasticity when reading their arameters

This commit is contained in:
Franz Roters 2012-03-15 09:22:24 +00:00
parent 503f6ed040
commit 70a44fbbdd
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/constitutive_dislotwin.f90
View File

@ -300,7 +300,7 @@ do ! read thru sections of
positions = IO_stringPos(line,maxNchunks)
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
select case(tag)
case ('plasticity')
case ('plasticity', 'elasticity')
cycle
case ('(output)')
constitutive_dislotwin_Noutput(i) = constitutive_dislotwin_Noutput(i) + 1_pInt

2
code/constitutive_nonlocal.f90
View File

@ -349,7 +349,7 @@ do
positions = IO_stringPos(line,maxNchunks)
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
select case(tag)
case('plasticity','/nonlocal/')
case('plasticity','elasticity','/nonlocal/')
cycle
case ('(output)')
constitutive_nonlocal_Noutput(i) = constitutive_nonlocal_Noutput(i) + 1_pInt

2
code/constitutive_phenopowerlaw.f90
View File

@ -295,7 +295,7 @@ subroutine constitutive_phenopowerlaw_init(myFile)
positions = IO_stringPos(line,maxNchunks)
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
select case(tag)
case ('plasticity')
case ('plasticity','elasticity')
cycle
case ('(output)')
constitutive_phenopowerlaw_Noutput(i) = constitutive_phenopowerlaw_Noutput(i) + 1_pInt

2
code/constitutive_titanmod.f90
View File

@ -432,7 +432,7 @@ enddo
positions = IO_stringPos(line,maxNchunks)
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
select case(tag)
case ('plasticity')
case ('plasticity','elasticity')
cycle
case ('(output)')
constitutive_titanmod_Noutput(i) = constitutive_titanmod_Noutput(i) + 1_pInt