From 025b5d1dcbb30e727afee3307d49328432bae603 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Fri, 9 Apr 2021 08:09:20 -0400 Subject: Modified how logging works so that multiple processes can write in theory. --- common/protocol.f90 | 2 +- common/request.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'common') diff --git a/common/protocol.f90 b/common/protocol.f90 index 37e3205..992283c 100644 --- a/common/protocol.f90 +++ b/common/protocol.f90 @@ -228,7 +228,7 @@ contains character, dimension(BUFFER_SIZE)::buffer logical, dimension(4)::successes - integer::i, ierr, bytes_read, bytes_written, total_written + integer::i, bytes_read, bytes_written, total_written ! For direct processing of the reponse line integer::response_line_index, bytes_received diff --git a/common/request.f90 b/common/request.f90 index e9043c0..d7b3120 100644 --- a/common/request.f90 +++ b/common/request.f90 @@ -230,7 +230,7 @@ contains integer::start_send integer::chars_sent_this_time, chars_sending - integer::i, bytes + integer::i integer::string_length character, dimension(bufsize)::buffer -- cgit v1.2.3