aboutsummaryrefslogtreecommitdiff
path: root/files.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-06 08:34:27 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-06 08:34:27 -0400
commitaa6707d3e3b6e449eb6b2299091cfaefe52ae849 (patch)
tree13bc501ded6690cb4cbd1983a1c462f54efce096 /files.f90
parentb063cac571202757ec25f2c6e2a772684b88d4ae (diff)
downloadLR-87-aa6707d3e3b6e449eb6b2299091cfaefe52ae849.zip
LR-87-aa6707d3e3b6e449eb6b2299091cfaefe52ae849.tar.gz
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.f9010
1 files changed, 5 insertions, 5 deletions
diff --git a/files.f90 b/files.f90
index cbdb44d..0ca43a6 100644
--- a/files.f90
+++ b/files.f90
@@ -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