Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=8), | intent(in) | :: | x | |||
real(kind=8), | intent(in) | :: | mean | |||
real(kind=8), | intent(in) | :: | sigma |
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