;;
;; Scalar product of vector field f with itself
;;
function dot2, f
  return, dot(f,f)
end