mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-10-13 03:11:31 +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
|
||||
|
||||
integer :: state(N_states), idx,l
|
||||
double precision :: overlp(N_det), omax
|
||||
logical :: ok(N_det), used
|
||||
double precision :: omax
|
||||
double precision, allocatable :: overlp(:)
|
||||
logical :: used
|
||||
logical, allocatable :: ok(:)
|
||||
|
||||
allocate(overlp(N_det), ok(N_det))
|
||||
|
||||
i_state = 0
|
||||
state = 0
|
||||
@ -216,6 +220,8 @@ END_PROVIDER
|
||||
i_state +=1
|
||||
enddo
|
||||
|
||||
deallocate(overlp, ok)
|
||||
|
||||
do i = 1, i_state
|
||||
index_good_state_array(i) = state(i)
|
||||
good_state_array(i) = .True.
|
||||
|
Loading…
Reference in New Issue
Block a user