anchor.diff:      call chr_cast(lnSplit(5),sigmv(j),spErr)
       call chr_cast(lnSplit(6),ejv(j),  spErr)
       if(spErr) then
  -      write(lout,"(a)") "COLLDIST> ERROR Failed to parse value from particle distribution file."
  +      write(lerr,"(a)") "COLLDIST> ERROR Failed to parse value from particle distribution file."
         call prror
       end if
     end do
     call f_close(inUnit)
  -  write(lout,"(a,i0)") "COLLDIST> Number of particles read from the file is ",napx
  +  write(lerr,"(a,i0)") "COLLDIST> Number of particles read from the file is ",napx
   
     return
   
   10 continue
  -  write(lout,"(a,i0,a)") "COLLDIST> ERROR Dsitribution file contained less than ",napx," particles"
  +  write(lerr,"(a,i0,a)") "COLLDIST> ERROR Dsitribution file contained less than ",napx," particles"
     call prror
     return
   
   20 continue
  -  write(lout,"(a)") "COLLDIST> ERROR Could not read file '"//trim(cdist_fileName)//"'"
  +  write(lerr,"(a)") "COLLDIST> ERROR Could not read file '"//trim(cdist_fileName)//"'"
     call prror
   
   end subroutine cdist_makeDist_fmt4
  
positive.code:   use mod_common, only : napx
    use mod_common_main, only : xv1, xv2, yv1, yv2, ejv, sigmv
  
    implicit none
  
    real(kind=fPrec) :: long_cut, a_st, b_st
    integer          :: j
  
  
negative.code:     call cdist_makeDist_fmt4
      call cdist_makeDist_fmt6
    case default
      write(lerr,"(a)") "COLLDIST> ERROR Unknown distribution format. Valid is 0 to 6, got ",distFormat
      call prror
    end select
  
  end subroutine cdist_makeDist
  