diff --git a/code/DAMASK_marc.f90 b/code/DAMASK_marc.f90
index fa96ea9f8..a4542f96a 100644
--- a/code/DAMASK_marc.f90
+++ b/code/DAMASK_marc.f90
@@ -1,3 +1,5 @@
+#define QUOTE(x) #x                                                                                 
+#define PASTE(x,y) x ## y  
 
 #ifndef INT
 #define INT 4
@@ -9,8 +11,6 @@
 
 #include "prec.f90"
 !--------------------------------------------------------------------------------------------------
-! $Id$
-!--------------------------------------------------------------------------------------------------
 !> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
 !> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
 !> @author Luc Hantcherli, Max-Planck-Institut für Eisenforschung GmbH
@@ -421,4 +421,4 @@ subroutine plotv(v,s,sp,etot,eplas,ecreep,t,m,nn,layer,ndi,nshear,jpltcd)
  if (jpltcd > materialpoint_sizeResults) call IO_error(700_pInt,jpltcd)                             ! complain about out of bounds error
  v = materialpoint_results(jpltcd,nn,mesh_FEasCP('elem', m))
 
-end subroutine plotv
+end subroutine plotv
\ No newline at end of file