scalar_product Function

public function scalar_product(x, y, n_f, n, n_i, n_groups_pad, n_j) result(s)

Arguments

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