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 /dumb_binary.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 'dumb_binary.f90')
-rw-r--r-- | dumb_binary.f90 | 5 |
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 |