From 859e96fb9aaf92a8edc82667b20202f6085e1c14 Mon Sep 17 00:00:00 2001 From: Douglas Guptill <douglas.guptill@dal.ca> Date: Mon, 20 Jul 2009 01:17:29 +0000 Subject: [PATCH] change date --- DOUAR.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/DOUAR.f90 b/DOUAR.f90 index 9a04f1e7..bb7e3536 100644 --- a/DOUAR.f90 +++ b/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, last modifed 2009-07-14' -write(*,*) 'This is douar, last modifed 2009-07-14' +write(threadinfo%Logunit,*) 'This is douar, last modifed 2009-07-19' +write(*,*) 'This is douar, last modifed 2009-07-19' write(threadinfo%Logunit,'(a,i3)') 'Log file of mpi process',iproc call heap_init(threadinfo,2000+iproc,'./DEBUG/mpilogs/mem_heap_'//ciproc//'.dat') -- GitLab