diff --git a/sources/driver.F90 b/sources/driver.F90 index c254e0d..eb22d5b 100644 --- a/sources/driver.F90 +++ b/sources/driver.F90 @@ -933,8 +933,8 @@ program amun ! convert the execution time to days, hours, minutes, and seconds and print it ! - es = int(max(0.0d+00, tm_exec)) - ec = int(1000 * (max(0.0d+00, tm_exec) - es)) + es = int(tm_exec) + ec = int(1000 * (tm_exec - es)) ed = es / 86400 es = es - 86400 * ed eh = es / 3600