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

wrong initiatilization

This commit is contained in:
Martin Diehl 2018-04-26 18:12:45 +02:00
parent 81cab02d7a
commit e3bd09d8e6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/plastic_phenopowerlaw.f90
View File

@ -603,7 +603,7 @@ subroutine plastic_phenopowerlaw_init(fileUnit)
state (instance)%s_twin=>plasticState(phase)%state (startIndex:endIndex,:) state (instance)%s_twin=>plasticState(phase)%state (startIndex:endIndex,:)
dotState(instance)%s_twin=>plasticState(phase)%dotState(startIndex:endIndex,:) dotState(instance)%s_twin=>plasticState(phase)%dotState(startIndex:endIndex,:)
plasticState(phase)%state0(startIndex:endIndex,:) = & plasticState(phase)%state0(startIndex:endIndex,:) = &
spread(param(instance)%tau0_twin(1:totalNtwin(instance)),2,NipcMyPhase) spread(math_expand(param(instance)%tau0_twin, param(instance)%Ntwin), 2, NipcMyPhase)
plasticState(phase)%aTolState(startIndex:endIndex) = param(instance)%aTolResistance plasticState(phase)%aTolState(startIndex:endIndex) = param(instance)%aTolResistance
startIndex = endIndex + 1_pInt startIndex = endIndex + 1_pInt