cube_add__cube Subroutine

   pure subroutine cube_add__cube(self, cube)
      implicit none
      class(cube_t), intent(inout) :: self
      type(cube_t), intent(in) :: cube

      integer :: i

      if (.not. self%is_switched_to_bmp .and. .not. cube%is_switched_to_bmp ) then
         do concurrent (i=0:ASCII_SIZE-1)
            self%ascii%a(i) = ior(self%ascii%a(i), cube%ascii%a(i))
         end do
         return
      else
         call self%switch_bmp()
      end if

      do concurrent (i = 0:BMP_SIZE-1)
         self%bmp%b(i) = ior(self%bmp%b(i), cube%bmp%b(i))
      end do

      if (allocated(cube%sps)) then
         call cube_add__segment_list(self, cube%sps)
      end if

      if (self%single_flag) self%single_flag = self%num() == 1
   end subroutine cube_add__cube