From 36cb96895afd2a88f345a783be5d15dfb660503d Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Thu, 28 Jul 2011 20:55:45 -0400 Subject: [PATCH] Added trim in print_runtime. --- src/output.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/output.f90 b/src/output.f90 index 4caa3c205..f13adcaaa 100644 --- a/src/output.f90 +++ b/src/output.f90 @@ -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