is_blank Function

public elemental function is_blank(c)

Checks whether or not c is a blank character. That includes the only the space and tab characters

Arguments

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

The character to test.

Return Value logical


Variables

Type Visibility Attributes Name Initial
integer, private :: ic

Source Code

   elemental logical function is_blank(c)
      character(len=1), intent(in) :: c
          !! The character to test.
      integer :: ic
      ic = iachar(c)             ! TAB
      is_blank = (c == ' ') .or. (ic == int(z'09'))
   end function is_blank