From 520bb6da26beff31e04d84323e1b5f698e344db3 Mon Sep 17 00:00:00 2001
From: Florian Prill <florian.prill@dwd.de>
Date: Tue, 18 Dec 2018 10:24:38 +0100
Subject: [PATCH] rename constructor t_timedelta(INTEGER) into
t_timedeltaFromMilliseconds
---
src/libmtime_hl.f90 | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/libmtime_hl.f90 b/src/libmtime_hl.f90
index 4b65b8ff..30eae006 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
--
GitLab