is_letter Function

private pure function is_letter(c) result(is_alpha)

Check if character is a letter (A-Z or a-z)

Arguments

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

Return Value logical


Called by

proc~~is_letter~~CalledByGraph proc~is_letter is_letter proc~extract_element extract_element proc~extract_element->proc~is_letter

Variables

Type Visibility Attributes Name Initial
integer, private :: ic

Source Code

   pure function is_letter(c) result(is_alpha)
      !! Check if character is a letter (A-Z or a-z)
      character(len=1), intent(in) :: c
      logical :: is_alpha
      integer :: ic

      ic = iachar(c)
      is_alpha = (ic >= iachar('A') .and. ic <= iachar('Z')) .or. &
                 (ic >= iachar('a') .and. ic <= iachar('z'))
   end function is_letter