mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-29 23:43:43 +02:00
23 lines
371 B
Fortran
23 lines
371 B
Fortran
!------------------------------------------------------------------------
|
|
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
|