function norma_2(v,n) result(resultado)
        real(8) :: resultado
        integer, intent(in) :: n
        real(8), dimension(n) :: v
        s = 0d0

        do i = 1, n
            s = s + v(k) ** 2
        end do

        resultado = sqrt(s)
    end function