anchor.diff:  !!------------------------------------------------------------
   module time_object
       use time_delta_object, only : time_delta_t
  +    use co_util,           only : broadcast
       implicit none
       private
   
  
positive.code:                 this%year_zero,this%month_zero,this%day_zero
  
      end function units
  
      !>------------------------------------------------------------
      !!  Convert the date object into a string in the 0-filled format : "YYYY/MM/DD hh:mm:ss"
  
negative.code:         procedure, public  :: as_string   => as_string
          procedure, public  :: equals      => equals_with_precision
          procedure, public  :: units       => units
          procedure, public  :: broadcast   => bcast
  
          generic,   public  :: init        => time_init_c
          generic,   public  :: init        => time_init_i
  