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

last comment also holds for this one

This commit is contained in:
Franz Roters 2012-03-15 09:25:15 +00:00
parent 70a44fbbdd
commit 4d90d90886
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/constitutive_j2.f90
View File

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