Add milliseconds for time conversion

gha3mi · Jan 2, 2024 · 638f5ca · 638f5ca
1 parent a0177c6
commit 638f5ca
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/fortime.f90 b/src/fortime.f90
@@ -539,7 +539,8 @@ pure function to_seconds(values) result(seconds)
       seconds = real(values(3), rk) * 24.0_rk * 60.0_rk * 60.0_rk + &
                 real(values(5), rk) * 60.0_rk * 60.0_rk + &
                 real(values(6), rk) * 60.0_rk + &
-                real(values(7), rk)
+                real(values(7), rk) + & 
+                real(values(8), rk) / 1000.0_rk
 
    end function to_seconds
    !===============================================================================