From 025b5d1dcbb30e727afee3307d49328432bae603 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Fri, 9 Apr 2021 08:09:20 -0400
Subject: Modified how logging works so that multiple processes can write in
 theory.

---
 captain/log.f90 | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'captain/log.f90')

diff --git a/captain/log.f90 b/captain/log.f90
index 44ba46e..4289f80 100644
--- a/captain/log.f90
+++ b/captain/log.f90
@@ -1,6 +1,10 @@
 module logging
 implicit none
     
+    integer, parameter::LOG_DEBUG  = 8
+    integer, parameter::LOG_INFO   = 6
+    integer, parameter::LOG_NORMAL = 3
+    
     integer, parameter::logunit = 1197
     
     integer::level_threshold
@@ -36,6 +40,7 @@ contains
         character(*), intent(in)::string
         integer, intent(in), optional::level
         
+        character(12)::pid_text
         integer::ierr
         
         if(present(level)) then
@@ -50,8 +55,10 @@ contains
         ! Silently move on if we failed to open the file
         if(ierr == 0) then
         
+            write(pid_text, '(I8)') getpid()
+        
             ! GNU Extension... :(
-            write(logunit, *) fdate()//" :: "//string
+            write(logunit, *) fdate()//" ("//trim(adjustl(pid_text))//") :: "//string
             call close(logunit)
             
         end if
-- 
cgit v1.2.3