From 7357bdfe4f00acad045e0c8afae9386dcaaa8107 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 28 Mar 2023 12:14:14 -0400 Subject: [PATCH] Fixed syntax in coarray image reporting --- src/swiftest/swiftest_driver.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/swiftest/swiftest_driver.f90 b/src/swiftest/swiftest_driver.f90 index cab050b80..89111e0c3 100644 --- a/src/swiftest/swiftest_driver.f90 +++ b/src/swiftest/swiftest_driver.f90 @@ -85,7 +85,8 @@ program swiftest_driver if (this_image() == 1) then write(param%display_unit,'(a)') ' Coarray parameters:' write(param%display_unit,'(a)') ' -------------------' - write(param%display_unit,'(a)') ' Number of images = ', num_images() + write(param%display_unit,'(a,i3)') ' Number of images = ', num_images() + if (param%log_output) write(*,'(a,i3)') ' Coarray: Number of images = ',num_images() #endif call nbody_system%initialize(param)