read_lines Function

public function read_lines(fh) result(lines)

read lines into an array of TYPE(STRING_T) variables

Arguments

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

Return Value type(string_t), allocatable, (:)


Contents

Source Code


Source Code

function read_lines(fh) result(lines)
    integer, intent(in) :: fh
    type(string_t), allocatable :: lines(:)

    integer :: i
    integer :: iostat

    allocate(lines(number_of_rows(fh)))
    do i = 1, size(lines)
        call getline(fh, lines(i)%s, iostat)
    end do

end function read_lines