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:   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
  
  