anchor.diff:  
     select case(lnSplit(1))
   
  +  case("FORMAT")
  +    if(nSplit < 2) then
  +      write(lerr,"(a,i0)") "DIST> ERROR FORMAT takes at least 1 argument, got ",nSplit-1
  +      write(lerr,"(a)")    "DIST>       FORMAT [list of columns]"
  +      iErr = .true.
  +      return
  +    end if
  +    do i=2,nSplit
  +      call dist_setColumnFormat(lnSplit(i),cErr)
  +      if(cErr) then
  +        iErr = .true.
  +        return
  +      end if
  +    end do
  +
     case("READ")
       if(nSplit < 2) then
  -      write(lerr,"(a)") "DIST> ERROR READ must be followed by one file name only."
  +      write(lerr,"(a,i0)") "DIST> ERROR READ takes 1 argument, got ",nSplit-1
  +      write(lerr,"(a)")    "DIST>       READ filename"
         iErr = .true.
         return
       end if
  
positive.code: 
    logical,            public,  save :: dist_enable     ! DIST input block given
    logical,            public,  save :: dist_echo       ! Echo the read distribution?
    character(len=256), public,  save :: dist_readFile   ! File name for reading the distribution
    character(len=256), public,  save :: dist_echoFile   ! File name for echoing the distribution
    integer,            private, save :: dist_readUnit   ! Unit for reading the distribution
    integer,            private, save :: dist_echoUnit   ! Unit for echoing the distribution
  
  contains
  
  ! ================================================================================================ !
  
negative.code:   logical,          intent(inout) :: iErr
  
    character(len=:), allocatable   :: lnSplit(:)
    integer nSplit, i
    logical spErr, cErr
  
    call chr_split(inLine, lnSplit, nSplit, spErr)
    if(spErr) then
  