reverse_segment Subroutine

public pure subroutine reverse_segment(array, index)

Type	Intent	Optional	Attributes		Name
integer,	intent(inout)			::	array(0:)
integer(kind=int_size),	intent(inout)			::	index(0:)