get_number Function

function get_number(i, j)

get the full number contining the character at i,j

Arguments

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

Return Value integer(kind=ip)


Calls

proc~~get_number~~CallsGraph proc~get_number problem_3::get_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_number aoc_utilities::is_number proc~is_not_number->proc~is_number

Called by

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

Source Code

    integer(ip) function get_number(i,j)
        !! get the full number contining the character at i,j
        integer,intent(in) :: i,j
        jstart = j
        jend = j
        do
            if (array(i,jstart-1)=='.' .or. is_symbol(array(i,jstart-1))) exit
            jstart = jstart - 1
        end do
        do
            if (array(i,jend+1)=='.' .or. is_symbol(array(i,jend+1))) exit
            jend = jend + 1
        end do
        get_number = int(array(i, jstart:jend))
    end function get_number