From 042a882ac17e3349b1ad3f5f668632932f2a6980 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 14 Apr 2023 10:17:08 -0400 Subject: [PATCH] Moved coarray conditional preprocessor statement to above a coarray declaration --- src/swiftest/swiftest_io.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/swiftest/swiftest_io.f90 b/src/swiftest/swiftest_io.f90 index 1cf6f93e7..71ba57b7f 100644 --- a/src/swiftest/swiftest_io.f90 +++ b/src/swiftest/swiftest_io.f90 @@ -1882,9 +1882,9 @@ module subroutine swiftest_io_param_reader(self, unit, iotype, v_list, iostat, i logical :: seed_set = .false. !! Is the random seed set in the input file? character(len=:), allocatable :: integrator real(DP) :: tratio, y +#ifdef COARRAY type(swiftest_parameters), codimension[*], save :: coparam -#ifdef COARRAY if (this_image() == 1) then coparam = self associate(param => coparam)