From 547e6e88236f6fc7e1efd96ed99b18eced50ab09 Mon Sep 17 00:00:00 2001 From: ydamour Date: Mon, 2 Jan 2023 09:28:42 +0100 Subject: [PATCH] fix csf --- src/csf/configuration_CI_sigma_helpers.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/csf/configuration_CI_sigma_helpers.irp.f b/src/csf/configuration_CI_sigma_helpers.irp.f index 76761d53..e6e6a0d7 100644 --- a/src/csf/configuration_CI_sigma_helpers.irp.f +++ b/src/csf/configuration_CI_sigma_helpers.irp.f @@ -1155,7 +1155,7 @@ END_PROVIDER !end do if(.NOT. pqExistsQ) then - tableUniqueAlphas(p,q) = .TRUE. + tableUniqueAlphas(pp,qq) = .TRUE. !print *,p,q !call debug_spindet(Jsomo,1) !call debug_spindet(Jdomo,1)