cube_t__codepoint_in_cube Function

private pure function cube_t__codepoint_in_cube(cp, cube) result(ret)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: cp
type(cube_t), intent(in) :: cube

Return Value logical


Source Code

   pure function cube_t__codepoint_in_cube (cp, cube) result(ret)
      implicit none
      integer(int32), intent(in) :: cp
      type(cube_t), intent(in) :: cube
      logical :: ret

      if (cp < ASCII_SIZE_BIT .and. .not. cube%is_switched_to_bmp) then
         ret = iand(cube%ascii%a(cp/bits_64), ishft(1_int64, mod(cp, bits_64))) /= 0_int64
      else if (cp < BMP_SIZE_BIT) then
         ret = iand(cube%bmp%b(cp/bits_64), ishft(1_int64, mod(cp, bits_64))) /= 0_int64
      else
         ret = cp .in. cube%sps(:)
      end if

   end function cube_t__codepoint_in_cube