From 2d8b3f75f33a1463e58caeec0ccec5ac15e7bf87 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Thu, 22 Sep 2016 12:45:27 +0200 Subject: [PATCH] Bug --- src/Integrals_Monoelec/pot_mo_ints.irp.f | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Integrals_Monoelec/pot_mo_ints.irp.f b/src/Integrals_Monoelec/pot_mo_ints.irp.f index b6a024e9..7c7e306f 100644 --- a/src/Integrals_Monoelec/pot_mo_ints.irp.f +++ b/src/Integrals_Monoelec/pot_mo_ints.irp.f @@ -32,6 +32,7 @@ BEGIN_PROVIDER [double precision, mo_nucl_elec_integral_per_atom, (mo_tot_num_al ! where Rk is the geometry of the kth atom END_DOC + integer :: k mo_nucl_elec_integral_per_atom = 0.d0 do k = 1, nucl_num call ao_to_mo( &