mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-19 19:52:15 +02:00
19 lines
397 B
Fortran
19 lines
397 B
Fortran
program densify
|
|
implicit none
|
|
read_wf = .True.
|
|
touch read_wf
|
|
call generate_all_alpha_beta_det_products()
|
|
|
|
! call wf_of_psi_bilinear_matrix(.False.)
|
|
! integer :: i, istate
|
|
! do istate=1,N_states
|
|
! do i=1,N_det
|
|
! if (psi_coef(i,istate) == 0.d0) then
|
|
! psi_coef(i,istate) = 1.d-6
|
|
! endif
|
|
! enddo
|
|
! enddo
|
|
call diagonalize_ci
|
|
call save_wavefunction
|
|
end
|