From 65524b7f84c9384df71dc2b3a720e21a7654d604 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Thu, 23 May 2013 20:30:06 +0000 Subject: [PATCH] corrected named indices for state variables; however, not yet used --- code/constitutive_nonlocal.f90 | 40 +++++++++++++++++----------------- 1 file changed, 20 insertions(+), 20 deletions(-) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index 2481eda66..8a0b824ae 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -831,45 +831,45 @@ do i = 1,maxNinstance !*** determine indices to state array forall (s = 1:ns) & - iRhoEPU(1:ns,i) = s + iRhoEPU(s,i) = s forall (s = 1:ns) & - iRhoENU(1:ns,i) = iRhoEPU(ns,i) + s + iRhoENU(s,i) = iRhoEPU(ns,i) + s forall (s = 1:ns) & - iRhoSPU(1:ns,i) = iRhoENU(ns,i) + s + iRhoSPU(s,i) = iRhoENU(ns,i) + s forall (s = 1:ns) & - iRhoSNU(1:ns,i) = iRhoSPU(ns,i) + s + iRhoSNU(s,i) = iRhoSPU(ns,i) + s forall (s = 1:ns) & - iRhoEPB(1:ns,i) = iRhoSNU(ns,i) + s + iRhoEPB(s,i) = iRhoSNU(ns,i) + s forall (s = 1:ns) & - iRhoENB(1:ns,i) = iRhoEPB(ns,i) + s + iRhoENB(s,i) = iRhoEPB(ns,i) + s forall (s = 1:ns) & - iRhoSPB(1:ns,i) = iRhoENB(ns,i) + s + iRhoSPB(s,i) = iRhoENB(ns,i) + s forall (s = 1:ns) & - iRhoSNB(1:ns,i) = iRhoSPB(ns,i) + s + iRhoSNB(s,i) = iRhoSPB(ns,i) + s forall (s = 1:ns) & - iRhoED(1:ns,i) = iRhoSNB(ns,i) + s + iRhoED(s,i) = iRhoSNB(ns,i) + s forall (s = 1:ns) & - iRhoSD(1:ns,i) = iRhoED(ns,i) + s + iRhoSD(s,i) = iRhoED(ns,i) + s forall (s = 1:ns) & - iGamma(1:ns,i) = iRhoSD(ns,i) + s + iGamma(s,i) = iRhoSD(ns,i) + s forall (s = 1:ns) & - iRhoF(1:ns,i) = iGamma(ns,i) + s + iRhoF(s,i) = iGamma(ns,i) + s forall (s = 1:ns) & - iTau(1:ns,i) = iRhoF(ns,i) + s + iTau(s,i) = iRhoF(ns,i) + s forall (s = 1:ns) & - iTauB(1:ns,i) = iTau(ns,i) + s + iTauB(s,i) = iTau(ns,i) + s forall (s = 1:ns) & - iVEP(1:ns,i) = iTauB(ns,i) + s + iVEP(s,i) = iTauB(ns,i) + s forall (s = 1:ns) & - iVEN(1:ns,i) = iVEP(ns,i) + s + iVEN(s,i) = iVEP(ns,i) + s forall (s = 1:ns) & - iVSP(1:ns,i) = iVEN(ns,i) + s + iVSP(s,i) = iVEN(ns,i) + s forall (s = 1:ns) & - iVSN(1:ns,i) = iVSP(ns,i) + s + iVSN(s,i) = iVSP(ns,i) + s forall (s = 1:ns) & - iDE(1:ns,i) = iVSN(ns,i) + s + iDE(s,i) = iVSN(ns,i) + s forall (s = 1:ns) & - iDS(1:ns,i) = iDE(ns,i) + s + iDS(s,i) = iDE(ns,i) + s !*** determine size of postResults array