From 27322847a48c21d9ade9fc83642b0bc3bf52d53e Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Mon, 17 Dec 2018 21:30:10 +0100
Subject: [PATCH] reporting command line call

---
 src/results.f90 | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/results.f90 b/src/results.f90
index ccb3ec13c..718a5dbd9 100644
--- a/src/results.f90
+++ b/src/results.f90
@@ -52,11 +52,15 @@ end subroutine results_init
 subroutine results_openJobFile()
  use DAMASK_interface, only: &
    getSolverJobName
+
  implicit none
+ character(len=pStringLen) :: commandLine
 
  resultsFile = HDF5_openFile(trim(getSolverJobName())//'.hdf5','a',.true.)
- call HDF5_addAttribute(resultsFile,'DADF5version',0.1_pReal)
- call HDF5_addAttribute(resultsFile,'DAMASKversion',DAMASKVERSION)
+ call HDF5_addAttribute(resultsFile,'DADF5',0.1_pReal)
+ call HDF5_addAttribute(resultsFile,'DAMASK',DAMASKVERSION)
+ call get_command(commandLine)
+ call HDF5_addAttribute(resultsFile,'call',trim(commandLine))
  
 end subroutine results_openJobFile