aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorWojtek Kosior <kwojtus@protonmail.com>2019-06-30 21:53:50 +0200
committerWojtek Kosior <kwojtus@protonmail.com>2019-06-30 21:53:50 +0200
commit1b97abf11f40e5d1570ee2e72c15958602bbc517 (patch)
tree50548f911303eeede46230629e13194cffff9778 /src
parentf390347bb4bdab0e57543cae65701dab7200501b (diff)
downloadfortran-assignment3-1b97abf11f40e5d1570ee2e72c15958602bbc517.tar.gz
fortran-assignment3-1b97abf11f40e5d1570ee2e72c15958602bbc517.zip
fix coarray allocation
Diffstat (limited to 'src')
-rw-r--r--src/quadratures.f904
1 files changed, 2 insertions, 2 deletions
diff --git a/src/quadratures.f90 b/src/quadratures.f90
index a595ce3..c2be860 100644
--- a/src/quadratures.f90
+++ b/src/quadratures.f90
@@ -52,8 +52,8 @@ CONTAINS
integer(kind=8) :: min_i, max_i, i, subintervals_per_thread
integer(kind=4) :: im
- if (this_image() == 1) allocate(partval[*])
-
+ allocate(partval[*])
+
subintervals_per_thread = &
(subintervals + num_images() - 1) / num_images()