bmp__add_character_codepoint Subroutine

private pure subroutine bmp__add_character_codepoint(self, cp)

Type Bound

bmp_t

Arguments

Type IntentOptional Attributes Name
class(bmp_t), intent(inout) :: self
integer(kind=int32), intent(in) :: cp

Source Code

   pure subroutine bmp__add_character_codepoint(self, cp)
      implicit none
      class(bmp_t), intent(inout) :: self
      integer(int32), intent(in) :: cp

      integer :: i, pos

      if (cp > BMP_SIZE_BIT) return

      i = cp / bits_64
      pos = mod(cp, bits_64)

      self%b(i) = ibset(self%b(i), pos)

   end subroutine bmp__add_character_codepoint