diff options
author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-05-21 13:16:56 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-05-21 13:16:56 -0400 |
commit | 17623b0805ec074d8fb4aa026f97d8f4abfd0da1 (patch) | |
tree | 38bfe65385fa4e040933cac143860a9bae194dee /protocol.f90 | |
parent | f32d7d30c9cd38544349697e475355e8a2e2a478 (diff) | |
download | LR-87-17623b0805ec074d8fb4aa026f97d8f4abfd0da1.tar.gz LR-87-17623b0805ec074d8fb4aa026f97d8f4abfd0da1.zip |
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.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 |