mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 14:01:46 +02:00
extra thread for collector
This commit is contained in:
parent
682d2b8f1e
commit
d019657001
@ -582,16 +582,14 @@ ntot = 0
|
|||||||
! external ∷ ao_bielec_integrals_in_map_collector
|
! external ∷ ao_bielec_integrals_in_map_collector
|
||||||
! rc = pthread_create(collector_thread, mrsc2_dressing_collector)
|
! rc = pthread_create(collector_thread, mrsc2_dressing_collector)
|
||||||
print *, nzer, ntot, float(nzer) / float(ntot)
|
print *, nzer, ntot, float(nzer) / float(ntot)
|
||||||
!$OMP PARALLEL DEFAULT(none) SHARED(delta_ii_old,delta_ij_old) PRIVATE(i)
|
provide nproc
|
||||||
!$OMP TASK
|
!$OMP PARALLEL DEFAULT(none) SHARED(delta_ii_old,delta_ij_old) PRIVATE(i) NUM_THREADS(nproc+1)
|
||||||
i = omp_get_thread_num()
|
i = omp_get_thread_num()
|
||||||
if (i==0) then
|
if (i==0) then
|
||||||
call mrsc2_dressing_collector(delta_ii_old,delta_ij_old)
|
call mrsc2_dressing_collector(delta_ii_old,delta_ij_old)
|
||||||
else
|
else
|
||||||
call mrsc2_dressing_slave_inproc(i)
|
call mrsc2_dressing_slave_inproc(i)
|
||||||
endif
|
endif
|
||||||
!$OMP END TASK
|
|
||||||
!$OMP TASKWAIT
|
|
||||||
!$OMP END PARALLEL
|
!$OMP END PARALLEL
|
||||||
|
|
||||||
! rc = pthread_join(collector_thread)
|
! rc = pthread_join(collector_thread)
|
||||||
|
Loading…
Reference in New Issue
Block a user