diff --git a/src/mtime_t_timedelta.inc b/src/mtime_t_timedelta.inc index 7189e0318dae425c03ec701320d84d1008eb45b2..139d14766f2e574364fd06ff1999583781ad1456 100644 --- a/src/mtime_t_timedelta.inc +++ b/src/mtime_t_timedelta.inc @@ -218,23 +218,25 @@ END FUNCTION t_timedelta_toString FUNCTION t_timedelta_divideInSecondsBy (this, divisor, referenceDateTime) RESULT(quotient) - CLASS(t_timedelta), INTENT(in), target :: this - TYPE(t_timedelta), INTENT(in), target :: divisor - TYPE(t_datetime), INTENT(IN), target :: referenceDateTime - TYPE(divisionquotienttimespan), target :: quotient - TYPE(t_datetime), target :: dt_tmp - type(c_ptr) :: dummy_ptr + CLASS(t_timedelta), INTENT(in), target :: this + TYPE(t_timedelta), INTENT(in), target :: divisor + TYPE(t_datetime), INTENT(IN), target :: referenceDateTime + TYPE(divisionquotienttimespan), target :: quotient + TYPE(t_datetime), target :: dt_tmp + type(c_ptr) :: dummy_ptr dummy_ptr = my_divideTimeDeltaInSeconds(c_loc(this%td), c_loc(divisor%td), & & c_loc(referenceDateTime%dt), c_loc(quotient)) IF (.NOT. c_associated(dummy_ptr)) THEN dt_tmp = referenceDateTime + this - dummy_ptr = my_dividedatetimedifferenceinseconds(c_loc(dt_tmp%dt), & - & c_loc(referenceDateTime%dt), & - & c_loc(divisor%td), c_loc(quotient)) + dummy_ptr = my_dividedatetimedifferenceinseconds(c_loc(dt_tmp%dt), & + & c_loc(referenceDateTime%dt), & + & c_loc(divisor%td), c_loc(quotient)) - CALL handle_errno(.not. c_associated(dummy_ptr), general_arithmetic_error, __FILE__, __LINE__) + CALL handle_errno(.not. c_associated(dummy_ptr), general_arithmetic_error, & + __FILE__, & + __LINE__) END IF END FUNCTION t_timedelta_divideInSecondsBy