anchor.diff:  
       ! This is not a FLUSH!
       endfile(90,iostat=ierro)
  -    backspace (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
  
positive.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
  
negative.code:       flush(crlog)
        cycle
      end if
  
      write(crlog,"(a)") "CR_CHECK>  * Tracking variables"
      flush(crlog)
  