type_int_vector_2d_assignment Subroutine

private subroutine type_int_vector_2d_assignment(a, b)

Arguments

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

Called by

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

Source Code

    subroutine type_int_vector_2d_assignment(a, b)
        implicit none
        class(type_int_vector_2d), intent(inout) :: a
        class(type_int_vector_2d), intent(in) :: b

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