is_symbol Function

function is_symbol(c)

Arguments

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

Return Value logical


Calls

proc~~is_symbol~~CallsGraph proc~is_symbol problem_3::is_symbol proc~is_not_number aoc_utilities::is_not_number proc~is_symbol->proc~is_not_number proc~is_number aoc_utilities::is_number proc~is_not_number->proc~is_number

Called by

proc~~is_symbol~~CalledByGraph proc~is_symbol problem_3::is_symbol proc~get_number problem_3::get_number proc~get_number->proc~is_symbol program~problem_3 problem_3 program~problem_3->proc~is_symbol program~problem_3->proc~get_number proc~check~3 problem_3::check program~problem_3->proc~check~3 proc~check~3->proc~get_number

Source Code

    logical function is_symbol(c)
        character(len=1),intent(in) :: c
        is_symbol = is_not_number(c) .and. c /= '.'
    end function is_symbol