init_multipoles Subroutine

subroutine init_multipoles(this, id, origin, order, values)

    class(multipoles_type), intent(inout) :: this
    integer, intent(in) :: id
    real(dp), dimension(:), intent(in) :: origin
    integer, intent(in) :: order
    real(dp), dimension(:), intent(in) :: values

    if (allocated(this%values)) then
        deallocate(this%values)
    end if
    allocate(this%values(size(values)))

    this%id = id
    this%origin = origin
    this%order = order
    this%values = values

end subroutine init_multipoles