aboutsummaryrefslogtreecommitdiff
path: root/files.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-06 15:17:22 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-06 15:17:22 -0400
commitb32558e3fb7021bb7fe2af311aaa535c79fc5637 (patch)
treefd3abf1369fee8315f2ccbd2df3a56dd4c3c9cbb /files.f90
parentaa6707d3e3b6e449eb6b2299091cfaefe52ae849 (diff)
downloadLR-87-b32558e3fb7021bb7fe2af311aaa535c79fc5637.zip
LR-87-b32558e3fb7021bb7fe2af311aaa535c79fc5637.tar.gz
Fixed stream io under non-Windows systems. Updated non-Windows project.
Diffstat (limited to 'files.f90')
-rw-r--r--files.f903
1 files changed, 3 insertions, 0 deletions
diff --git a/files.f90 b/files.f90
index 0ca43a6..b30c436 100644
--- a/files.f90
+++ b/files.f90
@@ -50,6 +50,9 @@ contains
allocate(character(len=length) :: res)
res = repeat(' ', length)
+ ! Rewind seems necessary, especially on non-Windows...
+ rewind(unit_number)
+
read(unit_number, '(A1)', pos=startpos, advance='no', iostat=iostatus) c
if(iostatus == 0) then
res(1:1) = c