scalar_product Subroutine

public subroutine scalar_product(s, x, y, n)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout),		device	::	s
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	x
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	y
integer,	intent(in),		value	::	n