bmp__add_character_char Subroutine

private pure subroutine bmp__add_character_char(self, chara)

Type Bound

bmp_t

Arguments

Type IntentOptional Attributes Name
class(bmp_t), intent(inout) :: self
character(len=*), intent(in) :: chara

Source Code

   pure subroutine bmp__add_character_char(self, chara)
      implicit none
      class(bmp_t), intent(inout) :: self
      character(*), intent(in) :: chara

      integer(int32) :: cp, i, pos
      type(bmp_t) :: tmp

      if (.not. is_valid_multiple_byte_character(trim(chara))) error stop
      cp = ichar_utf8(trim(chara))
      i = cp / bits_64
      pos = mod(cp, bits_64)

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

   end subroutine bmp__add_character_char