sum_reduce_complex_4array Subroutine

private subroutine sum_reduce_complex_4array(z, dest)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(inout),		dimension(:, :, :, :)	::	z
integer,	intent(in)			::	dest