From b13e351f59a98f123b1af50141567a4cb1c6d8bd Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Tue, 15 Nov 2016 11:35:15 +0100 Subject: [PATCH] Fixed MRCC --- plugins/MRCC_Utils/mrcc_dummy.irp.f | 4 ---- plugins/MRCC_Utils/mrcc_utils.irp.f | 6 +++--- 2 files changed, 3 insertions(+), 7 deletions(-) delete mode 100644 plugins/MRCC_Utils/mrcc_dummy.irp.f diff --git a/plugins/MRCC_Utils/mrcc_dummy.irp.f b/plugins/MRCC_Utils/mrcc_dummy.irp.f deleted file mode 100644 index 8f1deda8..00000000 --- a/plugins/MRCC_Utils/mrcc_dummy.irp.f +++ /dev/null @@ -1,4 +0,0 @@ -program pouet - - -end diff --git a/plugins/MRCC_Utils/mrcc_utils.irp.f b/plugins/MRCC_Utils/mrcc_utils.irp.f index 0735980d..8ad922cf 100644 --- a/plugins/MRCC_Utils/mrcc_utils.irp.f +++ b/plugins/MRCC_Utils/mrcc_utils.irp.f @@ -162,9 +162,9 @@ END_PROVIDER CI_eigenvectors_dressed(1:N_det,mrcc_state) = eigenvectors(1:N_det,mrcc_state) CI_electronic_energy_dressed(mrcc_state) = eigenvalues(mrcc_state) if (mrcc_state == 1) then - do mrcc_state=N_states+1,N_states_diag - CI_eigenvectors_dressed(1:N_det,mrcc_state) = eigenvectors(1:N_det,mrcc_state) - CI_electronic_energy_dressed(mrcc_state) = eigenvalues(mrcc_state) + do k=N_states+1,N_states_diag + CI_eigenvectors_dressed(1:N_det,k) = eigenvectors(1:N_det,k) + CI_electronic_energy_dressed(k) = eigenvalues(k) enddo endif enddo