distance Function

public pure function distance(a) result(dis)

Distance between two points
两点间距离,

Arguments

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

Return Value real(kind=sk_real_kind)


Contents

Source Code

distance

Source Code

    pure function distance(a) result(dis)
        real(sk_real_kind), intent(in) :: a(3)
        real(sk_real_kind) :: dis

        dis = sqrt(a(1)*a(1) + a(2)*a(2) + a(3)*a(3))

    end function distance