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

vNorm$ =maxval(cdabs(v))

end

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

vNorm2 =zsqrt(dot_product(v,v))

end
