mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-25 05:43:47 +01:00
Memory control not needed on slaves
This commit is contained in:
parent
5e19eb4aaa
commit
2058af1af5
@ -13,24 +13,6 @@ end
|
|||||||
subroutine davidson_slave_tcp(i)
|
subroutine davidson_slave_tcp(i)
|
||||||
implicit none
|
implicit none
|
||||||
integer, intent(in) :: i
|
integer, intent(in) :: i
|
||||||
integer :: nproc_target
|
|
||||||
double precision :: r1
|
|
||||||
if (qp_max_mem > 0) then
|
|
||||||
nproc_target = nproc
|
|
||||||
r1 = 8.d0*(3.d0*dble(N_det*N_states_diag) &
|
|
||||||
+ nproc_target*(4.d0*N_det_alpha_unique+2.d0*N_states_diag*N_det))/(1024.d0**3)
|
|
||||||
do while (r1 > qp_max_mem)
|
|
||||||
nproc_target = nproc_target - 1
|
|
||||||
r1 = 8.d0*(3.d0*dble(N_det*N_states_diag) &
|
|
||||||
+ nproc_target*(4.d0*N_det_alpha_unique+2.d0*N_states_diag*N_det))/(1024.d0**3)
|
|
||||||
if (nproc_target == 0) then
|
|
||||||
nproc_target = 1
|
|
||||||
exit
|
|
||||||
endif
|
|
||||||
enddo
|
|
||||||
call omp_set_num_threads(nproc_target)
|
|
||||||
call write_int(6,nproc_target,'Number of threads for diagonalization')
|
|
||||||
endif
|
|
||||||
call davidson_run_slave(0,i)
|
call davidson_run_slave(0,i)
|
||||||
end
|
end
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user