get_cell Function

pure function get_cell(i, j) result(a)

Arguments

Type IntentOptional Attributes Name
integer(kind=ip), intent(in) :: i

coordinates
integer(kind=ip), intent(in) :: j

coordinates

Return Value character(len=1)


Called by

proc~~get_cell~~CalledByGraph proc~get_cell problem_23::get_cell proc~build_graph problem_23::build_graph proc~build_graph->proc~get_cell proc~build_graph->proc~build_graph proc~go~5 problem_23::go proc~go~5->proc~build_graph program~problem_23 problem_23 program~problem_23->proc~go~5

Source Code

    pure function get_cell(i,j) result(a)
        integer(ip),intent(in) :: i,j !! coordinates
        character(len=1) :: a
        if (slopes) then
            a = array(i,j)
        else
            a = '.' ! ignore the slopes for part b
        end if
    end function get_cell