anchor.diff:    use mod_common, only : napx, iclo6
     use mod_common_main, only : xv1, xv2, yv1, yv2, ejv, sigmv, tas, clop6v
   
  -  implicit none
  -
     real(kind=fPrec) :: tmpX, tmpY, tmpXP, tmpYP, tmpS, tmpE
     real(kind=fPrec) :: emitX, emitY, emitZ
     integer          :: j
   
     if(iclo6 == 0) then
  -    write(lout,"(a)") "COLLDIST> ERROR The 6D closed orbit (iclo6 > 0) is required for format 6."
  +    write(lerr,"(a)") "COLLDIST> ERROR The 6D closed orbit (iclo6 > 0) is required for format 6."
       call prror
     endif
   
  
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:   use mod_common, only : napx
    use mod_common_main, only : xv1, xv2, yv1, yv2, ejv, sigmv
  
    integer :: j, inUnit
  
    character(len=mInputLn) inLine
  