number_of_lines_in_file Function

public function number_of_lines_in_file(iunit) result(n_lines)

Returns the number of lines in a file (assumed to be open)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iunit

the file unit number (assumed to be open)

Return Value integer

the number of lines in the file


Called by

proc~~number_of_lines_in_file~~CalledByGraph proc~number_of_lines_in_file aoc_utilities::number_of_lines_in_file proc~go~2 problem_18::go proc~go~2->proc~number_of_lines_in_file proc~go~8 problem_12::go proc~go~8->proc~number_of_lines_in_file proc~initialize problem_22::initialize proc~initialize->proc~number_of_lines_in_file proc~read_file_to_char_array aoc_utilities::read_file_to_char_array proc~read_file_to_char_array->proc~number_of_lines_in_file proc~read_file_to_int_array aoc_utilities::read_file_to_int_array proc~read_file_to_int_array->proc~number_of_lines_in_file proc~read_file_to_integer64_array aoc_utilities::read_file_to_integer64_array proc~read_file_to_integer64_array->proc~number_of_lines_in_file proc~read_file_to_integer_array aoc_utilities::read_file_to_integer_array proc~read_file_to_integer_array->proc~number_of_lines_in_file program~problem_1 problem_1 program~problem_1->proc~number_of_lines_in_file program~problem_12b problem_12b program~problem_12b->proc~number_of_lines_in_file program~problem_13 problem_13 program~problem_13->proc~number_of_lines_in_file program~problem_19 problem_19 program~problem_19->proc~number_of_lines_in_file program~problem_19b problem_19b program~problem_19b->proc~number_of_lines_in_file program~problem_2 problem_2 program~problem_2->proc~number_of_lines_in_file program~problem_25 problem_25 program~problem_25->proc~number_of_lines_in_file program~problem_4 problem_4 program~problem_4->proc~number_of_lines_in_file program~problem_5 problem_5 program~problem_5->proc~number_of_lines_in_file program~problem_7 problem_7 program~problem_7->proc~number_of_lines_in_file program~problem_8 problem_8 program~problem_8->proc~number_of_lines_in_file program~problem_9 problem_9 program~problem_9->proc~number_of_lines_in_file proc~go~5 problem_23::go proc~go~5->proc~read_file_to_char_array proc~go~6 problem_11::go proc~go~6->proc~read_file_to_char_array program~problem_10 problem_10 program~problem_10->proc~read_file_to_char_array program~problem_12 problem_12 program~problem_12->proc~go~8 program~problem_16 problem_16 program~problem_16->proc~read_file_to_char_array program~problem_17 problem_17 program~problem_17->proc~read_file_to_int_array program~problem_17~2 problem_17 program~problem_17~2->proc~read_file_to_int_array program~problem_18 problem_18 program~problem_18->proc~go~2 program~problem_21 problem_21 program~problem_21->proc~read_file_to_char_array program~problem_22 problem_22 program~problem_22->proc~initialize program~problem_3 problem_3 program~problem_3->proc~read_file_to_char_array program~problem_11 problem_11 program~problem_11->proc~go~6 program~problem_23 problem_23 program~problem_23->proc~go~5

Source Code

    function number_of_lines_in_file(iunit) result(n_lines)

    integer,intent(in)  :: iunit  !! the file unit number
                                  !! (assumed to be open)
    integer :: n_lines  !! the number of lines in the file

    character(len=1) :: tmp
    integer :: istat

    rewind(iunit)
    n_lines = 0
    do
        read(iunit,fmt='(A1)',iostat=istat) tmp
        if (is_iostat_end(istat)) exit
        n_lines = n_lines + 1
    end do
    rewind(iunit)

    end function number_of_lines_in_file