From 8c727eb4ff243ef56a25b8e699cbacc4a8802194 Mon Sep 17 00:00:00 2001 From: Yang Su Date: Fri, 29 Jun 2018 18:07:32 -0400 Subject: [PATCH] removed obsolete second assignment of slipRate and accSlip pointers --- src/plastic_phenopowerlaw.f90 | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/plastic_phenopowerlaw.f90 b/src/plastic_phenopowerlaw.f90 index ee0702215..4f95bf292 100644 --- a/src/plastic_phenopowerlaw.f90 +++ b/src/plastic_phenopowerlaw.f90 @@ -455,11 +455,6 @@ subroutine plastic_phenopowerlaw_init dotState(instance)%accshear_twin=>plasticState(p)%dotState(startIndex:endIndex,:) plasticState(p)%aTolState(startIndex:endIndex) = prm%aTolShear - offset_slip = plasticState(p)%nSlip+plasticState(p)%nTwin+2_pInt - plasticState(p)%slipRate => & - plasticState(p)%dotState(offset_slip+1:offset_slip+plasticState(p)%nSlip,1:NipcMyPhase) - plasticState(p)%accumulatedSlip => & - plasticState(p)%state(offset_slip+1:offset_slip+plasticState(p)%nSlip,1:NipcMyPhase) enddo