diff options
Diffstat (limited to 'protocol.f90')
-rw-r--r-- | protocol.f90 | 7 |
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 |