PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 20:34:58 +01:00
Code Releases Activity

bugfix large N_det

Browse Source
This commit is contained in:
Yann Damour 2024-03-26 15:22:20 +01:00
parent 54d836f029
commit 57657cb163
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/davidson/diagonalize_ci.irp.f
View File

@ -176,8 +176,12 @@ END_PROVIDER
if (state_following .and. only_expected_s2) then if (state_following .and. only_expected_s2) then
integer :: state(N_states), idx,l integer :: state(N_states), idx,l
double precision :: overlp(N_det), omax double precision :: omax
logical :: ok(N_det), used double precision, allocatable :: overlp(:)
logical :: used
logical, allocatable :: ok(:)
allocate(overlp(N_det), ok(N_det))
i_state = 0 i_state = 0
state = 0 state = 0
@ -216,6 +220,8 @@ END_PROVIDER
i_state +=1 i_state +=1
enddo enddo
deallocate(overlp, ok)
do i = 1, i_state do i = 1, i_state
index_good_state_array(i) = state(i) index_good_state_array(i) = state(i)
good_state_array(i) = .True. good_state_array(i) = .True.