set_dp_vector_2d_array Subroutine

private subroutine set_dp_vector_2d_array(self, value)

Type Bound

type_dp_vector_2d

Arguments

Type IntentOptional Attributes Name
class(type_dp_vector_2d), intent(inout) :: self
real(kind=real64), intent(in) :: value(2)

Source Code

    subroutine set_dp_vector_2d_array(self, value)
        implicit none
        class(type_dp_vector_2d), intent(inout) :: self
        real(real64), intent(in) :: value(2)

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