averageVector Function

public function averageVector(x_t, n) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	x_t(:,:)
integer(kind=int32),	intent(in)			::	n

Return Value real(kind=real64), (n)