fixed buggy state width assignment (endindex += %nSlip corrected to %totalNslip)
This commit is contained in:
parent
fd578ab8eb
commit
1493b33a03
|
@ -440,7 +440,7 @@ subroutine plastic_phenopowerlaw_init
|
|||
!--------------------------------------------------------------------------------------------------
|
||||
! locally defined state aliases and initialization of state0 and aTolState
|
||||
startIndex = 1_pInt
|
||||
endIndex = plasticState(p)%nSlip
|
||||
endIndex = prm%totalNslip
|
||||
state (instance)%s_slip => plasticState(p)%state (startIndex:endIndex,:)
|
||||
dotState(instance)%s_slip => plasticState(p)%dotState(startIndex:endIndex,:)
|
||||
plasticState(p)%state0(startIndex:endIndex,:) = &
|
||||
|
@ -448,7 +448,7 @@ subroutine plastic_phenopowerlaw_init
|
|||
plasticState(p)%aTolState(startIndex:endIndex) = prm%aTolResistance
|
||||
|
||||
startIndex = endIndex + 1_pInt
|
||||
endIndex = endIndex + plasticState(p)%nTwin
|
||||
endIndex = endIndex + prm%totalNtwin
|
||||
state (instance)%s_twin => plasticState(p)%state (startIndex:endIndex,:)
|
||||
dotState(instance)%s_twin => plasticState(p)%dotState(startIndex:endIndex,:)
|
||||
plasticState(p)%state0(startIndex:endIndex,:) = &
|
||||
|
@ -468,7 +468,7 @@ subroutine plastic_phenopowerlaw_init
|
|||
plasticState(p)%aTolState(startIndex:endIndex) = prm%aTolTwinFrac
|
||||
|
||||
startIndex = endIndex + 1_pInt
|
||||
endIndex = endIndex + plasticState(p)%nSlip
|
||||
endIndex = endIndex + prm%totalNslip
|
||||
state (instance)%accshear_slip => plasticState(p)%state (startIndex:endIndex,:)
|
||||
dotState(instance)%accshear_slip => plasticState(p)%dotState(startIndex:endIndex,:)
|
||||
plasticState(p)%aTolState(startIndex:endIndex) = prm%aTolShear
|
||||
|
@ -477,7 +477,7 @@ subroutine plastic_phenopowerlaw_init
|
|||
plasticState(p)%accumulatedSlip => plasticState(p)%state(startIndex:endIndex,:)
|
||||
|
||||
startIndex = endIndex + 1_pInt
|
||||
endIndex = endIndex + plasticState(p)%nTwin
|
||||
endIndex = endIndex + prm%totalNtwin
|
||||
state (instance)%accshear_twin => plasticState(p)%state (startIndex:endIndex,:)
|
||||
dotState(instance)%accshear_twin => plasticState(p)%dotState(startIndex:endIndex,:)
|
||||
plasticState(p)%aTolState(startIndex:endIndex) = prm%aTolShear
|
||||
|
|
Loading…
Reference in New Issue