mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-24 13:23:41 +01:00
Fragments
This commit is contained in:
parent
554664f8bb
commit
4994e096cd
@ -17,7 +17,7 @@ END_PROVIDER
|
||||
e = elec_num - n_core_orb * 2
|
||||
pt2_n_tasks_max = 1 + min((e*(e-1))/2, int(dsqrt(dble(N_det_generators)))/10)
|
||||
do i=1,N_det_generators
|
||||
if (maxval(dabs(psi_coef_sorted_gen(i,1:N_states))) > 0.001d0) then
|
||||
if (maxval(dabs(psi_coef_sorted_gen(i,1:N_states))) > 0.01d0) then
|
||||
pt2_F(i) = pt2_n_tasks_max
|
||||
else
|
||||
pt2_F(i) = 1
|
||||
|
Loading…
Reference in New Issue
Block a user