read_lines_expanded Function

public function read_lines_expanded(fh) result(lines)

read lines into an array of TYPE(STRING_T) variables expanding tabs

Arguments

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

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


Contents

Source Code

read_lines_expanded

Source Code

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

    integer :: i
    integer :: iostat
    character(len=:),allocatable :: line_buffer_read

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

end function read_lines_expanded