diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-30 21:53:50 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-06-30 21:53:50 +0200 |
| commit | 1b97abf11f40e5d1570ee2e72c15958602bbc517 (patch) | |
| tree | 50548f911303eeede46230629e13194cffff9778 | |
| parent | f390347bb4bdab0e57543cae65701dab7200501b (diff) | |
| download | fortran-assignment3-1b97abf11f40e5d1570ee2e72c15958602bbc517.tar.gz fortran-assignment3-1b97abf11f40e5d1570ee2e72c15958602bbc517.zip | |
fix coarray allocation
| -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() |