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
  
    read(fileUnit, err=10, end=10) scatter_filePos_CR, scatter_seed1_CR, scatter_seed2_CR
  
    readErr = .false.
    return
  
negative.code: #endif
  
  #ifdef CR
    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
  