no more dropping of comments in Abaqus input file assembly

2012-04-27 14:33:39 +00:00 · 2012-04-27 14:33:39 +00:00 · dbeac18df6
parent 8e22e766c7
commit dbeac18df6
1 changed files with 1 additions and 1 deletions
--- 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