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

corrected named indices for state variables; however, not yet used

This commit is contained in:
Christoph Kords 2013-05-23 20:30:06 +00:00
parent e249366ded
commit 65524b7f84
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
code/constitutive_nonlocal.f90
View File

@ -831,45 +831,45 @@ do i = 1,maxNinstance
!*** determine indices to state array !*** determine indices to state array
forall (s = 1:ns) & forall (s = 1:ns) &
iRhoEPU(1:ns,i) = s iRhoEPU(s,i) = s
forall (s = 1:ns) & forall (s = 1:ns) &
iRhoENU(1:ns,i) = iRhoEPU(ns,i) + s iRhoENU(s,i) = iRhoEPU(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iRhoSPU(1:ns,i) = iRhoENU(ns,i) + s iRhoSPU(s,i) = iRhoENU(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iRhoSNU(1:ns,i) = iRhoSPU(ns,i) + s iRhoSNU(s,i) = iRhoSPU(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iRhoEPB(1:ns,i) = iRhoSNU(ns,i) + s iRhoEPB(s,i) = iRhoSNU(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iRhoENB(1:ns,i) = iRhoEPB(ns,i) + s iRhoENB(s,i) = iRhoEPB(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iRhoSPB(1:ns,i) = iRhoENB(ns,i) + s iRhoSPB(s,i) = iRhoENB(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iRhoSNB(1:ns,i) = iRhoSPB(ns,i) + s iRhoSNB(s,i) = iRhoSPB(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iRhoED(1:ns,i) = iRhoSNB(ns,i) + s iRhoED(s,i) = iRhoSNB(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iRhoSD(1:ns,i) = iRhoED(ns,i) + s iRhoSD(s,i) = iRhoED(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iGamma(1:ns,i) = iRhoSD(ns,i) + s iGamma(s,i) = iRhoSD(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iRhoF(1:ns,i) = iGamma(ns,i) + s iRhoF(s,i) = iGamma(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iTau(1:ns,i) = iRhoF(ns,i) + s iTau(s,i) = iRhoF(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iTauB(1:ns,i) = iTau(ns,i) + s iTauB(s,i) = iTau(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iVEP(1:ns,i) = iTauB(ns,i) + s iVEP(s,i) = iTauB(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iVEN(1:ns,i) = iVEP(ns,i) + s iVEN(s,i) = iVEP(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iVSP(1:ns,i) = iVEN(ns,i) + s iVSP(s,i) = iVEN(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iVSN(1:ns,i) = iVSP(ns,i) + s iVSN(s,i) = iVSP(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iDE(1:ns,i) = iVSN(ns,i) + s iDE(s,i) = iVSN(ns,i) + s
forall (s = 1:ns) & forall (s = 1:ns) &
iDS(1:ns,i) = iDE(ns,i) + s iDS(s,i) = iDE(ns,i) + s
!*** determine size of postResults array !*** determine size of postResults array