From 9cf89b462fc5d785fb85ae1f825bc99b934b7c6c Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Thu, 24 Mar 2011 05:04:55 +0000
Subject: [PATCH] Minor typo fix

---
 src/DOUAR.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/DOUAR.f90 b/src/DOUAR.f90
index 9ce263b0..f0af82b5 100644
--- a/src/DOUAR.f90
+++ b/src/DOUAR.f90
@@ -101,8 +101,8 @@ 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-WSMP v0.1, last modified 2011-03-23'
-if (iproc.eq.0) write(*,*)  'This is DOUAR-WSMP v0.1, last modified 2011-03-23, using ', nproc, ' processors.'
+write(threadinfo%Logunit,*) 'This is DOUAR-WSMP v0.1 (2011-03-23)'
+if (iproc.eq.0) write(*,*)  'This is DOUAR-WSMP v0.1 (2011-03-23), using ', nproc, ' processors.'
 write(threadinfo%Logunit,'(a,i3)') 'Log file of mpi process',iproc
 
 call heap_init(threadinfo,2000+iproc,'./DEBUG/mpilogs/mem_heap_'//ciproc//'.dat')
@@ -1428,4 +1428,4 @@ close (threadinfo%mem_heap_unit)
 
 call mpi_finalize (ierr)
 
-end
\ No newline at end of file
+end
-- 
GitLab