LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2025-04-28 19:24:46 +02:00
Code Releases Activity

Fixed parallel selection with a huge nb of slaves

Browse Source
This commit is contained in:
Anthony Scemama 2019-12-17 11:27:35 +01:00
parent 0b2fe07290
commit 172e245543
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/cipsi/run_pt2_slave.irp.f
View File

@ -31,11 +31,12 @@ subroutine run_pt2_slave(thread,iproc,energy)
double precision, intent(in) :: energy(N_states_diag) double precision, intent(in) :: energy(N_states_diag)
integer, intent(in) :: thread, iproc integer, intent(in) :: thread, iproc
if (N_det > nproc*(elec_alpha_num * (mo_num-elec_alpha_num))**2) then call run_pt2_slave_large(thread,iproc,energy)
call run_pt2_slave_large(thread,iproc,energy) ! if (N_det > nproc*(elec_alpha_num * (mo_num-elec_alpha_num))**2) then
else ! call run_pt2_slave_large(thread,iproc,energy)
call run_pt2_slave_small(thread,iproc,energy) ! else
endif ! call run_pt2_slave_small(thread,iproc,energy)
! endif
end end
subroutine run_pt2_slave_small(thread,iproc,energy) subroutine run_pt2_slave_small(thread,iproc,energy)