anchor.diff:  INTERFACE OPERATOR(==)
     MODULE PROCEDURE eq
     MODULE PROCEDURE eq_td
  +ENDINTERFACE
  +
  +INTERFACE OPERATOR(/=)
  +  MODULE PROCEDURE neq
  +  MODULE PROCEDURE neq_td
   ENDINTERFACE
   
   INTERFACE OPERATOR(>)
  
positive.code: 
  
  
  
  PURE ELEMENTAL LOGICAL FUNCTION ge(d0,d1)
  !======================================================================>
  
negative.code:   eq_td = td0%total_seconds() == td1%total_seconds()
  
  ENDFUNCTION eq_td
  !======================================================================>
  
  
  
  PURE ELEMENTAL LOGICAL FUNCTION neq_td(td0,td1)
  !======================================================================>
  !
  ! timedelta object comparison operator. Returns .TRUE. if
  ! td0 is not equal to td1, and .FALSE. otherwise. Overloads the 
  ! operator /=.
  !
  !======================================================================>
  
    ! ARGUMENTS:
    TYPE(timedelta),INTENT(IN) :: td0,td1
  
    neq_td = .NOT. (td0%total_seconds() == td1%total_seconds())
  
  ENDFUNCTION neq_td
  !======================================================================>
  
  
  