check Function

function check(i, j)

if the char is part of a number, then get it and append to ivals

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i
integer, intent(in) :: j

Return Value logical


Calls

proc~~check~3~~CallsGraph proc~check~3 problem_3::check proc~get_number problem_3::get_number proc~check~3->proc~get_number proc~is_number aoc_utilities::is_number proc~check~3->proc~is_number proc~is_symbol problem_3::is_symbol proc~get_number->proc~is_symbol proc~is_not_number aoc_utilities::is_not_number proc~is_symbol->proc~is_not_number proc~is_not_number->proc~is_number

Called by

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

Source Code

    logical function check(i,j)
        !! if the char is part of a number, then get it and append to ivals
        integer,intent(in) :: i,j
        check = is_number(array(i,j))
        if (check) ivals = [ivals, get_number(i,j)]
    end function check