10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-25 06:32:16 +02:00

updated selection_slave

This commit is contained in:
Yann Garniron 2016-10-08 19:35:30 +02:00
parent c3dd90e199
commit 874e6845f0

View File

@ -64,10 +64,10 @@ subroutine run_wf
print *, 'Davidson' print *, 'Davidson'
call davidson_miniserver_get() call davidson_miniserver_get()
!$OMP PARALLEL PRIVATE(i) !!$OMP PARALLEL PRIVATE(i)
i = omp_get_thread_num() !i = omp_get_thread_num()
call davidson_slave_tcp(i) call davidson_slave_tcp(0)
!$OMP END PARALLEL !!$OMP END PARALLEL
print *, 'Davidson done' print *, 'Davidson done'
endif endif