is_uppercase_letter Function

private pure function is_uppercase_letter(c) result(is_upper)

Check if character is an uppercase letter (A-Z)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in) :: c

Return Value logical


Called by

proc~~is_uppercase_letter~~CalledByGraph proc~is_uppercase_letter is_uppercase_letter proc~extract_element extract_element proc~extract_element->proc~is_uppercase_letter

Variables

Type Visibility Attributes Name Initial
integer, private :: ic

Source Code

   pure function is_uppercase_letter(c) result(is_upper)
      !! Check if character is an uppercase letter (A-Z)
      character(len=1), intent(in) :: c
      logical :: is_upper
      integer :: ic

      ic = iachar(c)
      is_upper = (ic >= iachar('A') .and. ic <= iachar('Z'))
   end function is_uppercase_letter