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

was not used at all

This commit is contained in:
Martin Diehl 2018-11-03 21:16:36 +01:00
parent 0aa21e507a
commit 69079b6558
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/homogenization_RGC.f90
View File

@ -1219,7 +1219,6 @@ function relaxationVector(intFace,instance, ip, el)
integer(pInt), intent(in) :: ip, el
real(pReal), dimension (3) :: relaxationVector
integer(pInt), dimension (4), intent(in) :: intFace !< set of interface ID in 4D array (normal and position)
integer(pInt), dimension (3) :: nGDim
integer(pInt) :: &
iNum, &
instance !< homogenization ID
@ -1227,7 +1226,6 @@ function relaxationVector(intFace,instance, ip, el)
!--------------------------------------------------------------------------------------------------
! collect the interface relaxation vector from the global state array
relaxationVector = 0.0_pReal
nGDim = param(instance)%Nconstituents
iNum = interface4to1(intFace,instance) ! identify the position of the interface in global state array
if (iNum > 0_pInt) relaxationVector = homogState(mappingHomogenization(2,ip,el))% &
state((3*iNum-2):(3*iNum),mappingHomogenization(1,ip,el)) ! get the corresponding entries