2018-03-02 15:29:58 +01:00
|
|
|
|
2018-03-20 11:54:37 +01:00
|
|
|
program shifted_bk
|
2018-03-02 15:29:58 +01:00
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
|
|
|
|
! TODO
|
|
|
|
|
END_DOC
|
2018-03-21 12:06:26 +01:00
|
|
|
|
|
|
|
|
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
|
|
|
|
|
|
2018-03-20 11:54:37 +01:00
|
|
|
|
2018-03-15 17:47:32 +01:00
|
|
|
call diagonalize_CI()
|
2018-03-02 15:29:58 +01:00
|
|
|
call dress_zmq()
|
|
|
|
|
end
|
|
|
|
|
|
