From dbeac18df687ff51791b8115427feec459044d74 Mon Sep 17 00:00:00 2001
From: Philip	Eisenlohr <eisenlohr@egr.msu.edu>
Date: Fri, 27 Apr 2012 14:33:39 +0000
Subject: [PATCH] no more dropping of comments in Abaqus input file assembly

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

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