LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-06-02 02:35:18 +02:00
Code Releases Activity

Fixing CSF

Browse Source
This commit is contained in:
Anthony Scemama 2022-02-07 23:34:09 +01:00
parent 64d80fd273
commit 7770e4df58
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/csf/conversion.irp.f
View File

@ -66,11 +66,11 @@ subroutine convertWFfromDETtoCSF(N_st,psi_coef_det_in, psi_coef_cfg_out)
bfIcfg = max(1,nint((binom(s,(s+1)/2)-binom(s,((s+1)/2)+1)))) bfIcfg = max(1,nint((binom(s,(s+1)/2)-binom(s,((s+1)/2)+1))))
if(iand(s,1) .EQ. 0) then ! if(iand(s,1) .EQ. 0) then
bfIcfg = max(1,nint((binom(s,s/2)-binom(s,(s/2)+1)))) ! bfIcfg = max(1,nint((binom(s,s/2)-binom(s,(s/2)+1))))
else ! else
bfIcfg = max(1,nint((binom(s,(s+1)/2)-binom(s,((s+1)/2)+1)))) ! bfIcfg = max(1,nint((binom(s,(s+1)/2)-binom(s,((s+1)/2)+1))))
endif ! endif
! perhaps blocking with CFGs of same seniority ! perhaps blocking with CFGs of same seniority
! can be more efficient ! can be more efficient

2
src/utils/set_multiple_levels_omp.irp.f
View File

@ -8,7 +8,7 @@ subroutine set_multiple_levels_omp(activate)
logical, intent(in) :: activate logical, intent(in) :: activate
if (activate) then if (activate) then
call omp_set_max_active_levels(5) call omp_set_max_active_levels(3)
IRP_IF SET_NESTED IRP_IF SET_NESTED
call omp_set_nested(.True.) call omp_set_nested(.True.)