anchor.diff:  ! common  /remit/ remitx_dist, remity_dist,remitx_collgap,remity_collgap
   !-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
   !
  +  logical, save :: coll_found(100)
   
   
   !-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
  
positive.code:   call f_requestUnit('CollPositions.dat', CollPositions_unit)
    open(unit=CollPositions_unit, file='CollPositions.dat')
  
    ! Read collimator database
    call cdb_readCollDB(coll_db)
  
    db_ncoll = cdb_nColl
    do i=1,db_ncoll
    end do
  
  !Then do any implementation specific initial loading
  #ifdef COLLIMATE_K2
  
negative.code: !JUNE2005   END OF DEDICATED TREATMENT OF RHIC OPENINGS
    end if
  
  !++  Write trajectory for any selected particle
    c_length = zero
  
  