@@ -1,4 +1,6 @@
       SUBROUTINE EIRENE_SHOW_GIT_INFO(LOUT)
+      
+      use eirene_provenance
       implicit none
       integer, intent(in) :: LOUT
 
@@ -10,23 +12,23 @@ SUBROUTINE EIRENE_SHOW_GIT_INFO(LOUT)
       WRITE (LOUT,*) "----------------------------------------------"
 
       WRITE(LOUT,"(a,a)") " Current GIT repository:  ",
-     &__GITREPOSITORY
+     &trim(git_repository)
       WRITE(LOUT,"(a,a)") " Current GIT release tag: ",
-     &__GITRELEASETAG
+     &git_release_tag
       WRITE(LOUT,"(a,a)") " Current GIT branch:      ",
-     &__GITBRANCHNAME
+     &git_branch
       WRITE(LOUT,"(a,a)") " Last commit SHA1-key:    ",
-     &__GITSHAKEY
+     &trim(git_head_sha1)
       WRITE(LOUT,"(a,a)") " Hostname at compilation: ",
-     &__HOSTNAME
-      if (__GITSTATUSSTRING.eq."modyf") then
+     &trim(hostname)
+      if (git_is_dirty.eq."true") then
          WRITE (LOUT,*) ""
          WRITE (LOUT,*) "********************************************"
          WRITE (LOUT,*) "***  WARNING:                            ***"
          WRITE (LOUT,*) "***  There were uncommitted changes in   ***"
          WRITE (LOUT,*) "***  the repository during compilation.  ***"
          WRITE (LOUT,*) "***  This executable may not be          ***"
-         WRITE (LOUT,*) "***  reproducible by it's SHA1-key!      ***"
+         WRITE (LOUT,*) "***  reproducible by its SHA1-key!       ***"
          WRITE (LOUT,*) "********************************************"
       endif
 
@@ -44,6 +46,10 @@ SUBROUTINE EIRENE_SHOW_GIT_INFO_SHORT(LOUT)
 C   INPUT   :   LOUT    - Unit number for output
 C
 C***********************************************************************
+            
+      use eirene_provenance
+      use cmgutil_util, only: lenstr
+
       implicit none
       INTEGER, intent(in) :: LOUT
 C
@@ -54,10 +60,10 @@ SUBROUTINE EIRENE_SHOW_GIT_INFO_SHORT(LOUT)
 C
 C
       WRITE(LOUT,"(a,a)") " EIRENE GIT repository : ",
-     &  __GITREPOSITORY
-      CSTR=__GITSHAKEY
-      if (__GITSTATUSSTRING.eq."modyf") then
-        CSTR=CSTR(1:LEN_TRIM(CSTR))//" ( + uncommitted changes !! )"
+     &  trim(git_repository)
+      CSTR=git_head_sha1
+      if (git_is_dirty.eq."true") then
+        CSTR=CSTR(1:LENSTR(CSTR))//" ( + uncommitted changes !! )"
       ENDIF
       WRITE(LOUT,"(a,a)") " EIRENE SHA1-key       : ",CSTR
 
 
@@ -0,0 +1,27 @@
+C> \brief Print EIRENEs git version hash.
+C>
+C> Prints/sends the date, branch and version hash of EIRENE to the
+C> usual output unit.
+      SUBROUTINE EIRENE_VERSION
+      USE EIRENE_PROVENANCE
+      USE EIRMOD_PARMMOD, ONLY: EIRENE_VERSION_STRING
+      USE EIRMOD_COMPRT, ONLY: IUNOUT
+      IMPLICIT NONE
+      EXTERNAL :: EIRENE_HEADNG, EIRENE_LEER
+
+      WRITE(IUNOUT,'(2A)') ' EIRENE VERSION ',EIRENE_VERSION_STRING
+      CALL EIRENE_LEER(2)
+
+      CALL EIRENE_HEADNG('GIT REVISION USED IN THIS RUN',29)
+
+      WRITE(IUNOUT,*) 'DESCRIPTION:',
+     . git_describe
+      WRITE(IUNOUT,*) 'DATE:       ',
+     . git_commit_date
+      WRITE(IUNOUT,*) 'HASH:       ',
+     . git_head_sha1
+      WRITE(IUNOUT,*) 'BRANCH:     ',
+     . git_branch
+
+      RETURN
+      END SUBROUTINE EIRENE_VERSION