set_int_vector_2d_array Subroutine

private subroutine set_int_vector_2d_array(self, value)

Type Bound

type_int_vector_2d

Arguments

Type IntentOptional Attributes Name
class(type_int_vector_2d), intent(inout) :: self
integer(kind=int32), intent(in) :: value(2)

Source Code

    subroutine set_int_vector_2d_array(self, value)
        implicit none
        class(type_int_vector_2d), intent(inout) :: self
        integer(int32), intent(in) :: value(2)

        self%x = value(1)
        self%y = value(2)
    end subroutine set_int_vector_2d_array