Skip to content
Snippets Groups Projects
Commit 0596bb92 authored by Jan Frederik Engels's avatar Jan Frederik Engels :new_moon: Committed by Luis Kornblueh
Browse files

Cleanup tabulators from Fortran sources.

parent 893f29af
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment