anchor.diff:  19 continue
     write(lerr,"(a)") "DIST> ERROR Opening file '"//trim(dist_echoFile)//"'"
     call prror
  -  return
   
   end subroutine dist_echoDist
   
  
positive.code:   use mod_common
    use mod_common_main
    use string_tools
    use mod_particles
    use numerical_constants
    use mod_units
  
    character(len=:), allocatable :: lnSplit(:)
    character(len=mInputLn) inLine
    integer i, j, nSplit, lineNo, fUnit, fmtCols
    logical spErr, cErr, isFirst
  
    write(lout,"(a)") "DIST> Reading particles from '"//trim(dist_distFile)//"'"
  
    isFirst = .true.
    fmtCols = dist_nColumns
    lineNo  = 0
    cErr    = .false.
    j       = dist_numPart ! PARTICLE definitions in the block are saved first
  
negative.code:       return
      case(dist_fmtYP_NORM)
        return
      case(dist_fmtSIGMA_NORM)
        return
      case(dist_fmtDPP0_NORM)
        return
  
      end select
    end do
  
  end subroutine dist_postprParticles
  
  ! ================================================================================================ !
  !  A. Mereghetti and D. Sinuela Pastor, for the FLUKA Team
  !  V.K. Berglyd Olsen, BE-ABP-HSS
  !  Updated: 2019-07-08
  ! ================================================================================================ !
  subroutine dist_finaliseDist
  
    use parpro
    use mod_pdgid
    use mod_common
    use mod_particles
    use mod_common_main
    use mod_common_track
    use numerical_constants
  
    real(kind=fPrec) chkP, chkE
    integer j
  
    if(dist_readIonA .neqv. dist_readIonZ) then
      write(lerr,"(a)") "DIST> ERROR ION_A and ION_Z columns have to both be present if one of them is"
  