ends_with_blank Function

public function ends_with_blank(str)

True when the string ends in a blank (space or tab), i.e. its last character separates it from anything concatenated after it.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	str

Return Value logical

Source Code

logical function ends_with_blank(str)
    character(len=*), intent(in) :: str
    ends_with_blank = .false.
    if (len(str) > 0) ends_with_blank = (str(len(str):len(str)) == ' ' &
        & .or. str(len(str):len(str)) == char(9))
end function ends_with_blank