anchor.diff:  
     case("OLD_DIST") ! The old DIST block file format
       call dist_appendFormat(dist_fmtPartID, one)     ! Particle ID
  -    call dist_appendFormat(dist_fmtNONE, one)       ! Ignored
  +    call dist_appendFormat(dist_fmtParentID, one)   ! Parent ID
       call dist_appendFormat(dist_fmtNONE, one)       ! Ignored
       call dist_appendFormat(dist_fmtX, c1e3)         ! Horizontal position
       call dist_appendFormat(dist_fmtY, c1e3)         ! Vertical positiom
  
positive.code:   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
    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
  
    integer,          allocatable, private, save :: dist_colFormat(:) ! The format of the file columns
    real(kind=fPrec), allocatable, private, save :: dist_colScale(:)  ! Scaling factor for the file columns
    integer,                       private, save :: dist_nColumns = 0 ! The number of columns in the file
  
    character(len=:), allocatable, private, save :: dist_partLine(:)  ! PARTICLE definitions in the block
    integer,                       private, save :: dist_numPart = 0  ! Number of PARTICLE keywords in block
  
negative.code:   end if
  
    if(hasParticles) then
      call dist_postprParticles
      call dist_finaliseDist
      call part_applyClosedOrbit
      if(dist_echo) then
  