2019-07-05 13:05:11 +02:00
|
|
|
use bitmasks
|
|
|
|
|
|
|
|
subroutine give_2rdm_pert_contrib(det,coef,psi_det_connection,psi_coef_connection,n_det_connection,nkeys,keys,values,sze_buff)
|
|
|
|
implicit none
|
2019-07-05 13:36:53 +02:00
|
|
|
integer, intent(in) :: n_det_connection,nkeys
|
2019-07-05 13:05:11 +02:00
|
|
|
double precision, intent(in) :: coef(N_states)
|
|
|
|
integer(bit_kind), intent(in) :: det(N_int,2)
|
|
|
|
integer(bit_kind), intent(in) :: psi_det_connection(N_int,2,n_det_connection)
|
2019-07-05 13:36:53 +02:00
|
|
|
double precision, intent(in) :: psi_coef_connection(n_det_connection, N_states)
|
|
|
|
integer, intent(inout) :: keys(4,sze_buff),sze_buff
|
|
|
|
double precision, intent(inout) :: values(sze_buff)
|
2019-07-05 13:05:11 +02:00
|
|
|
|
|
|
|
end
|