type_dp_vector_2d_assignment Subroutine

private pure elemental subroutine type_dp_vector_2d_assignment(a, b)

Arguments

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

Called by

proc~~type_dp_vector_2d_assignment~~CalledByGraph proc~type_dp_vector_2d_assignment type_dp_vector_2d_assignment interface~assignment(=)~2 assignment(=) interface~assignment(=)~2->proc~type_dp_vector_2d_assignment

Source Code

    pure elemental subroutine type_dp_vector_2d_assignment(a, b)
        implicit none
        type(type_dp_vector_2d), intent(inout) :: a
        type(type_dp_vector_2d), intent(in) :: b

        a%x = b%x
        a%y = b%y
    end subroutine type_dp_vector_2d_assignment