diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-06 08:34:27 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-06 08:34:27 -0400 |
| commit | aa6707d3e3b6e449eb6b2299091cfaefe52ae849 (patch) | |
| tree | 13bc501ded6690cb4cbd1983a1c462f54efce096 /files.f90 | |
| parent | b063cac571202757ec25f2c6e2a772684b88d4ae (diff) | |
| download | LR-87-aa6707d3e3b6e449eb6b2299091cfaefe52ae849.tar.gz LR-87-aa6707d3e3b6e449eb6b2299091cfaefe52ae849.zip | |
Fixed silly Fortran mistakes regarding functions returning allocated strings. Added an unused history system. Fixed URL handling.
Diffstat (limited to 'files.f90')
| -rw-r--r-- | files.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -26,10 +26,10 @@ contains end function is_file_end_marker - function read_line_text(unit_number, iostatus) result(res) + subroutine read_line_text(unit_number, res, iostatus) implicit none - character(len=:), allocatable::res + character(len=:), allocatable, intent(out)::res integer, intent(in)::unit_number integer, intent(out)::iostatus integer::startpos, endpos, length, i @@ -64,7 +64,7 @@ contains end do end if - end function read_line_text + end subroutine read_line_text subroutine process_line(single_line, file_type, preformatted_on) use layout @@ -125,7 +125,7 @@ contains allocate(first_line) - first_line%text = read_line_text(unit_number, iostatus) + call read_line_text(unit_number, first_line%text, iostatus) first_line%next => null() walker=>first_line @@ -141,7 +141,7 @@ contains next_line => null() walker => walker%next - walker%text = read_line_text(unit_number, iostatus) + call read_line_text(unit_number, walker%text, iostatus) end do |