anchor.diff:  
   end subroutine dist_readDist
   
  +! ================================================================================================ !
  +!  Save Particle Data to Arrays
  +!  V.K. Berglyd Olsen, BE-ABP-HSS
  +!  Created: 2019-07-08
  +!  Updated: 2019-07-08
  +! ================================================================================================ !
   subroutine dist_saveParticle(partNo, colNo, inVal, sErr)
   
     use mod_common
  
positive.code:     nqq(1:napx) = nzz(1:napx)
    end if
  
    mtc(1:napx)   = (nqq(1:napx)*nucm0)/(qq0*nucm(1:napx))
    pstop(1:napx) = .false.
    ejf0v(1:napx) = ejfv(1:napx)
  
    if(dist_readIonA .and. dist_readIonZ .and. .not. dist_readPDGID) then
      do j=1,napx
        call CalculatePDGid(pdgid(j), naa(j), nzz(j))
      end do
    end if
  
  end subroutine dist_postprParticles
  
  ! ================================================================================================ !
  !  A. Mereghetti and D. Sinuela Pastor, for the FLUKA Team
  !  V.K. Berglyd Olsen, BE-ABP-HSS
  !  Last modified: 2018-10-31
  ! ================================================================================================ !
  subroutine dist_finaliseDist
  
    use parpro
    use mod_common
    use mod_common_track
    use mod_common_main
    use numerical_constants
  
    implicit none
  
    integer          :: j
    real(kind=fPrec) :: chkP, chkE
  
    ! Check existence of on-momentum particles in the distribution
    do j=1, napx
  
negative.code:   use mod_common
    use mod_common_main
    use string_tools
    use numerical_constants
    use mod_units
  
    character(len=:), allocatable :: lnSplit(:)
    character(len=mInputLn) inLine
    integer i, j, nSplit, lineNo, fUnit
    logical spErr, cErr, isFirst
  
    write(lout,"(a)") "DIST> Reading particles from '"//trim(dist_distFile)//"'"
  
    dist_readCols = dist_nColumns
  
    isFirst = .true.
    lineNo  = 0
    cErr    = .false.
    j       = dist_numPart ! PARTICLE definitions in the block are saved first
  