From 1b97abf11f40e5d1570ee2e72c15958602bbc517 Mon Sep 17 00:00:00 2001
From: Wojtek Kosior <kwojtus@protonmail.com>
Date: Sun, 30 Jun 2019 21:53:50 +0200
Subject: fix coarray allocation

---
 src/quadratures.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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()
     
-- 
cgit v1.2.3