diff --git a/src/tools/print_energy.irp.f b/src/tools/print_energy.irp.f
index 6f770f6a..9e263409 100644
--- a/src/tools/print_energy.irp.f
+++ b/src/tools/print_energy.irp.f
@@ -42,7 +42,7 @@ end
 
 subroutine run_complex
   implicit none
-  integer :: i
+  integer :: i,j
   complex*16 :: i_h_psi_array(n_states)
   double precision :: e(n_states)
   double precision :: norm(n_states)