anchor.diff:    character(len=8), parameter :: scatter_procNames(9)     = &
       (/"Absorbed","NonDiff ","Elastic ","SingD_XB","SingD_AX","DoubD_XX","CentDiff","Unknown ","Error   "/)
   
  -  ! Pointer from an element back to a ELEM statement (0 => not used)
  +  ! Pointer from an element back to an ELEM statement (0 => not used)
     integer,          allocatable, public, save :: scatter_elemPointer(:)
   
     ! Statistical correction factor for a specific particle
  
positive.code:     call scatter_parseSeed(lnSplit, nSplit, iErr)
  
    case default
      write(lout,"(a)") "SCATTER> ERROR Keyword not recognized: '"//keyWord//"'"
      iErr = .true.
      return
  
  
negative.code:   ! Check number of arguments
    if(nSplit < 5) then
      write(lout,"(a)") "SCATTER> ERROR ELEM expected at least 5 arguments:"
      write(lout,"(a)") "SCATTER>       ELEM elemname profile scaling gen1 (gen2 gen3)"
      iErr = .true.
      return
    end if
  