mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-09-01 21:53:40 +02:00
Activated cfg based davidson.
This commit is contained in:
parent
8a141ef25c
commit
6592f35daf
@ -5,7 +5,8 @@ BEGIN_PROVIDER [ character*(3), sigma_vector_algorithm ]
|
|||||||
!
|
!
|
||||||
! If 'cfg', use <Psi_csf|H|Psi_csf> in Davidson
|
! If 'cfg', use <Psi_csf|H|Psi_csf> in Davidson
|
||||||
END_DOC
|
END_DOC
|
||||||
sigma_vector_algorithm = 'det'
|
!sigma_vector_algorithm = 'det'
|
||||||
|
sigma_vector_algorithm = 'cfg'
|
||||||
END_PROVIDER
|
END_PROVIDER
|
||||||
|
|
||||||
BEGIN_PROVIDER [ double precision, CI_energy, (N_states_diag) ]
|
BEGIN_PROVIDER [ double precision, CI_energy, (N_states_diag) ]
|
||||||
@ -75,13 +76,13 @@ END_PROVIDER
|
|||||||
call davidson_diag_H_csf(psi_det,CI_eigenvectors, &
|
call davidson_diag_H_csf(psi_det,CI_eigenvectors, &
|
||||||
size(CI_eigenvectors,1),CI_electronic_energy, &
|
size(CI_eigenvectors,1),CI_electronic_energy, &
|
||||||
N_det,N_csf,min(N_det,N_states),min(N_det,N_states_diag),N_int,0,converged)
|
N_det,N_csf,min(N_det,N_states),min(N_det,N_states_diag),N_int,0,converged)
|
||||||
! else if (sigma_vector_algorithm == 'cfg') then
|
else if (sigma_vector_algorithm == 'cfg') then
|
||||||
! call davidson_diag_H_csf(psi_det,CI_eigenvectors, &
|
call davidson_diag_H_cfg(psi_det,CI_eigenvectors, &
|
||||||
! size(CI_eigenvectors,1),CI_electronic_energy, &
|
size(CI_eigenvectors,1),CI_electronic_energy, &
|
||||||
! N_det,N_csf,min(N_det,N_states),min(N_det,N_states_diag),N_int,0,converged)
|
N_det,N_csf,min(N_det,N_states),min(N_det,N_states_diag),N_int,0,converged)
|
||||||
! else
|
else
|
||||||
! print *, irp_here
|
print *, irp_here
|
||||||
! stop 'bug'
|
stop 'bug'
|
||||||
endif
|
endif
|
||||||
else
|
else
|
||||||
call davidson_diag_HS2(psi_det,CI_eigenvectors, CI_s2, &
|
call davidson_diag_HS2(psi_det,CI_eigenvectors, CI_s2, &
|
||||||
|
Loading…
Reference in New Issue
Block a user