gaussian_kernel_1d Function

elemental function gaussian_kernel_1d(x, mean, sigma) result(gaussian_kernel)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in) :: x
real(kind=8), intent(in) :: mean
real(kind=8), intent(in) :: sigma

Return Value real(kind=8)


Source Code

elemental function gaussian_kernel_1d(x,mean,sigma) result(gaussian_kernel)
  real(8),intent(in) :: x,mean,sigma
  real(8)            :: gaussian_kernel
  real(8),parameter  :: pi2=2d0*acos(-1d0)
  gaussian_kernel=exp(-0.5d0*((x-mean)/sigma)**2)/sqrt(pi2)/sigma
end function gaussian_kernel_1d