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

wrong averaging

This commit is contained in:
Martin Diehl 2018-11-03 20:03:23 +01:00
parent 0447ea9d74
commit 85a2f19b18
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/homogenization_RGC.f90
View File

@ -827,7 +827,7 @@ subroutine homogenization_RGC_averageStressAndItsTangent(avgP,dAvgPdAvgF,P,dPdF,
integer(pInt) :: instance, i, j, Nconstituents, iGrain integer(pInt) :: instance, i, j, Nconstituents, iGrain
instance = homogenization_typeInstance(mesh_homogenizationAt(el)) instance = homogenization_typeInstance(mesh_homogenizationAt(el))
Nconstituents = sum(param(instance)%Nconstituents) Nconstituents = product(param(instance)%Nconstituents)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! debugging the grain tangent ! debugging the grain tangent