Skip to content
Snippets Groups Projects
Commit 9cf89b46 authored by Dave Whipp's avatar Dave Whipp
Browse files

Minor typo fix

parent ed4db28f
No related branches found
No related tags found
No related merge requests found
......@@ -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
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment