2018-03-21 12:06:26 +01:00
|
|
|
program shifted_bk
|
|
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
2018-03-26 12:06:18 +02:00
|
|
|
! Helper subroutine to compute the dress in distributed mode.
|
2018-03-21 12:06:26 +01:00
|
|
|
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
|
|
|
|
|
|
2018-04-04 11:32:27 +02:00
|
|
|
!call diagonalize_CI()
|
2018-03-21 12:06:26 +01:00
|
|
|
call dress_slave()
|
|
|
|
|
end
|
|
|
|
|
|
