From 98f7e74ed4aca051dc61d15c6c7030c05cb91b54 Mon Sep 17 00:00:00 2001
From: Douglas Guptill <douglas.guptill@dal.ca>
Date: Mon, 27 Jul 2009 17:31:39 +0000
Subject: [PATCH] only print date if processor = 0

---
 DOUAR.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/DOUAR.f90 b/DOUAR.f90
index 18b40970..d20cf523 100644
--- a/DOUAR.f90
+++ b/DOUAR.f90
@@ -102,7 +102,7 @@ call int_to_char(ciproc,3,iproc)
 threadinfo%Logunit=1000+iproc
 open  (unit=threadinfo%Logunit,file='./DEBUG/mpilogs/Log_'//ciproc//'.dat',status='replace')
 write(threadinfo%Logunit,*) 'This is douar, last modifed 2009-07-27'
-write(*,*)                  'This is douar, last modifed 2009-07-27'
+if (iproc.eq.0) write(*,*)  'This is douar, last modifed 2009-07-27'
 write(threadinfo%Logunit,'(a,i3)') 'Log file of mpi process',iproc
 
 call heap_init(threadinfo,2000+iproc,'./DEBUG/mpilogs/mem_heap_'//ciproc//'.dat')
-- 
GitLab