set_doubles_weight_pointer Subroutine

public subroutine set_doubles_weight_pointer(weight_choice, ptr)

Arguments

Type	Intent	Optional	Attributes		Name
type(WeightingChoice_t),	intent(in)			::	weight_choice
procedure(get_doubles_weight_t),	intent(out),		pointer	::	ptr