Skip to content
Snippets Groups Projects
Commit 399b5e1a authored by Matthias Schmiddunser's avatar Matthias Schmiddunser
Browse files

Pretty git version header

parent c28033cf
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
src/DOUAR.f90
+ 2
− 2
View file @ 399b5e1a
...@@ -148,8 +148,8 @@ if (iproc.eq.0) then ...@@ -148,8 +148,8 @@ if (iproc.eq.0) then
write (*,'(a)') '! 8888888P" "Y88888P" "Y88888P" d88P 888 888 T88b |' write (*,'(a)') '! 8888888P" "Y88888P" "Y88888P" d88P 888 888 T88b |'
write (*,'(a)') '! |' write (*,'(a)') '! |'
write(*,'(a,i1,a,i1,a,i1,a,i1,a,a8,a)') '! DOUAR-WSMP version ',params%vermajor,'.',params%verminor,'.',params%verstat,'.',params%verrev,' |' write(*,'(a,i1,a,i1,a,i1,a,i1,a,a8,a)') '! DOUAR-WSMP version ',params%vermajor,'.',params%verminor,'.',params%verstat,'.',params%verrev,' |'
write(*,'(a2,a62)') '! ', 'git version '//gitvers//' |' write(*,'(a,a68,a)') '! ', 'git version '//gitvers, ' |'
write(*,'(a2,a64)') '! ', 'commited by '//gitauthor//' on '//gitdate//' |' write(*,'(a,a68,a)') '! ', 'commited by '//gitauthor//' on '//gitdate, ' |'
write(*,'(a,a68,a)') '! ',githash,' |' write(*,'(a,a68,a)') '! ',githash,' |'
if (gituntracked > 0 .AND. gitmodified > 0) then if (gituntracked > 0 .AND. gitmodified > 0) then
write (*,'(a37,i1,a15,i1,a18)') '! CAUTION: source directory contains ',gituntracked,' untracked and ',gitmodified,' modified files! |' write (*,'(a37,i1,a15,i1,a18)') '! CAUTION: source directory contains ',gituntracked,' untracked and ',gitmodified,' modified files! |'
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment