mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-12 10:48:31 +02:00
Fix bug with dominant_cfg
This commit is contained in:
parent
7fba897278
commit
7560e2762d
@ -547,9 +547,14 @@ BEGIN_PROVIDER [ integer, dominant_cfg, (N_states) ]
|
|||||||
! Configuration of the determinants with the largest weight, for each state
|
! Configuration of the determinants with the largest weight, for each state
|
||||||
END_DOC
|
END_DOC
|
||||||
integer :: k
|
integer :: k
|
||||||
|
dominant_cfg(1) = det_to_configuration(dominant_det(1))
|
||||||
|
if (N_det < N_states) then
|
||||||
|
dominant_cfg(:) = dominant_cfg(1)
|
||||||
|
else
|
||||||
do k=1,N_states
|
do k=1,N_states
|
||||||
dominant_cfg(k) = det_to_configuration(dominant_det(k))
|
dominant_cfg(k) = det_to_configuration(dominant_det(k))
|
||||||
enddo
|
enddo
|
||||||
|
endif
|
||||||
END_PROVIDER
|
END_PROVIDER
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user