anchor.diff:  
   10 continue
     write(93,"(a,i0)")    "SIXTRACR> ERROR reading scatter_log.dat, iostat=",iError
  -  write(93,"(2(a,i0))") "SIXTRACR> scatter_filePos=",scatter_filePos," scatter_filePos_CR=",scatter_filePos_CR
  +  write(93,"(2(a,i0))") "SIXTRACR> scatter_logFilePos=",scatter_logFilePos," scatter_logFilePos_CR=",scatter_logFilePos_CR
     endfile(93,iostat=iError)
     backspace(93,iostat=iError)
     write(lout,"(a)")"SIXTRACR> ERROR CRCHECK failure positioning scatter_log.dat"
  
positive.code:   use crcoall
    use parpro
    use file_units
  
    implicit none
  
    integer iError
    logical isOpen
  
  #ifdef HDF5
  
  
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
  