sum_reduce_real_2array Subroutine

private subroutine sum_reduce_real_2array(a, dest)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:, :)	::	a
integer,	intent(in)			::	dest