From df2d5206303c07f0821098aeacaf089e69dbddbc Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Tue, 15 May 2012 14:59:26 +0000
Subject: [PATCH] stripping abaqus comments is now aware of damask comments

---
 code/IO.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/IO.f90 b/code/IO.f90
index 71b2a4de9..71d0c6c90 100644
--- a/code/IO.f90
+++ b/code/IO.f90
@@ -1503,7 +1503,7 @@ recursive function abaqus_assembleInputFile(unit1,unit2) result(createSuccess)
        createSuccess=.false.
        return
      endif
-   else
+   else if (line(1:2) /= '**' .OR. line(1:8)=='**damask') then
      write(unit1,'(A)') trim(line)
    endif
  enddo