From 4ddcf54387e80a8b9795a3624ad9e3eae6e1c484 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Tue, 13 Dec 2011 15:25:04 -0600 Subject: [PATCH] Display number of MPI processes on stdout and summary.out. --- src/output.F90 | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/src/output.F90 b/src/output.F90 index e5e0c5facb..765feb2aa7 100644 --- a/src/output.F90 +++ b/src/output.F90 @@ -52,18 +52,26 @@ contains ! Write the date and time call get_today(today_date, today_time) - write(UNIT=OUTPUT_UNIT, FMT='(6X,"Date/Time:",5X,A,1X,A/)') & + write(UNIT=OUTPUT_UNIT, FMT='(6X,"Date/Time:",5X,A,1X,A)') & trim(today_date), trim(today_time) ! Write information to summary file call header("OpenMC Monte Carlo Code", unit=UNIT_SUMMARY, level=1) write(UNIT=UNIT_SUMMARY, FMT=*) & - "Copyright: 2011 Massachusetts Institute of Technology" - write(UNIT=UNIT_SUMMARY, FMT='(1X,A,5X,2(I1,"."),I1)') & + "Copyright: 2011 Massachusetts Institute of Technology" + write(UNIT=UNIT_SUMMARY, FMT='(1X,A,7X,2(I1,"."),I1)') & "Version:", VERSION_MAJOR, VERSION_MINOR, VERSION_RELEASE - write(UNIT=UNIT_SUMMARY, FMT='(1X,"Date/Time:",3X,A,1X,A)') & + write(UNIT=UNIT_SUMMARY, FMT='(1X,"Date/Time:",5X,A,1X,A)') & trim(today_date), trim(today_time) + ! Write information on number of processors +#ifdef MPI + write(UNIT=OUTPUT_UNIT, FMT='(1X,A)') ' MPI Processes: ' // & + trim(int_to_str(n_procs)) + write(UNIT=UNIT_SUMMARY, FMT='(1X,"MPI Processes:",1X,A)') & + trim(int_to_str(n_procs)) +#endif + end subroutine title !===============================================================================