anchor.diff:  
   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
  
positive.code: 
  ! error while parsing file:
  1982 continue
    write(lout,"(a)") "DIST> ERROR Reading particles from line: '"//trim(tmp_line)//"'"
    call prror(-1)
    return
  
  
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
  