From 7e16ca0f78ac89a5c9c08334c3f7b4e12c55e1d6 Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Fri, 7 Aug 2020 19:18:33 -0500 Subject: [PATCH] missing type --- src/tools/print_energy.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)