anchor.diff:    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
   
   ! ================================================================================================ !
  
positive.code:   write(crlog,"(2(a,i8))") "CR_CHECK> Particles  C/R: ",crnapxo,  ", Input:  ",napx*2
    write(crlog,"(2(a,i8))") "CR_CHECK> SixRecords C/R: ",crsixrecs,", Buffer: ",sixrecs
    write(crlog,"(1(a,i8))") "CR_CHECK> BinRecords C/R: ",crbinrec
  #ifndef STF
    do j=1,(crnapxo+1)/2
      write(crlog,"(2(a,i0))") "CR_CHECK>  * Record ",j,": ",crbinrecs(j)
    end do
  #endif
    flush(crlog)
  
    !  Position Files
  
negative.code: ! ================================================================================================ !
  !  Reposition Track Files
  !  Moved from crcheck
  !  Last modified: 2019-09-10
  ! ================================================================================================ !
  subroutine cr_positionTrackFiles
  
  