mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-27 06:51:44 +02:00
17 lines
408 B
Fortran
17 lines
408 B
Fortran
|
|
program shifted_bk
|
|
implicit none
|
|
BEGIN_DOC
|
|
! TODO
|
|
END_DOC
|
|
|
|
PROVIDE psi_bilinear_matrix_columns_loc psi_det_alpha_unique psi_det_beta_unique
|
|
PROVIDE psi_bilinear_matrix_rows psi_det_sorted_order psi_bilinear_matrix_order
|
|
PROVIDE psi_bilinear_matrix_transp_rows_loc psi_bilinear_matrix_transp_columns
|
|
PROVIDE psi_bilinear_matrix_transp_order
|
|
|
|
call diagonalize_CI()
|
|
call dress_slave()
|
|
end
|
|
|