From 4df9ebf4e0a290371cc60a23604160e7dfd32c00 Mon Sep 17 00:00:00 2001 From: Emmanuel Giner Date: Fri, 24 Apr 2020 16:11:11 +0200 Subject: [PATCH] moved pseudo from h_core to v_e_n in order to make it clean for DFT --- src/ao_one_e_ints/ao_one_e_ints.irp.f | 6 +++--- src/ao_one_e_ints/pot_ao_ints.irp.f | 6 ++++++ src/mo_one_e_ints/mo_one_e_ints.irp.f | 6 +++--- 3 files changed, 12 insertions(+), 6 deletions(-) diff --git a/src/ao_one_e_ints/ao_one_e_ints.irp.f b/src/ao_one_e_ints/ao_one_e_ints.irp.f index c3084ae2..e5a5454d 100644 --- a/src/ao_one_e_ints/ao_one_e_ints.irp.f +++ b/src/ao_one_e_ints/ao_one_e_ints.irp.f @@ -11,9 +11,9 @@ ELSE ao_one_e_integrals = ao_integrals_n_e + ao_kinetic_integrals - IF (DO_PSEUDO) THEN - ao_one_e_integrals += ao_pseudo_integrals - ENDIF +! IF (DO_PSEUDO) THEN +! ao_one_e_integrals += ao_pseudo_integrals +! ENDIF ENDIF DO j = 1, ao_num diff --git a/src/ao_one_e_ints/pot_ao_ints.irp.f b/src/ao_one_e_ints/pot_ao_ints.irp.f index 1d4cab7d..486ff534 100644 --- a/src/ao_one_e_ints/pot_ao_ints.irp.f +++ b/src/ao_one_e_ints/pot_ao_ints.irp.f @@ -76,6 +76,12 @@ BEGIN_PROVIDER [ double precision, ao_integrals_n_e, (ao_num,ao_num)] !$OMP END DO !$OMP END PARALLEL endif + + IF (DO_PSEUDO) THEN + ao_integrals_n_e += ao_pseudo_integrals + ENDIF + + if (write_ao_integrals_n_e) then call ezfio_set_ao_one_e_ints_ao_integrals_n_e(ao_integrals_n_e) print *, 'AO N-e integrals written to disk' diff --git a/src/mo_one_e_ints/mo_one_e_ints.irp.f b/src/mo_one_e_ints/mo_one_e_ints.irp.f index ac4b4e3b..e7a91dee 100644 --- a/src/mo_one_e_ints/mo_one_e_ints.irp.f +++ b/src/mo_one_e_ints/mo_one_e_ints.irp.f @@ -12,9 +12,9 @@ BEGIN_PROVIDER [ double precision, mo_one_e_integrals,(mo_num,mo_num)] ELSE mo_one_e_integrals = mo_integrals_n_e + mo_kinetic_integrals - IF (DO_PSEUDO) THEN - mo_one_e_integrals += mo_pseudo_integrals - ENDIF +! IF (DO_PSEUDO) THEN +! mo_one_e_integrals += mo_pseudo_integrals +! ENDIF ENDIF