diff --git a/src/Marc/discretization_Marc.f90 b/src/Marc/discretization_Marc.f90
index d93eea2d5..fd6b8699d 100644
--- a/src/Marc/discretization_Marc.f90
+++ b/src/Marc/discretization_Marc.f90
@@ -216,7 +216,13 @@ subroutine inputRead(elem,node0_elem,connectivity_elem,materialAt)
     mapElemSet                                                                                      !< list of elements in elementSet
 
 
-  inputFile = IO_readlines(trim(getSolverJobName())//trim(InputFileExtension))
+  call results_openJobFile
+  call results_writeDataset_str(IO_read(trim(getSolverJobName())//InputFileExtension), 'setup', &
+                                        trim(getSolverJobName())//InputFileExtension, &
+                                        'MSC.Marc input deck')
+  call results_closeJobFile
+
+  inputFile = IO_readlines(trim(getSolverJobName())//InputFileExtension)
   call inputRead_fileFormat(fileFormatVersion, &
                             inputFile)
   call inputRead_tableStyles(initialcondTableStyle,hypoelasticTableStyle, &
diff --git a/src/parallelization.f90 b/src/parallelization.f90
index a5e89561c..0f8b1b8f8 100644
--- a/src/parallelization.f90
+++ b/src/parallelization.f90
@@ -122,7 +122,7 @@ subroutine parallelization_bcast_str(string)
   integer :: strlen, ierr                                                                           ! pI64 for strlen not supported by MPI
 
 
-  if (worldrank == 0) strlen = len(string,pI64)
+  if (worldrank == 0) strlen = string
   call MPI_Bcast(strlen,1,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
   if (worldrank /= 0) allocate(character(len=strlen)::string)