From e1523c492941cd8a9d290743956b6b2a20f589bf Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Fri, 31 Jan 2025 11:40:49 +0100
Subject: [PATCH] Removed irrelevent dependency on cholesky

---
 src/mo_two_e_ints/map_integrals.irp.f | 4 ++--
 src/tools/print_energy.irp.f          | 5 ++---
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/mo_two_e_ints/map_integrals.irp.f b/src/mo_two_e_ints/map_integrals.irp.f
index 6040842e..5b233899 100644
--- a/src/mo_two_e_ints/map_integrals.irp.f
+++ b/src/mo_two_e_ints/map_integrals.irp.f
@@ -155,7 +155,7 @@ double precision function get_two_e_integral(i,j,k,l,map)
   type(map_type), intent(inout)  :: map
   real(integral_kind)            :: tmp
 
-  PROVIDE mo_two_e_integrals_in_map mo_integrals_cache do_mo_cholesky mo_cholesky_double cholesky_mo_transp_sp cholesky_mo_transp
+  PROVIDE mo_two_e_integrals_in_map mo_integrals_cache do_mo_cholesky
 
   if (use_banned_excitation) then
     if (banned_excitation(i,k)) then
@@ -570,7 +570,7 @@ subroutine get_mo_two_e_integrals_exch_ii(k,l,sze,out_val,map)
   type(map_type), intent(inout)  :: map
   integer                        :: i
   double precision, external     :: get_two_e_integral
-  PROVIDE mo_two_e_integrals_in_map mo_cholesky_double cholesky_mo_transp cholesky_mo_transp_sp
+  PROVIDE mo_two_e_integrals_in_map mo_cholesky_double
 
   if ( (mo_integrals_cache_min>1).or.(mo_integrals_cache_max<mo_num) ) then
 
diff --git a/src/tools/print_energy.irp.f b/src/tools/print_energy.irp.f
index d94a7156..d5e5f31f 100644
--- a/src/tools/print_energy.irp.f
+++ b/src/tools/print_energy.irp.f
@@ -14,9 +14,8 @@ end
 
 subroutine run
  implicit none
- call print_mol_properties
- print *, psi_energy + nuclear_repulsion
- call print_energy_components
+  call print_mol_properties
+  call print_energy_components
 ! print *, 'E(HF) = ', HF_energy
  print *, 'E(CI) = ', psi_energy + nuclear_repulsion
 ! print *, ''