real function norm(x,n)
real x(n)

norm =maxval(abs(x))
end
