From 54d0a0a70414bba1d1967721bf6a4a2e718d6c3f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 1 Mar 2016 10:58:52 +0100 Subject: [PATCH] some important lines got lost during last commit --- code/DAMASK_marc.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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