From df6d2a73a40c6dc3130df510a89a59c786061201 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 25 Jan 2021 18:41:41 +0100 Subject: [PATCH] Merge --- src/determinants/configurations.irp.f | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/src/determinants/configurations.irp.f b/src/determinants/configurations.irp.f index 192376b9..2c141609 100644 --- a/src/determinants/configurations.irp.f +++ b/src/determinants/configurations.irp.f @@ -585,3 +585,21 @@ BEGIN_PROVIDER [ integer(bit_kind), dominant_dets_of_cfgs, (N_int,2,N_dominant_d enddo END_PROVIDER + BEGIN_PROVIDER [ integer, psi_configuration_to_psi_det, (2,N_configuration) ] +&BEGIN_PROVIDER [ integer, psi_configuration_to_psi_det_data, (N_det) ] + + implicit none + BEGIN_DOC + ! psi_configuration_to_psi_det_data(k) -> i : i is the index of the determinant in psi_det. + ! + ! psi_configuration_to_psi_det(1:2,k) gives the first and last index of the + ! determinants of configuration k in array psi_configuration_to_psi_det_data. + END_DOC + + integer :: i + + do i=1,N_configuration + + enddo +END_PROVIDER +