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

should loop over slip systems

This commit is contained in:
Martin Diehl 2018-04-26 18:35:49 +02:00
parent e3bd09d8e6
commit d9548b455e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/plastic_phenopowerlaw.f90
View File

@ -1037,7 +1037,7 @@ function plastic_phenopowerlaw_postResults(Tstar_v,ipc,ip,el)
case (resolvedstress_slip_ID) case (resolvedstress_slip_ID)
j = 0_pInt j = 0_pInt
slipFamilies2: do f = 1_pInt,size(param(instance)%Ntwin,1) slipFamilies2: do f = 1_pInt,size(param(instance)%Nslip,1)
index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family index_myFamily = sum(lattice_NslipSystem(1:f-1_pInt,ph)) ! at which index starts my family
slipSystems2: do i = 1_pInt,param(instance)%Nslip(f) slipSystems2: do i = 1_pInt,param(instance)%Nslip(f)
j = j + 1_pInt j = j + 1_pInt