From 2600ef926c7e2c303f4b3b925d5386e39c455041 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 21 Apr 2023 15:22:14 -0400 Subject: [PATCH] Helfpul io message about coarrays --- src/swiftest/swiftest_driver.f90 | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/src/swiftest/swiftest_driver.f90 b/src/swiftest/swiftest_driver.f90 index 461979caa..19846f962 100644 --- a/src/swiftest/swiftest_driver.f90 +++ b/src/swiftest/swiftest_driver.f90 @@ -82,10 +82,15 @@ program swiftest_driver !$ write(param%display_unit,'(a,i3,/)') ' Number of threads = ', nthreads !$ if (param%log_output) write(*,'(a,i3)') ' OpenMP: Number of threads = ',nthreads #ifdef COARRAY - write(param%display_unit,*) ' Coarray parameters:' - write(param%display_unit,*) ' -------------------' - write(param%display_unit,*) ' Number of images = ', num_images() - if (param%log_output) write(*,'(a,i3)') ' Coarray: Number of images = ',num_images() + if (param%lcoarray) then + write(param%display_unit,*) ' Coarray parameters:' + write(param%display_unit,*) ' -------------------' + write(param%display_unit,*) ' Number of images = ', num_images() + if (param%log_output) write(*,'(a,i3)') ' Coarray: Number of images = ',num_images() + else + write(param%display_unit,*) ' Coarrays disabled.' + if (param%log_output) write(*,*) ' Coarrays disabled.' + end if end if #endif