real function vNorm$(n, v)
complex v(n)

vNorm$ =maxval(abs(v))

end

real function vNorm2(n, v)
complex v(n)

vNorm2 =sqrt(dot_product(v,v))

end
