diff options
Diffstat (limited to 'src/quadratures.f90')
| -rw-r--r-- | src/quadratures.f90 | 4 |
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() |