type_dp_vector_3d_sub Function

private pure elemental function type_dp_vector_3d_sub(a, b) result(c)

Arguments

Type IntentOptional Attributes Name
type(type_dp_vector_3d), intent(in) :: a
type(type_dp_vector_3d), intent(in) :: b

Return Value type(type_dp_vector_3d)


Called by

proc~~type_dp_vector_3d_sub~~CalledByGraph proc~type_dp_vector_3d_sub type_dp_vector_3d_sub interface~operator(-) operator(-) interface~operator(-)->proc~type_dp_vector_3d_sub

Source Code

    pure elemental function type_dp_vector_3d_sub(a, b) result(c)
        implicit none
        type(type_dp_vector_3d), intent(in) :: a, b
        type(type_dp_vector_3d) :: c

        c%x = a%x - b%x
        c%y = a%y - b%y
        c%z = a%z - b%z
    end function type_dp_vector_3d_sub