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. --- dumb_binary.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'dumb_binary.f90') 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 -- cgit v1.2.3