anchor.diff:    ! ARGUMENTS:
     CLASS(timedelta),INTENT(IN) :: self
   
  -  total_seconds = self%days*86400D0 &
  -                 +self%hours*3600D0 &
  -                 +self%minutes*60D0 &
  +  total_seconds = self%days*86400d0 &
  +                 +self%hours*3600d0 &
  +                 +self%minutes*60d0 &
                    +self%seconds      &
  -                 +self%milliseconds*1D-3
  +                 +self%milliseconds*1d-3
   
   ENDFUNCTION total_seconds
   !======================================================================>
  
positive.code: !
  !======================================================================>
  
    CLASS(datetime),INTENT(INOUT) :: self
    INTEGER,        INTENT(IN)    :: s
  
  
negative.code: !
  !======================================================================>
  
    ! ARGUMENTS:
    REAL(KIND=real_dp),INTENT(IN) :: num
  
    INTEGER :: year,month,day,hour,minute,second,millisecond
  