anchor.diff:      ! Second, copy crbinrecs(ia)*(crnapx/2) records of data from temp file to singletrackfile.dat
       rewind(tUnit)
       rewind(90)
  -    binrecs94=0
  +    binrecs94 = 0
   
       ! Copy header
       do ia=1,crnapxo/2,1
  
positive.code: 
      ! This is not a FLUSH!
      endfile(90,iostat=ierro)
      backspace (90,iostat=ierro)
  #endif
      call f_freeUnit(tUnit)
    else !ELSE for "if(nnuml.ne.crnuml) then" -> here we treat nnuml.eq.crnuml, i.e. the number of turns have not been changed
  
negative.code:         end do
  
          ! This is not a FLUSH!
          endfile(91-ia,iostat=ierro)
          backspace(91-ia,iostat=ierro)
        else ! Number of ecords written to this file < general number of records written
            ! => Particle has been lost before last checkpoint, no need to reposition.
          write(crlog,"(2(a,i0))") "CR_CHECK> Ignoring IA ",ia," on unit ",iau
  