cube__switch_ascii_to_bmp Subroutine

   pure subroutine cube__switch_ascii_to_bmp(self)
      implicit none
      class(cube_t), intent(inout) :: self

      self%is_switched_to_bmp = .true.
      if (.not. allocated(self%bmp)) then
         allocate(self%bmp)
         self%bmp%b(0:1) = self%ascii%a(0:1)
      end if

   end subroutine cube__switch_ascii_to_bmp