diff --git a/src/mo_guess/pot_mo_ortho_lowdin_ints.irp.f b/src/mo_guess/pot_mo_ortho_lowdin_ints.irp.f
index 3196c1ad..4d513c2f 100644
--- a/src/mo_guess/pot_mo_ortho_lowdin_ints.irp.f
+++ b/src/mo_guess/pot_mo_ortho_lowdin_ints.irp.f
@@ -28,7 +28,7 @@ BEGIN_PROVIDER [complex*16, ao_ortho_lowdin_n_e_ints_cplx, (mo_num,mo_num)]
  integer :: i1,j1,i,j
  complex*16 :: c_i1,c_j1
 
- ao_ortho_lowdin_nucl_elec_integrals = (0.d0,0.d0)
+ ao_ortho_lowdin_n_e_ints_cplx = (0.d0,0.d0)
  !$OMP PARALLEL DO DEFAULT(none) &
  !$OMP PRIVATE(i,j,i1,j1,c_j1,c_i1) &
  !$OMP SHARED(mo_num,ao_num,ao_ortho_lowdin_coef_complex, &