initial_werner_get_weight Function

private pure function initial_werner_get_weight(exc) result(weight)

Arguments

Type	Intent	Optional	Attributes		Name
type(DistinctDouble_t),	intent(in)			::	exc

Return Value real(kind=dp)