! Infinity_Norm:
real function vNorm$(n, v)
real v(n)

vNorm$ =maxval(abs(v))

end


! Euclidean_Norm
real function vNorm2(n, v)
real v(n)

vNorm2 =sqrt(dot_product(v,v))

end
