anchor.diff:    logical,                  private, save :: dist_echo      = .false. ! Echo the read distribution?
     logical,                  private, save :: dist_hasFormat = .false. ! Whether the FORMAT keyword exists in block or not
     logical,                  private, save :: dist_libRead   = .false. ! Read file with dist library instead of internal reader
  -  integer,                  private, save :: dist_updtEFrom = 3       ! The parameter sent to part_updatePartEnergy after DIST
     character(len=mFileName), private, save :: dist_distFile  = " "     ! File name for reading the distribution
     character(len=mFileName), private, save :: dist_echoFile  = " "     ! File name for echoing the distribution
   
  
positive.code:   ! Physical Coordinates
    integer, parameter :: dist_fmtX           = 11 ! Horizontal position
    integer, parameter :: dist_fmtY           = 12 ! Vertical positiom
    integer, parameter :: dist_fmtXP          = 13 ! Horizontal momentum ratio
    integer, parameter :: dist_fmtYP          = 14 ! Vertical momentum ratio
    integer, parameter :: dist_fmtPX          = 15 ! Horizontal momentum
    integer, parameter :: dist_fmtPY          = 16 ! Vertical momentum
    integer, parameter :: dist_fmtPXP0        = 17 ! Relative horizontal momentum
    integer, parameter :: dist_fmtPYP0        = 18 ! Relative vertical momentum
    integer, parameter :: dist_fmtZETA        = 19 ! Longitudinal relative position (canonical)
    integer, parameter :: dist_fmtSIGMA       = 20 ! Longitudinal relative position
    integer, parameter :: dist_fmtDT          = 21 ! Time delay
  
negative.code:     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)
  