slice_max_sum Subroutine

public subroutine slice_max_sum(max_f, sum_f, f, n_f, i_slice, n_i, n_groups_pad, n_j)

Signed maximum and sum of the slice f(:, i_slice, :).

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(out)			::	max_f
real(kind=dp),	intent(out)			::	sum_f
real(kind=dp),	intent(in)			::	f(SZ,n_f,n_groups_pad*n_i)
integer,	intent(in)			::	n_f
integer,	intent(in)			::	i_slice
integer,	intent(in)			::	n_i
integer,	intent(in)			::	n_groups_pad
integer,	intent(in)			::	n_j