is_logical_token Function

public pure function is_logical_token(token) result(valid)

Checkpoint writerが生成するlogical tokenと標準的な長形式だけを許可する。

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: token

Return Value logical


Calls

proc~~is_logical_token~~CallsGraph proc~is_logical_token is_logical_token proc~lower_ascii lower_ascii proc~is_logical_token->proc~lower_ascii

Source Code

  pure logical function is_logical_token(token) result(valid)
    character(len=*), intent(in) :: token
    character(len=len(token)) :: normalized

    normalized = lower_ascii(trim(token))
    valid = trim(normalized) == 't' .or. trim(normalized) == 'f' .or. &
            trim(normalized) == '.true.' .or. trim(normalized) == '.false.'
  end function is_logical_token