Enable double * time_delta, not only time_delta * double.

src/libmtime.f90

@@ -1460,6 +1460,7 @@ module mtime_timedelta
     module procedure elementwiseScalarMultiplyTimeDelta_long
     module procedure elementwiseScalarMultiplyTimeDeltaInv_long
     module procedure elementwiseScalarMultiplyTimeDelta_real
+    module procedure elementwiseScalarMultiplyTimeDeltaInv_real
   end interface operator (*)
   !
   interface operator (>)
@@ -2063,6 +2064,14 @@ contains
     dummy_ptr = my_elementwisescalarmultiplytimedeltadp(c_loc(base_td), lambda, c_loc(scaled_td))
   end function elementwisescalarmultiplytimedelta_real
   !
+  function elementwisescalarmultiplytimedeltaInv_real(lambda, base_td) result(scaled_td) !OK-TESTED.
+    type(timedelta), target :: scaled_td
+    real(c_double), intent(in) :: lambda
+    type(timedelta), target, intent(in) :: base_td
+    type(c_ptr) :: dummy_ptr
+    dummy_ptr = my_elementwisescalarmultiplytimedeltadp(c_loc(base_td), lambda, c_loc(scaled_td))
+  end function elementwisescalarmultiplytimedeltaInv_real
+  !
   function elementwiseAddTimeDeltatoTimeDelta(td1, td2) result(added_td) !OK-TESTED.
     type(timedelta), target :: added_td
     type(timedelta), target, intent(in) :: td1, td2