aboutsummaryrefslogtreecommitdiff
path: root/dumb_binary.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-21 13:16:56 -0400
committerJeffrey Armstrong <jeffrey.armstrong@approximatrix.com>2020-05-21 13:16:56 -0400
commit17623b0805ec074d8fb4aa026f97d8f4abfd0da1 (patch)
tree38bfe65385fa4e040933cac143860a9bae194dee /dumb_binary.f90
parentf32d7d30c9cd38544349697e475355e8a2e2a478 (diff)
downloadLR-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 'dumb_binary.f90')
-rw-r--r--dumb_binary.f905
1 files changed, 3 insertions, 2 deletions
diff --git a/dumb_binary.f90 b/dumb_binary.f90
index f12bb66..b144eb7 100644
--- a/dumb_binary.f90
+++ b/dumb_binary.f90
@@ -35,7 +35,8 @@ implicit none
contains
function dumb_handle_binary(self, mimetype, url, iostatus) result(unit_number)
-
+ implicit none
+
class(dumb_binary_handler)::self
character(*), intent(in)::mimetype
character(*), intent(in)::url
@@ -78,7 +79,7 @@ contains
unit_number = 0
open(newunit=unit_number, file=trim(filename), status='UNKNOWN', &
- access='STREAM', form='FORMATTED', iostat=istatus)
+ access='STREAM', form='UNFORMATTED', iostat=istatus)
if(istatus /= 0) then
iostatus = binary_error
else