set_get_weight_pointer Subroutine

public subroutine set_get_weight_pointer(weight_choice, ptr)

Arguments

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