mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-26 06:14:43 +01:00
Removed extra diagonalization
This commit is contained in:
parent
d2e3ed360c
commit
d3c74ae300
@ -21,8 +21,10 @@ program fci_zmq
|
|||||||
threshold_davidson = threshold_davidson_in * 100.d0
|
threshold_davidson = threshold_davidson_in * 100.d0
|
||||||
SOFT_TOUCH threshold_davidson
|
SOFT_TOUCH threshold_davidson
|
||||||
|
|
||||||
call diagonalize_CI
|
if (N_det < N_states) then
|
||||||
call save_wavefunction
|
call diagonalize_CI
|
||||||
|
call save_wavefunction
|
||||||
|
endif
|
||||||
|
|
||||||
call ezfio_has_hartree_fock_energy(has)
|
call ezfio_has_hartree_fock_energy(has)
|
||||||
if (has) then
|
if (has) then
|
||||||
|
Loading…
Reference in New Issue
Block a user