! Euclidean_Norm
real function Vector_Norm2(n, v)
complex v(n)

Vector_Norm2 =sqrt(dot_product(v,v))

end
