From 47c1bec1d866e06bdeacad7cff9f0ea8f625bae8 Mon Sep 17 00:00:00 2001 From: Emmanuel Giner Date: Fri, 24 Apr 2020 16:32:29 +0200 Subject: [PATCH] removed comments for pseudo --- src/ao_one_e_ints/ao_one_e_ints.irp.f | 3 --- src/mo_one_e_ints/mo_one_e_ints.irp.f | 4 ---- 2 files changed, 7 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 e5a5454d..65981dc9 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,6 @@ ELSE ao_one_e_integrals = ao_integrals_n_e + ao_kinetic_integrals -! IF (DO_PSEUDO) THEN -! ao_one_e_integrals += ao_pseudo_integrals -! ENDIF ENDIF DO j = 1, ao_num 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 e7a91dee..a6a614ab 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,10 +12,6 @@ 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 - ENDIF IF (write_mo_one_e_integrals) THEN