diff --git a/DOUAR.f90 b/DOUAR.f90 index d20cf52304f67ab704b27bb0b697ee7a361517a9..3cbd6c14246a186a7cf52632039389800693eb2a 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-27' -if (iproc.eq.0) write(*,*) 'This is douar, last modifed 2009-07-27' +write(threadinfo%Logunit,*) 'This is douar, last modifed 2009-08-20' +if (iproc.eq.0) write(*,*) 'This is douar, last modifed 2009-08-20' write(threadinfo%Logunit,'(a,i3)') 'Log file of mpi process',iproc call heap_init(threadinfo,2000+iproc,'./DEBUG/mpilogs/mem_heap_'//ciproc//'.dat')