diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-09 08:09:20 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-09 08:09:20 -0400 |
| commit | 025b5d1dcbb30e727afee3307d49328432bae603 (patch) | |
| tree | 49ad0f24b7f71d9e15fbe03499b1bbaa94e6571c /common | |
| parent | 29ab398f73c791f9591674c813c47267c524e6be (diff) | |
| download | levitating-025b5d1dcbb30e727afee3307d49328432bae603.tar.gz levitating-025b5d1dcbb30e727afee3307d49328432bae603.zip | |
Modified how logging works so that multiple processes can write in theory.
Diffstat (limited to 'common')
| -rw-r--r-- | common/protocol.f90 | 2 | ||||
| -rw-r--r-- | common/request.f90 | 2 |
2 files changed, 2 insertions, 2 deletions
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 |