anchor.diff:            iunit = iunitS + fstrDYNAMIC%dynamic_IW9
             write(fname,'(a,i0,a)') trim(header)//'dyna_stress_',ing,'.txt'
             if(fstrDYNAMIC%restart_nout < 0 ) then
  -            OPEN(iunit,FILE=fname, access = 'append', iostat=ierror)
  +            OPEN(iunit,FILE=fname, position = 'append', iostat=ierror)
             else
               OPEN(iunit,FILE=fname, status = 'replace', iostat=ierror)
             endif
  
positive.code:           iunit = iunitS + fstrDYNAMIC%dynamic_IW4
            write(fname,'(a,i0,a)') trim(header)//'dyna_disp_',ing,'.txt'
            if(fstrDYNAMIC%restart_nout < 0 ) then
              OPEN(iunit,FILE=fname, access = 'append', iostat=ierror)
            else
              OPEN(iunit,FILE=fname, status = 'replace', iostat=ierror)
            endif
  
negative.code:           iunit = iunitS + fstrDYNAMIC%dynamic_IW5
            write(fname,'(a,i0,a)') trim(header)//'dyna_velo_',ing,'.txt'
            if(fstrDYNAMIC%restart_nout < 0 ) then
              OPEN(iunit,FILE=fname, position = 'append', iostat=ierror)
            else
              OPEN(iunit,FILE=fname, status = 'replace', iostat=ierror)
            endif
  