diff --git a/src/DOUAR.f90 b/src/DOUAR.f90 index 9ce263b0448fe7314736398645f73d4400bd544c..f0af82b5f2ade303a371c2ab82d5c8c24c1961ae 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