Fixed syntax in coarray image reporting

MintonGroup · Mar 28, 2023 · 7357bdf · 7357bdf
1 parent 066e085
commit 7357bdf
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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)