anchor.diff:    cErr   = .false.
   
     if(dist_hasFormat .eqv. .false.) then
  -    call dist_setColumnFormat("OLD_DIST",cErr)
  +    call dist_setMultiColFormat("OLD_DIST",isValid)
     end if
   
     call f_requestUnit(dist_distFile, fUnit)
  
positive.code:     end if
      dist_echo = .true.
  
    case default
      write(lerr,"(a)") "DIST> ERROR Unknown keyword '"//trim(lnSplit(1))//"'."
      iErr = .true.
      return
  
    case("EMIT","EMITTANCE")
      if(nSplit /= 3) then
        write(lerr,"(a,i0)") "DIST> ERROR EMITTANCE takes 2 arguments, got ",nSplit-1
  
negative.code: 
    character(len=:), allocatable :: lnSplit(:)
    character(len=mInputLn) inLine
    real(kind=fPrec) fmtFac
    integer i, nSplit, lineNo, fUnit, nRead, fmtID, fmtCol
    logical spErr, cErr, isValid
  
    write(lout,"(a)") "DIST> Reading particles from '"//trim(dist_distFile)//"'"
  
  