From 20eb52b2b0cd2645b17ca63637a435bfe13e9a48 Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Thu, 28 May 2020 17:57:34 -0500 Subject: [PATCH] cleanup and add FREE mo_integrals_map_2 --- src/mo_two_e_ints/mo_bi_integrals.irp.f | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/mo_two_e_ints/mo_bi_integrals.irp.f b/src/mo_two_e_ints/mo_bi_integrals.irp.f index 0aa5a121..21422ba3 100644 --- a/src/mo_two_e_ints/mo_bi_integrals.irp.f +++ b/src/mo_two_e_ints/mo_bi_integrals.irp.f @@ -1462,10 +1462,8 @@ subroutine clear_mo_map ! Frees the memory of the MO map END_DOC call map_deinit(mo_integrals_map) - !if (is_complex) then - call map_deinit(mo_integrals_map_2) - !endif - FREE mo_integrals_map mo_two_e_integrals_jj mo_two_e_integrals_jj_anti + call map_deinit(mo_integrals_map_2) + FREE mo_integrals_map mo_integrals_map_2 mo_two_e_integrals_jj mo_two_e_integrals_jj_anti FREE mo_two_e_integrals_jj_exchange mo_two_e_integrals_in_map end