stripping abaqus comments is now aware of damask comments
This commit is contained in:
parent
701cf2e71b
commit
df2d520630
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue