Only call termination message on image 1

MintonGroup · Apr 21, 2023 · 68c7596 · 68c7596
1 parent ab6b619
commit 68c7596
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/swiftest/swiftest_driver.f90 b/src/swiftest/swiftest_driver.f90
@@ -190,5 +190,11 @@ program swiftest_driver
 
    end associate
 
-   call base_util_exit(SUCCESS)
+#ifdef COARRAY
+   if (this_image() == 1) then
+#endif
+      call base_util_exit(SUCCESS)
+#ifdef COARRAY
+   end if ! (this_image() == 1) 
+#endif
 end program swiftest_driver