anchor.diff:      ! 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
  
positive.code:   write(lerr,"(2(a,i0))") "CR_CHECK> ERROR Copying particle pair ",ia," IOSTAT=",ierro," from/to singletrackfile.dat"
    write(lerr,"(3(a,i0))") "CR_CHECK>       binrecs9x=",binrecs9x," Expected crbinrecs=",crbinrecs(ia)," binrecs94=",binrecs94
    call prror
  #endif
  end subroutine cr_positionTrackFiles
  
  ! ================================================================================================ !
  
negative.code: ! ================================================================================================ !
  !  Reposition Track Files
  !  Moved from crcheck
  !  Last modified: 2019-09-10
  ! ================================================================================================ !
  subroutine cr_positionTrackFiles
  
  