From 3839f05ba02ae02b4c29fde2bd5f1bc2d4531ff2 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Wed, 7 Dec 2022 09:53:48 +0100 Subject: [PATCH] Unused variable --- external/qp2-dependencies | 2 +- src/csf/sigma_vector.irp.f | 2 -- 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/external/qp2-dependencies b/external/qp2-dependencies index 90ee61f5..242151e0 160000 --- a/external/qp2-dependencies +++ b/external/qp2-dependencies @@ -1 +1 @@ -Subproject commit 90ee61f5041c7c94a0c605625a264860292813a0 +Subproject commit 242151e03d1d6bf042387226431d82d35845686a diff --git a/src/csf/sigma_vector.irp.f b/src/csf/sigma_vector.irp.f index 833fa7b0..2d6f2ee2 100644 --- a/src/csf/sigma_vector.irp.f +++ b/src/csf/sigma_vector.irp.f @@ -858,7 +858,6 @@ subroutine calculate_preconditioner_cfg(diag_energies) real*8, external :: mo_two_e_integral real*8 :: hpp real*8 :: meCC - real*8 :: ecore real*8 :: core_act_contrib !PROVIDE h_core_ri @@ -869,7 +868,6 @@ subroutine calculate_preconditioner_cfg(diag_energies) !print *,"Core energy=",core_energy," nucler rep=",nuclear_repulsion, " n_core_orb=",n_core_orb," n_act_orb=",n_act_orb," mo_num=",mo_num ! calculate core energy - !call get_core_energy(ecore) diag_energies = core_energy - nuclear_repulsion ! calculate the core energy