g1_cosine2 Function

public pure function g1_cosine2(r) result(val)

Filtering kernel with support from -1.0 to 1.0 Parabolic filter

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	r

Return Value real(kind=wp)