[divide_timespans] patched divide... interface in examples.

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

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