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 number_of_lines_in_file proc~n_lines file_t%n_lines proc~n_lines->proc~number_of_lines_in_file proc~read_file_to_char_array read_file_to_char_array proc~read_file_to_char_array->proc~number_of_lines_in_file proc~read_file_to_int_array read_file_to_int_array proc~read_file_to_int_array->proc~number_of_lines_in_file proc~read_file_to_integer64_array read_file_to_integer64_array proc~read_file_to_integer64_array->proc~number_of_lines_in_file proc~read_file_to_integer_array read_file_to_integer_array proc~read_file_to_integer_array->proc~number_of_lines_in_file

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
       !print*, n_lines
        read(iunit,fmt='(A1)',iostat=istat) tmp
        !print*, tmp
        if (is_iostat_end(istat)) exit
        n_lines = n_lines + 1
    end do
    rewind(iunit)

    end function number_of_lines_in_file