type_dp_vector_3d_assignment Subroutine

private subroutine type_dp_vector_3d_assignment(a, b)

Arguments

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

Called by

proc~~type_dp_vector_3d_assignment~~CalledByGraph proc~type_dp_vector_3d_assignment type_dp_vector_3d_assignment interface~assignment(=) assignment(=) interface~assignment(=)->proc~type_dp_vector_3d_assignment

Source Code

    subroutine type_dp_vector_3d_assignment(a, b)
        implicit none
        class(type_dp_vector_3d), intent(inout) :: a
        class(type_dp_vector_3d), intent(in) :: b

        a%x = b%x
        a%y = b%y
        a%z = b%z
    end subroutine type_dp_vector_3d_assignment