diff --git a/examples/example_hl.f90 b/examples/example_hl.f90 index f1162a6f34fdff1f35634ee32936a0c6216a80a4..2aaca9c3deb3f32ad0fbe8567db5f9e805f10d20 100644 --- a/examples/example_hl.f90 +++ b/examples/example_hl.f90 @@ -90,7 +90,7 @@ PROGRAM example ! division td1 = t_timedelta("PT23H42M") - dqts = td1%divideInSecondsBy(td) + dqts = td1%divideInSecondsBy(td,dt) WRITE (0,*) td1%toString(), " / ", td%toString(), " = ", dqts%quotient, " plus stuff" ! toSeconds, toMilliSeconds diff --git a/examples/tas.f90 b/examples/tas.f90 index fa0e1fe637ee9ac39a17c902e24e8ab7b48a14f4..70c62d3ccf9ef23224f22fda5079bd6eb2cb762a 100644 --- a/examples/tas.f90 +++ b/examples/tas.f90 @@ -72,7 +72,7 @@ program tas call timedeltatostring(tdivisor, ctd) print *, ctd - call divideTimeDeltaInSeconds(tdividend, tdivisor, tq) + CALL divideTimeDeltaInSeconds(tdividend, tdivisor, dt1, tq) print *, tq @@ -171,11 +171,11 @@ contains tddiff => newtimedelta('PT0S') tddiff = mtime_current - mtime_begin - call dividetimedeltainseconds(tddiff, vlsec, tq) - step = tq%quotient - mtime_step => newDatetime("0000-01-01T00:00:00.000"); - + + CALL dividetimedeltainseconds(tddiff, vlsec, mtime_step, tq) + step = tq%quotient + if (step >= 0) then mtime_step = mtime_begin + step * vlsec