From 5e732b0f616cc8f7e820963ac14f9d3a9edc060d Mon Sep 17 00:00:00 2001 From: Pierre Loos Date: Thu, 23 May 2019 16:06:37 +0200 Subject: [PATCH] modified stuffs --- src/ao_two_e_ints/map_integrals.irp.f | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/ao_two_e_ints/map_integrals.irp.f b/src/ao_two_e_ints/map_integrals.irp.f index c6b01b07..9e729cd4 100644 --- a/src/ao_two_e_ints/map_integrals.irp.f +++ b/src/ao_two_e_ints/map_integrals.irp.f @@ -328,11 +328,12 @@ subroutine get_ao_two_e_integrals_non_zero_jl_from_list(j,l,thresh,list,n_list,s use map_module implicit none BEGIN_DOC - ! Gets multiple AO bi-electronic integral from the AO map . + ! Gets multiple AO two-electron integrals from the AO map . ! All non-zero i are retrieved for j,k,l fixed. END_DOC double precision, intent(in) :: thresh - integer, intent(in) :: j,l, n_list,list(2,sze_max),sze_max + integer, intent(in) :: sze_max + integer, intent(in) :: j,l, n_list,list(2,sze_max) real(integral_kind), intent(out) :: out_val(sze_max) integer, intent(out) :: out_val_index(2,sze_max),non_zero_int