aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
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()