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

better use names known from numpy

This commit is contained in:
Martin Diehl 2020-03-01 09:47:20 +01:00
parent 4ab3bfe96d
commit 6dfc48f89e
1 changed files with 65 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/math.f90
View File

@ -73,6 +73,11 @@ module math
3,3 &
],[2,9]) !< arrangement in Plain notation
interface math_mul33xx33
module procedure math_tensordot
end interface math_mul33xx33
!---------------------------------------------------------------------------------------------------
private :: &
unitTest
@ -346,15 +351,15 @@ end function math_inner
!--------------------------------------------------------------------------------------------------
!> @brief matrix multiplication 33xx33 = 1 (double contraction --> ij * ij)
!> @brief 3x3 tensor double contraction: ij * ij
!--------------------------------------------------------------------------------------------------
real(pReal) pure function math_mul33xx33(A,B)
real(pReal) pure function math_tensordot(A,B)
real(pReal), dimension(3,3), intent(in) :: A,B
math_mul33xx33 = sum(A*B)
math_tensordot = sum(A*B)
end function math_mul33xx33
end function math_tensordot
!--------------------------------------------------------------------------------------------------