From 91bcfed6733fa0ba6bdc452e5aa5176dd62046de Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Tue, 12 May 2020 19:10:12 +0200 Subject: [PATCH] Fixed compile error in previous commit --- src/ao_two_e_erf_ints/map_integrals_erf.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ao_two_e_erf_ints/map_integrals_erf.irp.f b/src/ao_two_e_erf_ints/map_integrals_erf.irp.f index 206eea75..4e4e68ff 100644 --- a/src/ao_two_e_erf_ints/map_integrals_erf.irp.f +++ b/src/ao_two_e_erf_ints/map_integrals_erf.irp.f @@ -88,7 +88,7 @@ double precision function get_ao_two_e_integral_erf(i,j,k,l,map) result(result) logical, external :: ao_two_e_integral_zero PROVIDE ao_two_e_integrals_erf_in_map ao_integrals_erf_cache ao_integrals_erf_cache_min !DIR$ FORCEINLINE - if (ao_two_e_integral_zero(i,j,k,l) < ao_integrals_threshold ) then + if (ao_two_e_integral_zero(i,j,k,l)) then tmp = 0.d0 else if (ao_two_e_integral_erf_schwartz(i,k)*ao_two_e_integral_erf_schwartz(j,l) < ao_integrals_threshold) then tmp = 0.d0