vector_norm_squared Function

public function vector_norm_squared(a, b, c, n_f, n, n_i, n_groups_pad, n_j) result(s)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	a(SZ,n_f,n_groups_pad*n_i)
real(kind=dp),	intent(in)			::	b(SZ,n_f,n_groups_pad*n_i)
real(kind=dp),	intent(in)			::	c(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

Return Value real(kind=dp)