anchor.diff:        end if
   #endif
   #ifdef CR
  -      scatter_filePos = scatter_filePos + 1
  +      scatter_logFilePos = scatter_logFilePos + 1
   #endif
         if(do_coll) then
           scatterhit(j)    = 8
  
positive.code: 
    integer j
  
    write(fileunit,err=10,iostat=iError) scatter_filePos, scatter_seed1, scatter_seed2
    write(fileunit,err=10,iostat=iError) scatter_niData, scatter_nfData, scatter_ncData
    write(fileunit,err=10,iostat=iError) (scatter_iData(j), j=1, scatter_niData)
    write(fileunit,err=10,iostat=iError) (scatter_fData(j), j=1, scatter_nfData)
    write(fileunit,err=10,iostat=iError) (scatter_cData(j), j=1, scatter_ncData)
    endfile(fileUnit,iostat=iError)
    backspace(fileUnit,iostat=iError)
  
  
negative.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_logFilePos=",scatter_logFilePos," scatter_logFilePos_CR=",scatter_logFilePos_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_logFilePos_CR=",scatter_logFilePos_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)
  