FUNCTION inprod,x,y
sx=size(x,/type)
sy=size(y,/type)

if sx le 5 and sy le 5 then $
	return,(x[*]##transpose(y[*]))[0] else $
	return,(x[*]##transpose(conj(y[*])))[0]

end