stripping abaqus comments is now aware of damask comments

This commit is contained in:
Franz Roters 2012-05-15 14:59:26 +00:00
parent 701cf2e71b
commit df2d520630
1 changed files with 1 additions and 1 deletions

View File

@ -1503,7 +1503,7 @@ recursive function abaqus_assembleInputFile(unit1,unit2) result(createSuccess)
createSuccess=.false. createSuccess=.false.
return return
endif endif
else else if (line(1:2) /= '**' .OR. line(1:8)=='**damask') then
write(unit1,'(A)') trim(line) write(unit1,'(A)') trim(line)
endif endif
enddo enddo