mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-24 21:21:47 +02:00
bugfix large N_det
This commit is contained in:
parent
54d836f029
commit
57657cb163
@ -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.
|
||||||
|
Loading…
Reference in New Issue
Block a user