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

Fixed typos

parent dab27b4a
No related branches found
No related tags found
No related merge requests found
......@@ -136,7 +136,7 @@ if (iproc.eq.0) then
write (*,'(a)') '! 888 .d88P Y88b. .d88P Y88b. .d88P d8888888888 888 T88b |'
write (*,'(a)') '! 8888888P" "Y88888P" "Y88888P" d88P 888 888 T88b |'
write (*,'(a)') '! |'
write(*,'(a,i1,a,i1,a,i1,a,i2,a,i3,a)') '! DOUAR-WSMP version ',params%vermajor,'.',params%verminor,'.',params%verstat,'.',adjustl(params%verrev),', using ', nproc, ' processors |'
write(*,'(a,i1,a,i1,a,i1,a,i1,a,i3,a)') '! DOUAR-WSMP version ',params%vermajor,'.',params%verminor,'.',params%verstat,'.',params%verrev,', using ', nproc, ' processors |'
write (*,'(a)') '!----------------------------------------------------------------------|'
write (*,'(a)') '!----------------------------------------------------------------------|'
endif
......
MODULE definitions
type structure
......@@ -93,7 +92,7 @@ integer,dimension(:),allocatable::invoid,elvoid,rtf,ftr
integer myicon(100),nstep,ndir,iter,ii,lsf,levmax
integer vermajor,verminor,verstat,verrev
integer input_vermajor,input_verminor
integer vermajor,verminor,verstat,verrev
integer output_vermajor,output_verminor
logical,dimension(:),allocatable::influid,do_it,subset_leaves,instrain
logical :: nest
......@@ -147,7 +146,7 @@ write (*,'(a)') '! 888 888 888 888 888 888 d88P 888 888 T
write (*,'(a)') '! 888 .d88P Y88b. .d88P Y88b. .d88P d8888888888 888 T88b |'
write (*,'(a)') '! 8888888P" "Y88888P" "Y88888P" d88P 888 888 T88b |'
write (*,'(a)') '! |'
write (*,'(a,i1,a,i1,a,i1,a,i2,a)') '! DOUAR-WSMP post-processor ',vermajor,'.',verminor,'.',verstat,'.',adjustl(verrev),' |'
write (*,'(a,i1,a,i1,a,i1,a,i1,a)') '! DOUAR-WSMP post-processor ',vermajor,'.',verminor,'.',verstat,'.',verrev,' |'
write (*,'(a)') '!------------------------------------------------------------------------------|'
write (*,'(a)') '!------------------------------------------------------------------------------|'
write (*,*) ''
......
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