From 1fbbaf58a54e5486e0a7019cd6bb424a189efa6e Mon Sep 17 00:00:00 2001 From: v1j4y Date: Mon, 21 Nov 2022 17:04:03 +0100 Subject: [PATCH] Fix iand for csf. --- src/csf/sigma_vector.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/csf/sigma_vector.irp.f b/src/csf/sigma_vector.irp.f index 99def47e..cfe6279f 100644 --- a/src/csf/sigma_vector.irp.f +++ b/src/csf/sigma_vector.irp.f @@ -240,7 +240,7 @@ end subroutine get_phase_qp_to_cfg ! initialization psi_coef_config = 0.d0 DetToCSFTransformationMatrix(0,:,:) = 1.d0 - do i = 2-iand(MS,1), NSOMOMax,2 + do i = 2-iand(MS,1_8), NSOMOMax,2 Isomo = IBSET(0_8, i) - 1_8 ! rows = Ncsfs ! cols = Ndets