##################################################
################## CountRods #####################
##################################################
CountRods <- function() {
   ## Description:
   ##   
   ## Usage:
   ##   
   ## Arguments:
   ##   
   ##   
   ##   
   ##   
   ##   
   ##   
   ##   
   ##   
   ##   
   ##   
   ##   
   ## Return value:
   ##  
   #
   
   return()
}