stripping abaqus comments is now aware of damask comments

2012-05-15 14:59:26 +00:00 · 2012-05-15 14:59:26 +00:00 · df2d520630
parent 701cf2e71b
commit df2d520630
1 changed files with 1 additions and 1 deletions
--- 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