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

add a kronecker delta function

This commit is contained in:
Denny Tjahjanto 2008-03-27 11:54:34 +00:00
parent 5462d2c754
commit c063ce5bc1
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
trunk/math.f90
View File

@ -188,7 +188,26 @@
if (((i == 1).and.(j == 3).and.(k == 2)) .or. & if (((i == 1).and.(j == 3).and.(k == 2)) .or. &
((i == 2).and.(j == 1).and.(k == 3)) .or. & ((i == 2).and.(j == 1).and.(k == 3)) .or. &
((i == 3).and.(j == 2).and.(k == 1))) math_permut = -1.0_pReal ((i == 3).and.(j == 2).and.(k == 1))) math_permut = -1.0_pReal
math_permut return
END FUNCTION
!**************************************************************************
! kronecker delta function d_ij
! d_ij = 1 if i = j
! d_ij = 0 otherwise
!**************************************************************************
FUNCTION math_delta(i,j)
use prec, only: pReal, pInt
implicit none
integer(pInt) i,j
real(pReal) math_delta
math_delta = 0.0_pReal
if (i == j) math_delta = 1.0_pReal
return return
END FUNCTION END FUNCTION