From f329b02cb5d33d4d35e23a6b91e31746bdca2a16 Mon Sep 17 00:00:00 2001 From: Philipp Date: Thu, 10 Oct 2024 23:34:34 +0200 Subject: [PATCH] Added parameter. --- src/dm_time.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/dm_time.f90 b/src/dm_time.f90 index f837ce3..ef5f743 100644 --- a/src/dm_time.f90 +++ b/src/dm_time.f90 @@ -18,6 +18,7 @@ module dm_time ! time stamp. Make sure that hard-coded edit descriptors match the length, ! for instance, in modules `dm_block`, `dm_dp`, and `dm_plot`. integer, parameter, public :: TIME_LEN = 32 !! Length of ISO 8601 time stamp. + integer, parameter, public :: TIME_BEATS_LEN = 8 !! Length of beats string. integer, parameter, public :: TIME_HUMAN_LEN = 26 !! Length of human-readable time stamp. character(len=*), parameter, public :: TIME_DEFAULT = '1970-01-01T00:00:00.000000+00:00' !! Default ISO 8601 time stamp with microseconds. @@ -301,8 +302,8 @@ impure elemental integer function dm_time_to_beats(time, beats) result(rc) !! (_.beat time_) in the form `@1000.00` in `beats`. One beat is !! equivalent to one decimal minute in the French decimal time (1 min !! 26.4 sec in Solar time). - character(len=TIME_LEN), intent(in) :: time !! ISO 8601 time stamp. - character(len=8), intent(out) :: beats !! Timestamp converted to _.beat_. + character(len=TIME_LEN), intent(in) :: time !! ISO 8601 time stamp. + character(len=TIME_BEATS_LEN), intent(out) :: beats !! Timestamp converted to _.beat_. integer :: hour, minute, second integer(kind=i8) :: bmt, utc