From c02645c996af966d8913dd281982034eef3b1466 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Thu, 23 May 2013 21:13:56 +0000 Subject: [PATCH] use named state variable indices in "aTolState" --- code/constitutive_nonlocal.f90 | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index e3141c7e3..97a3fc420 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -1198,8 +1198,17 @@ integer(pInt) :: ns ns = totalNslip(myInstance) constitutive_nonlocal_aTolState = 0.0_pReal -constitutive_nonlocal_aTolState(1:10*ns) = aTolRho(myInstance) -constitutive_nonlocal_aTolState(10*ns+1:11*ns) = aTolShear(myInstance) +constitutive_nonlocal_aTolState(iRhoEPU(1:ns,myInstance)) = aTolRho(myInstance) +constitutive_nonlocal_aTolState(iRhoENU(1:ns,myInstance)) = aTolRho(myInstance) +constitutive_nonlocal_aTolState(iRhoSPU(1:ns,myInstance)) = aTolRho(myInstance) +constitutive_nonlocal_aTolState(iRhoSNU(1:ns,myInstance)) = aTolRho(myInstance) +constitutive_nonlocal_aTolState(iRhoEPB(1:ns,myInstance)) = aTolRho(myInstance) +constitutive_nonlocal_aTolState(iRhoENB(1:ns,myInstance)) = aTolRho(myInstance) +constitutive_nonlocal_aTolState(iRhoSPB(1:ns,myInstance)) = aTolRho(myInstance) +constitutive_nonlocal_aTolState(iRhoSNB(1:ns,myInstance)) = aTolRho(myInstance) +constitutive_nonlocal_aTolState(iRhoED(1:ns,myInstance)) = aTolRho(myInstance) +constitutive_nonlocal_aTolState(iRhoSD(1:ns,myInstance)) = aTolRho(myInstance) +constitutive_nonlocal_aTolState(iGamma(1:ns,myInstance)) = aTolShear(myInstance) endfunction