replaced div routine in hl interface.

src/libmtime_hl.f90

@@ -194,7 +194,7 @@ MODULE mtime_hl
     ! thrown.
     PROCEDURE :: toMilliSeconds            => t_timedelta_toMilliSeconds
 
-    PROCEDURE :: divideInSecondsBy         => t_timedelta_divideInSecondsBy
+    PROCEDURE :: divideBy                  => t_timedelta_divideBy
 
 
     ! --- overloaded operators

src/mtime_t_timedelta.inc

@@ -217,7 +217,7 @@
     CALL my_deallocatetimedelta(c_pointer) !deallocate timedelta
   END FUNCTION t_timedelta_toString
 
-  FUNCTION t_timedelta_divideInSecondsBy (this, divisor, referenceDateTime) RESULT(quotient)
+  FUNCTION t_timedelta_divideBy (this, divisor, referenceDateTime) RESULT(quotient)
     CLASS(t_timedelta), INTENT(in), target  :: this
     TYPE(t_timedelta),  INTENT(in), target  :: divisor
     TYPE(t_datetime),   INTENT(IN), target  :: referenceDateTime
@@ -225,20 +225,12 @@
     TYPE(t_datetime), target                :: dt_tmp
     type(c_ptr)                             :: dummy_ptr
 
-    dummy_ptr = my_divideTimeDeltaInSeconds(c_loc(this%td), c_loc(divisor%td), &
+    dummy_ptr = my_divideTimeDelta(c_loc(this%td), c_loc(divisor%td), &
                       & c_loc(referenceDateTime%dt), c_loc(quotient))
 
-    IF (.NOT. c_associated(dummy_ptr)) THEN
-        dt_tmp = referenceDateTime + this
-        dummy_ptr = my_dividedatetimedifferenceinseconds(c_loc(dt_tmp%dt),    &
-          &                     c_loc(referenceDateTime%dt), &
-          &                     c_loc(divisor%td), c_loc(quotient))
-
-        CALL handle_errno(.not. c_associated(dummy_ptr), general_arithmetic_error, &
-          __FILE__, &
-          __LINE__)
-    END IF
-  END FUNCTION t_timedelta_divideInSecondsBy
+    CALL handle_errno(.not. c_associated(dummy_ptr), general_arithmetic_error, &
+                      __FILE__, __LINE__)
+  END FUNCTION t_timedelta_divideBy
 
   FUNCTION t_timedelta_toSeconds (this, td) RESULT(seconds)
     CLASS(t_timedelta), INTENT(in) :: this