unitize Function

public pure function unitize(x) result(y)

Unitize a vector
ε•δ½εŒ–ε‘ι‡

Arguments

Type IntentOptional Attributes Name
real(kind=sk_real_kind), intent(in), dimension(3) :: x

Return Value real(kind=sk_real_kind), dimension(3)


Contents

Source Code

unitize

Source Code

    pure function unitize(x) result(y)
        real(sk_real_kind), intent(in), dimension(3) :: x
        real(sk_real_kind), dimension(3) :: y

        y = x/distance(x)

    end function unitize