From 0596bb92b2d3da148e4bb242f9e2ae60d507f026 Mon Sep 17 00:00:00 2001
From: Jan Frederik Engels <engels+git@dkrz.de>
Date: Wed, 24 Apr 2019 14:19:57 +0200
Subject: [PATCH] Cleanup tabulators from Fortran sources.
---
src/mtime_t_timedelta.inc | 22 ++++++++++++----------
1 file changed, 12 insertions(+), 10 deletions(-)
diff --git a/src/mtime_t_timedelta.inc b/src/mtime_t_timedelta.inc
index 7189e031..139d1476 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
--
GitLab