anchor.diff:    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
   
  
positive.code:     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."
        call prror
      end if
    end do
    call f_close(inUnit)
    write(lout,"(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"
    call prror
    return
  
  20 continue
    write(lout,"(a)") "COLLDIST> ERROR Could not read file '"//trim(cdist_fileName)//"'"
    call prror
  
  end subroutine cdist_makeDist_fmt4
  
negative.code:   use mod_common, only : napx, iclo6
    use mod_common_main, only : xv1, xv2, yv1, yv2, ejv, sigmv, tas, clop6v
  
    real(kind=fPrec) :: tmpX, tmpY, tmpXP, tmpYP, tmpS, tmpE
    real(kind=fPrec) :: emitX, emitY, emitZ
    integer          :: j
  
    if(iclo6 == 0) then
      write(lerr,"(a)") "COLLDIST> ERROR The 6D closed orbit (iclo6 > 0) is required for format 6."
      call prror
    endif
  
  