mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-11-07 14:43:41 +01:00
23 lines
371 B
FortranFixed
23 lines
371 B
FortranFixed
|
!------------------------------------------------------------------------
|
||
|
function Kronecker_delta(i,j) result(delta)
|
||
|
|
||
|
! Kronecker Delta
|
||
|
|
||
|
implicit none
|
||
|
|
||
|
! Input variables
|
||
|
|
||
|
integer,intent(in) :: i,j
|
||
|
|
||
|
! Output variables
|
||
|
|
||
|
double precision :: delta
|
||
|
|
||
|
if(i == j) then
|
||
|
delta = 1d0
|
||
|
else
|
||
|
delta = 0d0
|
||
|
endif
|
||
|
|
||
|
end function Kronecker_delta
|