set_dp_vector_2d Subroutine

private subroutine set_dp_vector_2d(self, x_val, y_val)

Type Bound

type_dp_vector_2d

Arguments

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

Source Code

    subroutine set_dp_vector_2d(self, x_val, y_val)
        implicit none
        class(type_dp_vector_2d), intent(inout) :: self
        real(real64), intent(in) :: x_val, y_val

        self%x = x_val
        self%y = y_val
    end subroutine set_dp_vector_2d