mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-15 08:48:30 +02:00
complex diagonalize_h
This commit is contained in:
parent
4349e13c93
commit
46fcc0116f
@ -17,7 +17,11 @@ end
|
|||||||
|
|
||||||
subroutine routine
|
subroutine routine
|
||||||
implicit none
|
implicit none
|
||||||
call diagonalize_CI
|
call diagonalize_ci
|
||||||
print*,'N_det = ',N_det
|
print*,'N_det = ',N_det
|
||||||
|
if (is_complex) then
|
||||||
|
call save_wavefunction_general_complex(N_det,N_states,psi_det_sorted,size(psi_coef_sorted_complex,1),psi_coef_sorted_complex)
|
||||||
|
else
|
||||||
call save_wavefunction_general(N_det,N_states,psi_det_sorted,size(psi_coef_sorted,1),psi_coef_sorted)
|
call save_wavefunction_general(N_det,N_states,psi_det_sorted,size(psi_coef_sorted,1),psi_coef_sorted)
|
||||||
|
endif
|
||||||
end
|
end
|
||||||
|
Loading…
Reference in New Issue
Block a user