anchor.diff:          binrecs9x = binrecs9x + 1
         end do
       end do
  -#endif
     end if ! END "if (numl.ne.crnuml) then" and END else
     return
   
  -#ifndef STF
  -102 continue
  -  write(lerr,"(2(a,i0))") "CR_CHECK> ERROR Re-reading fort.",iau," IOSTAT = ",ierro
  -  write(lerr,"(3(a,i0))") "CR_CHECK>       Unit ",iau," binrecs9x=",binrecs9x," Expected crbinrecs=",crbinrecs(ia)
  -  call prror
  -105 continue
  -  write(lerr,"(2(a,i0))") "CR_CHECK> ERROR Copying fort.",iau," IOSTAT = ",ierro
  -  write(lerr,"(4(a,i0))") "CR_CHECK>       Unit ",iau," binrecs9x=",binrecs9x,&
  -    " Expected crbinrecs=",crbinrecs(ia)," binrecs94=",binrecs94
  -  call prror
  -#else
   102 continue
     write(lerr,"(2(a,i0))") "CR_CHECK> ERROR Re-reading singletrackfile.dat for ia=",ia," IOSTAT=",ierro
     write(lerr,"(2(a,i0))") "CR_CHECK>       binrecs9x=",binrecs9x," Expected crbinrecs=",crbinrecs(ia)
  
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
      ! Now with the new array crbinrecs we can ignore files which are
      ! basically finished because a particle has been lost.......
      ! Just check crbinrecs against crbinrec
  #ifndef STF
      ! Binary files have been rewritten; now re-position
      write(crlog,"(a)") "CR_CHECK>  * Repositioning binary files"
      do ia=1,crnapxo/2,1
        iau = 91-ia
        if(crbinrecs(ia) >= crbinrec) then
          binrecs9x = 0
          read(91-ia,err=102,end=102,iostat=ierro) hbuff
          do j=2,crbinrecs(ia)
            if(ntwin /= 2) then
              read(91-ia,err=102,end=102,iostat=ierro) (tbuff(k),k=1,17)
            else
              read(91-ia,err=102,end=102,iostat=ierro) tbuff
            end if
            binrecs9x = binrecs9x + 1
          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
        end if
      end do ! END "do ia=1,crnapxo/2,1"
  #else
      binrecs9x = 0
      ! Reposition headers
      do ia=1,crnapxo/2,1
  
negative.code:     ! Reposition binary files fort.90 etc. / singletrackfile.dat
      call f_requestUnit("cr_trackfile.tmp",tUnit)
      call f_open(unit=tUnit,file="cr_trackfile.tmp",formatted=.false.,mode="rw")
      ! First, copy crbinrecs(ia)*(crnapx/2) records of data from singletrackfile.dat to temp file
      binrecs9x = 0
  
  