copy_choice Subroutine

private subroutine copy_choice(values, index, value, found)

Copy one 1-based choice-list item into value.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	values(:)
integer,	intent(in)			::	index
character(len=*),	intent(out)			::	value
logical,	intent(out)			::	found