aboutsummaryrefslogtreecommitdiff
path: root/protocol.f90
diff options
context:
space:
mode:
Diffstat (limited to 'protocol.f90')
-rw-r--r--protocol.f904
1 files changed, 3 insertions, 1 deletions
diff --git a/protocol.f90 b/protocol.f90
index 49d8fc5..b0699a6 100644
--- a/protocol.f90
+++ b/protocol.f90
@@ -191,7 +191,9 @@ contains
write(binary_unit) buffer(i)
- else if(.not. binary_file) then
+ end if
+
+ if(.not. binary_file) then
write(unit_number, '(A1)', advance='no') buffer(i)