anchor.diff:  #endif
   
   #ifdef CR
  -  integer, public,  save :: scatter_filePos     = -1
  -  integer, public,  save :: scatter_filePos_CR  = 0
  -
  -  integer, private, save :: scatter_seed1_CR   = -1
  -  integer, private, save :: scatter_seed2_CR   = -1
  +  integer, public,  save :: scatter_logFilePos     = -1
  +  integer, public,  save :: scatter_logFilePos_CR  =  0
  +  integer, public,  save :: scatter_sumFilePos     = -1
  +  integer, public,  save :: scatter_sumFilePos_CR  =  0
  +
  +  integer, private, save :: scatter_seed1_CR       = -1
  +  integer, private, save :: scatter_seed2_CR       = -1
   #endif
   
   contains
  
positive.code:     open(unit=scatter_logFile,file="scatter_log.dat",status="old",position="append",action="write",err=10)
  #endif
      write(97,"(2(a,i0))") "SIXTRACR> CRCHECK sucessfully repositioned scatter_log.dat, "//&
                  "scatter_filePos=",scatter_filePos," scatter_filePos_CR=",scatter_filePos_CR
      endfile(93,iostat=iError)
      backspace(93,iostat=iError)
  
    else
      write(93,"(a,i0)") "SIXTRACR> CRCHECK did not attempt repositioning "// &
        "of scatter_log.dat, scatter_filePos_CR=",scatter_filePos_CR
      write(93,"(a)")    "SIXTRACR> If anything has been written to the file, "// &
        "it will be correctly truncated in scatter_initialise."
      endfile(93,iostat=iError)
  
negative.code:     call prror(-1)
    end if
  
    if(scatter_logFilePos_CR /= -1) then
  #ifdef BOINC
      call boincrf("scatter_log.dat",fileName)
      open(unit=scatter_logFile,file=fileName,status="old",action="readwrite", err=10)
  #else
      open(unit=scatter_logFile,file="scatter_log.dat",status="old",action="readwrite", err=10)
  #endif
      scatter_logFilePos=0
      do j=1, scatter_logFilePos_CR
        read(scatter_logFile,"(a1024)",end=10,err=10,iostat=iError) aRecord
        scatter_logFilePos = scatter_logFilePos+1
      end do
  
      ! Truncate the file after scatter_logFilePos_CR lines
      endfile(scatter_logFile,iostat=iError)
      close(scatter_logFile)
  
  