From d019657001bfe840b64a0b69f767db07862e66e5 Mon Sep 17 00:00:00 2001 From: Yann Garniron Date: Wed, 4 May 2016 17:30:55 +0200 Subject: [PATCH] extra thread for collector --- plugins/mrcepa0/dressing_slave.irp.f | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/plugins/mrcepa0/dressing_slave.irp.f b/plugins/mrcepa0/dressing_slave.irp.f index 480a0f56..3076e2a8 100644 --- a/plugins/mrcepa0/dressing_slave.irp.f +++ b/plugins/mrcepa0/dressing_slave.irp.f @@ -582,16 +582,14 @@ ntot = 0 ! external ∷ ao_bielec_integrals_in_map_collector ! rc = pthread_create(collector_thread, mrsc2_dressing_collector) print *, nzer, ntot, float(nzer) / float(ntot) - !$OMP PARALLEL DEFAULT(none) SHARED(delta_ii_old,delta_ij_old) PRIVATE(i) - !$OMP TASK + provide nproc + !$OMP PARALLEL DEFAULT(none) SHARED(delta_ii_old,delta_ij_old) PRIVATE(i) NUM_THREADS(nproc+1) i = omp_get_thread_num() if (i==0) then call mrsc2_dressing_collector(delta_ii_old,delta_ij_old) else call mrsc2_dressing_slave_inproc(i) endif - !$OMP END TASK - !$OMP TASKWAIT !$OMP END PARALLEL ! rc = pthread_join(collector_thread)