crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 05:35:49 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added trim in print_runtime.

Browse source
This commit is contained in:
Paul Romano 2011-07-28 20:55:45 -04:00
parent d29a17fe46
commit 36cb96895a
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/output.f90
View file

@ -638,13 +638,13 @@ contains
call header("Time Elapsed")
! display time elapsed for various sections
write(ou,100) "Total time elapsed", real_to_str(time_total % elapsed)
write(ou,100) "Total time for initialization", real_to_str(time_init % elapsed)
write(ou,100) "Total time in computation", real_to_str(time_compute % elapsed)
write(ou,100) "Total time between cycles", real_to_str(time_intercycle % elapsed)
write(ou,100) "Total time elapsed", trim(real_to_str(time_total % elapsed))
write(ou,100) "Total time for initialization", trim(real_to_str(time_init % elapsed))
write(ou,100) "Total time in computation", trim(real_to_str(time_compute % elapsed))
write(ou,100) "Total time between cycles", trim(real_to_str(time_intercycle % elapsed))
! format for write statments
100 format (1X,A,T33,"= ",A,"seconds")
100 format (1X,A,T33,"= ",A," seconds")
end subroutine print_runtime