anchor.diff:      call cdist_makeDist_fmt4
       call cdist_makeDist_fmt6
     case default
  -    write(lout,"(a)") "COLLDIST> ERROR Unknown distribution format. Valid is 0 to 6, got ",distFormat
  +    write(lerr,"(a)") "COLLDIST> ERROR Unknown distribution format. Valid is 0 to 6, got ",distFormat
  +    call prror
     end select
   
   end subroutine cdist_makeDist
  
positive.code:     read(inUnit,"(a)",end=10,err=20) inLine
      call chr_split(inLine, lnSplit, nSplit, spErr)
      if(spErr) then
        write(lout,"(a)") "COLLDIST> ERROR Failed to parse input line from particle distribution file."
        call prror
      end if
      if(nSplit /= 6) then
        write(lout,"(a)") "COLLDIST> ERROR Expected 6 values per line in particle distribution file."
        call prror
      end if
      call chr_cast(lnSplit(1),xv1(j),  spErr)
  
negative.code:   use mathlib_bouncer
    use mod_common, only : napx
    use mod_common_main, only : xv1, xv2, yv1, yv2, ejv, sigmv
  
    real(kind=fPrec) :: emitX, emitY, sigmaX, sigmaY
    integer          :: j
  