aboutsummaryrefslogtreecommitdiff
path: root/protocol.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-21 13:16:56 -0400
committerJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-21 13:16:56 -0400
commit17623b0805ec074d8fb4aa026f97d8f4abfd0da1 (patch)
tree38bfe65385fa4e040933cac143860a9bae194dee /protocol.f90
parentf32d7d30c9cd38544349697e475355e8a2e2a478 (diff)
downloadLR-87-17623b0805ec074d8fb4aa026f97d8f4abfd0da1.zip
LR-87-17623b0805ec074d8fb4aa026f97d8f4abfd0da1.tar.gz
Added binary handler for windows gui. Fixed opening and writing of binary files so it works on windows too. Removed all tabs from link lines for simpler processing.
Diffstat (limited to 'protocol.f90')
-rw-r--r--protocol.f907
1 files changed, 4 insertions, 3 deletions
diff --git a/protocol.f90 b/protocol.f90
index 881314b..49d8fc5 100644
--- a/protocol.f90
+++ b/protocol.f90
@@ -182,13 +182,14 @@ contains
end do
write(unit_number, '(A2)', advance='no') char(13)//char(10)
+
end if
end if
else if(binary_file .and. binary_status == binary_okay) then
- write(binary_unit, '(A1)', advance='no') buffer(i)
+ write(binary_unit) buffer(i)
else if(.not. binary_file) then
@@ -206,9 +207,9 @@ contains
if(binary_status == binary_okay) then
close(binary_unit)
- write(unit_number, *) "Binary file completed"
+ write(unit_number, *) new_line('a')//"Binary file completed"
else
- write(unit_number, *) "Binary file ignored"
+ write(unit_number, *) new_line('a')//"Binary file ignored"
end if
! For now, just reset to gemini