anchor.diff:          end do
   
           ! This is not a FLUSH!
  -        endfile (91-ia,iostat=ierro)
  -        backspace (91-ia,iostat=ierro)
  +        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
  
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:     ! Second, copy crbinrecs(ia)*(crnapx/2) records of data from temp file to singletrackfile.dat
      rewind(tUnit)
      rewind(90)
      binrecs94 = 0
  
      ! Copy header
      do ia=1,crnapxo/2,1
  