minmod4 Function

private pure elemental function minmod4(a, b, c, d) result(m)

Four-argument minmod function. Returns 0 if the arguments do not all share the same sign; otherwise returns the value with the smallest magnitude.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	a
real(kind=wp),	intent(in)			::	b
real(kind=wp),	intent(in)			::	c
real(kind=wp),	intent(in)			::	d

Return Value real(kind=wp)