weight_cn Function

private elemental function weight_cn(wf, cn, cnref) result(cngw)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: wf
real(kind=wp), intent(in) :: cn
real(kind=wp), intent(in) :: cnref

Return Value real(kind=wp)


Source Code

elemental function weight_cn(wf,cn,cnref) result(cngw)
   real(wp),intent(in) :: wf, cn, cnref
   real(wp) :: cngw
   intrinsic :: exp
   cngw = exp ( -wf * ( cn - cnref )**2 )
end function weight_cn