set_int_vector_3d_array Subroutine

private subroutine set_int_vector_3d_array(self, value)

Type Bound

type_int_vector_3d

Arguments

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

Source Code

    subroutine set_int_vector_3d_array(self, value)
        implicit none
        class(type_int_vector_3d), intent(inout) :: self
        integer(int32), intent(in) :: value(3)

        self%x = value(1)
        self%y = value(2)
        self%z = value(3)
    end subroutine set_int_vector_3d_array