From 05b91a7ca0aace044621d8db1e82f4772181d893 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 14 Apr 2021 10:54:27 -0400 Subject: Fixed binary transfers to maintain file integrity. Added globbed file upload capabilities. Fixed memory overrun issues due to problems parsing ls output. --- player/talking.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'player/talking.f90') diff --git a/player/talking.f90 b/player/talking.f90 index 733f463..5cc3a48 100644 --- a/player/talking.f90 +++ b/player/talking.f90 @@ -23,7 +23,7 @@ contains mod_url = url open(newunit=unit_number, file=filename, status='UNKNOWN', & - access='STREAM', form='FORMATTED', iostat=istatus) + access='STREAM', iostat=istatus) ! form='FORMATTED', if(istatus == 0) then status_code = request_url(mod_url, unit_number, return_type) @@ -69,7 +69,7 @@ contains allocate(character(len=len_trim(url)) :: mod_url) mod_url = url - open(newunit=io, form="formatted", status="scratch", access='stream') + open(newunit=io, status="scratch", access='stream') status_code = request_url(mod_url, io, return_type) close(io) -- cgit v1.2.3