! Calculeaza norma euclidiana (1 vector)
Function vNorm2(n,v)
real v(n)

! Calculate norm
vNorm2 =sqrt(dot_product(v,v))

end
