From 17623b0805ec074d8fb4aa026f97d8f4abfd0da1 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Thu, 21 May 2020 13:16:56 -0400 Subject: 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. --- protocol.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'protocol.f90') 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 -- cgit v1.2.3