ascii__add_character_codepoint Subroutine

private pure subroutine ascii__add_character_codepoint(self, cp)

Type Bound

ascii_t

Arguments

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

Source Code

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

      integer :: i, pos

      if (cp > ASCII_SIZE_BIT) return

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

      self%a(i) = ibset(self%a(i), pos)
   end subroutine ascii__add_character_codepoint