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

wrong index in output

This commit is contained in:
Martin Diehl 2015-12-23 21:15:49 +00:00
parent 74086fd0fb
commit 268c7f359c
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/plastic_phenoplus.f90
View File

@ -1373,7 +1373,7 @@ function plastic_phenoplus_postResults(Tstar_v,ipc,ip,el)
case (resistance_twin_ID) case (resistance_twin_ID)
plastic_phenoplus_postResults(c+1_pInt:c+nTwin) = & plastic_phenoplus_postResults(c+1_pInt:c+nTwin) = &
plasticState(ph)%state(1_pInt+nSlip:nTwin+nSlip-1_pInt,of) plasticState(ph)%state(1_pInt+nSlip:1_pInt+nSlip+nTwin-1_pInt,of)
c = c + nTwin c = c + nTwin
case (accumulatedshear_twin_ID) case (accumulatedshear_twin_ID)

2
code/plastic_phenopowerlaw.f90
View File

@ -1181,7 +1181,7 @@ function plastic_phenopowerlaw_postResults(Tstar_v,ipc,ip,el)
case (resistance_twin_ID) case (resistance_twin_ID)
plastic_phenopowerlaw_postResults(c+1_pInt:c+nTwin) = & plastic_phenopowerlaw_postResults(c+1_pInt:c+nTwin) = &
plasticState(ph)%state(1_pInt+nSlip:nTwin+nSlip-1_pInt,of) plasticState(ph)%state(1_pInt+nSlip:1_pInt+nSlip+nTwin-1_pInt,of)
c = c + nTwin c = c + nTwin
case (accumulatedshear_twin_ID) case (accumulatedshear_twin_ID)