field_max_sum Subroutine

public subroutine field_max_sum(max_f, sum_f, f, n_f, n, n_i, n_groups_pad, n_j)

Maximum and sum of |f|.

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)			::	n
integer,	intent(in)			::	n_i
integer,	intent(in)			::	n_groups_pad
integer,	intent(in)			::	n_j