anchor.diff:    ! 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...)"
  +    write(lout,"(a)") "SCATTER>       ELEM elemname profile scaling gen1 (gen2 gen3)"
       iErr = .true.
       return
     end if
  
positive.code:   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)
    integer,          allocatable, public, save :: scatter_elemPointer(:)
  
    ! Statistical correction factor for a specific particle
  
negative.code:   do j=1,il
      if(bez(j) == lnSplit(2)) then
        if(ii /= -1) then
          write(lout,"(a)") "SCATTER> ERROR Found element '"//lnSplit(2)//"' twice in SINGLE ELEMENTS list."
          iErr = .true.
          return
        end if
        ii = j
  
        if(scatter_elemPointer(j) /= 0) then
          write(lout,"(a)") "SCATTER> ERROR Tried to define element '"//lnSplit(2)//"' twice."
          iErr = .true.
          return
        end if
  