anchor.diff:    write(lout,"(a,i0,a)") "DIST> Read ",jj," particles from file '"//trim(dist_readFile)//"'"
   
     if(jj < napx) then
  -    write(lout,"(a,i0)") "DIST> WARNING Read a number of particles LOWER than the one requested for tracking. Requested: ",napx
  +    write(lout,"(a,i0)") "DIST> WARNING Read a number of particles LOWER than requested: ",napx
       napx = jj
     end if
   
  
positive.code: 
  subroutine dist_readDist()
  
    use, intrinsic :: iso_fortran_env, only : int16
  
    use numerical_constants, only : zero, c1e3
    use physical_constants,  only : clight
    use parpro,              only : mInputLn, npart
  
negative.code: 
    implicit none
  
    integer                 id, gen, jj, ln
    real(kind=fPrec)        weight, z, zp, dt(npart)
    character(len=mInputLn) inLine
  
    write(lout,"(a)") "DIST> Reading particles from '"//trim(dist_readFile)//"'"
  
    xv(:,:)  = zero
    yv(:,:)  = zero
    sigmv(:) = zero
  