anchor.diff:    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
   !======================================================================>
   
   
  
positive.code: PUBLIC :: OPERATOR(>=)
  PUBLIC :: OPERATOR(<=)
  PUBLIC :: OPERATOR(==)
  
  ! Procedures:
  PUBLIC :: date2num
  
negative.code: 
  
  
  PURE ELEMENTAL LOGICAL FUNCTION neq(d0,d1)
  !======================================================================>
  !
  ! datetime object comparison operator. Returns .TRUE. if d0 is not equal 
  ! to d1, and .FALSE. otherwise. Overloads the operator /=.
  !
  !======================================================================>
  
    ! ARGUMENTS:
    TYPE(datetime),INTENT(IN) :: d0,d1
  
    neq = .NOT. d0 == d1
  
  ENDFUNCTION neq
  !======================================================================>
  
  
  
  PURE ELEMENTAL LOGICAL FUNCTION ge(d0,d1)
  !======================================================================>
  