aboutsummaryrefslogtreecommitdiff
path: root/protocol.f90
diff options
context:
space:
mode:
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