mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-25 13:41:47 +02:00
modified stuffs
This commit is contained in:
parent
35cdb13bd4
commit
5e732b0f61
@ -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
|
use map_module
|
||||||
implicit none
|
implicit none
|
||||||
BEGIN_DOC
|
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.
|
! All non-zero i are retrieved for j,k,l fixed.
|
||||||
END_DOC
|
END_DOC
|
||||||
double precision, intent(in) :: thresh
|
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)
|
real(integral_kind), intent(out) :: out_val(sze_max)
|
||||||
integer, intent(out) :: out_val_index(2,sze_max),non_zero_int
|
integer, intent(out) :: out_val_index(2,sze_max),non_zero_int
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user