mirror of
https://github.com/LCPQ/quantum_package
synced 2024-09-21 00:54:05 +02:00
23 lines
724 B
Fortran
23 lines
724 B
Fortran
|
BEGIN_PROVIDER [double precision, big_array_coulomb_integrals_erf, (mo_tot_num_align,mo_tot_num, mo_tot_num)]
|
||
|
|
&BEGIN_PROVIDER [double precision, big_array_exchange_integrals_erf,(mo_tot_num_align,mo_tot_num, mo_tot_num)]
|
||
|
|
implicit none
|
||
|
|
integer :: i,j,k,l
|
||
|
|
double precision :: get_mo_bielec_integral_erf
|
||
|
|
double precision :: integral
|
||
|
|
|
||
|
|
do k = 1, mo_tot_num
|
||
|
|
do i = 1, mo_tot_num
|
||
|
|
do j = 1, mo_tot_num
|
||
|
|
l = j
|
||
|
|
integral = get_mo_bielec_integral_erf(i,j,k,l,mo_integrals_erf_map)
|
||
|
|
big_array_coulomb_integrals_erf(j,i,k) = integral
|
||
|
|
l = j
|
||
|
|
integral = get_mo_bielec_integral_erf(i,j,l,k,mo_integrals_erf_map)
|
||
|
|
big_array_exchange_integrals_erf(j,i,k) = integral
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
enddo
|
||
|
|
|
||
|
|
|
||
|
|
END_PROVIDER
|