diff --git a/src/libmtime_hl.f90 b/src/libmtime_hl.f90
index 4b65b8ffe920c0b9dbf3185f9c98ed122520ccb1..30eae00607f8e4da2970430f518a307daf9f3457 100644
--- a/src/libmtime_hl.f90
+++ b/src/libmtime_hl.f90
@@ -16,7 +16,8 @@ module mtime_hl
   
   private
 
-  public :: t_datetime, t_timedelta
+  PUBLIC :: t_datetime, t_timedelta
+  PUBLIC :: t_timedeltaFromMilliseconds
 
   integer, parameter :: i8 = selected_int_kind(14)   !< at least 8 byte integer
 
@@ -86,9 +87,12 @@ module mtime_hl
 
   interface t_timedelta
     module procedure t_timedelta_assign_string
-    module procedure t_timedelta_assign_ms
   end interface t_timedelta
 
+  INTERFACE t_timedeltaFromMilliseconds
+    MODULE PROCEDURE t_timedelta_assign_ms
+  END INTERFACE t_timedeltaFromMilliseconds
+
 
 contains