diff --git a/src/mtime_t_event.inc b/src/mtime_t_event.inc index 521b32f960582783275426101fbbeaa4eb659c22..4769771c21cba60eb2810191f2218581a5c4aa80 100644 --- a/src/mtime_t_event.inc +++ b/src/mtime_t_event.inc @@ -161,6 +161,8 @@ TYPE(c_ptr) :: event_triggerNextEventDateTime, c_pointer1 LOGICAL(c_bool) :: event_nextEventIsFirst + res = this%triggerNextEventDateTime + IF (PRESENT(query_start_dt)) THEN ! if a start for our query is given, invoke ! "my_gettriggernexteventatdatetime": @@ -204,9 +206,6 @@ & CALL my_deallocatedatetime(event_triggerNextEventDateTime ) CALL my_deallocatedatetime(c_pointer1) - - ELSE - res = this%triggerNextEventDateTime END IF END FUNCTION t_event_getNextOccurrenceDatetime