From 7237e885c3a6095b5cdb41df1b6301360fe76e21 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Tue, 29 Oct 2019 01:26:34 +0100 Subject: [PATCH] Removed debbuging code --- src/mo_two_e_ints/map_integrals.irp.f | 6 ------ 1 file changed, 6 deletions(-) diff --git a/src/mo_two_e_ints/map_integrals.irp.f b/src/mo_two_e_ints/map_integrals.irp.f index 4b07fb90..2b04efad 100644 --- a/src/mo_two_e_ints/map_integrals.irp.f +++ b/src/mo_two_e_ints/map_integrals.irp.f @@ -153,12 +153,6 @@ subroutine get_mo_two_e_integrals(j,k,l,sze,out_val,map) integer(key_kind) :: p,q,r,s,i2 PROVIDE mo_two_e_integrals_in_map mo_integrals_cache -!TODO -do i=1,sze - out_val(i) = get_two_e_integral(i,j,k,l,map) -enddo -return - ii0 = l-mo_integrals_cache_min ii0 = ior(ii0, k-mo_integrals_cache_min) ii0 = ior(ii0, j-mo_integrals_cache_min)