diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-07 14:21:35 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-07 14:21:35 -0400 |
commit | c493170e73506e974a0644452fc5a334c08171bc (patch) | |
tree | 7cfbbde04f5e3263092118dbabf843fbe68d93ad /player/talking.f90 | |
parent | 1de4bd52574599452f9e92c8e36381a4797563fb (diff) | |
download | levitating-c493170e73506e974a0644452fc5a334c08171bc.tar.gz levitating-c493170e73506e974a0644452fc5a334c08171bc.zip |
Fixed many issues related to reporting status. Initial debugging of titan upload handling.
Diffstat (limited to 'player/talking.f90')
-rw-r--r-- | player/talking.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/player/talking.f90 b/player/talking.f90 index 9c9db05..733f463 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='UNFORMATTED', iostat=istatus) + access='STREAM', form='FORMATTED', iostat=istatus) if(istatus == 0) then status_code = request_url(mod_url, unit_number, return_type) @@ -98,7 +98,7 @@ contains inquire(file=filename, size=file_size) - open(newunit=unit_number, file=trim(filename), status='UNKNOWN', & + open(newunit=unit_number, file=trim(filename), status='OLD', & access='STREAM', form='UNFORMATTED', iostat=istatus) if(istatus == 0) then |