anchor.diff:      if(dist_partFmt(partCol) == 0) then
         dist_partFmt(partCol) = fmtID
       else
  -      write(lerr,"(a,i0)") "DIST> ERROR Multiple formats selected for particle coordinate ",partCol
  -      select case(partCol)
  -      case(1)
  -        write(lerr,"(a)") "DIST>      Choose only one of: X, XN, JX"
  -      case(2)
  -        write(lerr,"(a)") "DIST>      Choose only one of: XP, PX, PX/P0, PXN, PHIX"
  -      case(3)
  -        write(lerr,"(a)") "DIST>      Choose only one of: Y, YN, JY"
  -      case(4)
  -        write(lerr,"(a)") "DIST>      Choose only one of: YP, PY, PY/P0, PYN, PHIY"
  -      case(5)
  -        write(lerr,"(a)") "DIST>      Choose only one of: SIGMA, ZETA, DT, ZN, JZ"
  -      case(6)
  -        write(lerr,"(a)") "DIST>      Choose only one of: E, P, DE/E0, DP/P0, PT, PZN, PHIZ, PSIGMA"
  -      end select
  +      call dist_multFormatError(partCol)
         call prror
       end if
     end if
   
   end subroutine dist_appendFormat
  +
  +! ================================================================================================ !
  +!  V.K. Berglyd Olsen, BE-ABP-HSS
  +!  Created: 2019-07-05
  +!  Updated: 2019-07-05
  +! ================================================================================================ !
  +subroutine dist_multFormatError(partCol)
  +
  +  use crcoall
  +
  +  integer, intent(in) :: partCol
  +
  +  write(lerr,"(a,i0)") "DIST> ERROR Multiple formats selected for particle coordinate ",partCol
  +  select case(partCol)
  +  case(1)
  +    write(lerr,"(a)") "DIST>      Choose only one of: X, XN, JX"
  +  case(2)
  +    write(lerr,"(a)") "DIST>      Choose only one of: XP, PX, PX/P0, PXN, PHIX"
  +  case(3)
  +    write(lerr,"(a)") "DIST>      Choose only one of: Y, YN, JY"
  +  case(4)
  +    write(lerr,"(a)") "DIST>      Choose only one of: YP, PY, PY/P0, PYN, PHIY"
  +  case(5)
  +    write(lerr,"(a)") "DIST>      Choose only one of: SIGMA, ZETA, DT, ZN, JZ"
  +  case(6)
  +    write(lerr,"(a)") "DIST>      Choose only one of: E, P, DE/E0, DP/P0, PT, PZN, PHIZ, PSIGMA"
  +  end select
  +
  +end subroutine dist_multFormatError
   
   ! ================================================================================================ !
   !  Parse PARTICLE Lines from DIST Block
  
positive.code: 
    use crcoall
    use mod_alloc
    use mod_settings
  
    character(len=:), allocatable, intent(in)    :: lnSplit(:)
    integer,                       intent(in)    :: nSplit
    logical,                       intent(inout) :: iErr
  
  
  end subroutine dist_parseFill
  
  
negative.code:   type, private :: dist_fillType
      integer                       :: fillTarget = 0
      integer                       :: fillMethod = 0
      integer,          allocatable :: iParams(:)
      real(kind=fPrec), allocatable :: fParams(:)
    end type dist_fillType
  
    type(dist_fillType), allocatable, private, save :: dist_fillList(:)
    integer,                          private, save :: dist_nFill = 0
  
    !  Fill Methods
    integer, parameter :: dist_fillNONE       = 0  ! No fill
    integer, parameter :: dist_fillINT        = 1  ! Fixed integer value
    integer, parameter :: dist_fillFLOAT      = 2  ! Fixed float value
    integer, parameter :: dist_fillGAUSS      = 3  ! Gaussian distribution
    integer, parameter :: dist_fillUNIFORM    = 4  ! Uniform distribution
    integer, parameter :: dist_fillLINEAR     = 5  ! Linear fill
  
    !  Column Formats
    ! ================
  