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

these functions have no side effects

This commit is contained in:
Martin Diehl 2018-11-04 07:33:57 +01:00
parent 4dc3761fea
commit 572576cf88
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/homogenization_RGC.f90
View File

@ -1169,7 +1169,7 @@ end function homogenization_RGC_postResults
!--------------------------------------------------------------------------------------------------
!> @brief collect relaxation vectors of an interface
!--------------------------------------------------------------------------------------------------
function relaxationVector(intFace,instance,of)
pure function relaxationVector(intFace,instance,of)
implicit none
integer(pInt), intent(in) :: instance,of
@ -1190,7 +1190,7 @@ end function relaxationVector
!--------------------------------------------------------------------------------------------------
!> @brief identify the normal of an interface
!--------------------------------------------------------------------------------------------------
function interfaceNormal(intFace,instance,of)
pure function interfaceNormal(intFace,instance,of)
use math, only: &
math_mul33x3
@ -1216,7 +1216,7 @@ end function interfaceNormal
!--------------------------------------------------------------------------------------------------
!> @brief collect six faces of a grain in 4D (normal and position)
!--------------------------------------------------------------------------------------------------
function getInterface(iFace,iGrain3)
pure function getInterface(iFace,iGrain3)
implicit none
integer(pInt), dimension (4) :: getInterface
@ -1231,15 +1231,14 @@ function getInterface(iFace,iGrain3)
!--------------------------------------------------------------------------------------------------
! identify the interface position by the direction of its normal
getInterface(2:4) = iGrain3
if (iDir < 0_pInt) & ! to have a correlation with coordinate/position in real space
getInterface(1_pInt-iDir) = getInterface(1_pInt-iDir)-1_pInt
if (iDir < 0_pInt) getInterface(1_pInt-iDir) = getInterface(1_pInt-iDir)-1_pInt ! to have a correlation with coordinate/position in real space
end function getInterface
!--------------------------------------------------------------------------------------------------
!> @brief map grain ID from in 1D (global array) to in 3D (local position)
!--------------------------------------------------------------------------------------------------
function grain1to3(grain1,instance)
pure function grain1to3(grain1,instance)
implicit none
integer(pInt), dimension (3) :: grain1to3