anchor.diff:      call dist_appendFormat(dist_fmtPDGID,    one,  0)
   
     case("OLD_DIST") ! The old DIST block file format
  +    ! This is added for the block to be compatible with the old, fixed column DIST file format.
  +    ! The scaling is hardcoded, and the file format has a few columns that are not used.
  +    ! Specifically the weight (column 3), and the z and pz coordinates (columns 6 and 9).
       call dist_appendFormat(dist_fmtPartID,   one,  0)
       call dist_appendFormat(dist_fmtParentID, one,  0)
       call dist_appendFormat(dist_fmtNONE,     one,  0)
  
positive.code:   logical, private, save :: dist_readIonA   = .false.
    logical, private, save :: dist_readCharge = .false.
    logical, private, save :: dist_readPDGID  = .false.
    logical, private, save :: dist_norm4D     = .false.
    logical, private, save :: dist_norm6D     = .false.
  
    ! Arrays to send to DISTlib
    real(kind=fPrec), allocatable, private, save :: dist_partCol1(:)    ! Ends up in array xv1
    real(kind=fPrec), allocatable, private, save :: dist_partCol2(:)    ! Ends up in array yv1
    real(kind=fPrec), allocatable, private, save :: dist_partCol3(:)    ! Ends up in array xv2
    real(kind=fPrec), allocatable, private, save :: dist_partCol4(:)    ! Ends up in array yv2
    real(kind=fPrec), allocatable, private, save :: dist_partCol5(:)    ! Ends up in array sigmv
    real(kind=fPrec), allocatable, private, save :: dist_partCol6(:)    ! Ends up in array dpsv, evj, and ejfv
    integer,                       private, save :: dist_partFmt(6) = 0 ! The format used for each column
  
  contains
  
  
negative.code:       case(1)
          write(lerr,"(a)") "DIST>      Choose one of: X, XN, JX"
        case(2)
          write(lerr,"(a)") "DIST>      Choose one of: XP, PX, PX/P0, PXN, PHIX"
        case(3)
          write(lerr,"(a)") "DIST>      Choose one of: Y, YN, JY"
        case(4)
          write(lerr,"(a)") "DIST>      Choose one of: YP, PY, PY/P0, PYN, PHIY"
        case(5)
          write(lerr,"(a)") "DIST>      Choose one of: SIGMA, ZETA, DT, ZN, JZ"
        case(6)
  