9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-02 11:43:37 +01:00

bi_ort_ints: combined

This commit is contained in:
Abdallah Ammar 2023-03-04 02:31:04 +01:00
parent ec082f641b
commit 6e7ca02ed1

View File

@ -1,4 +1,25 @@
! ---
BEGIN_PROVIDER [double precision, ao_two_e_vartc_tot, (ao_num, ao_num, ao_num, ao_num) ]
integer :: i, j, k, l
provide j1b_type
provide mo_r_coef mo_l_coef
do j = 1, ao_num
do l = 1, ao_num
do i = 1, ao_num
do k = 1, ao_num
ao_two_e_vartc_tot(k,i,l,j) = ao_vartc_int_chemist(k,i,l,j)
enddo
enddo
enddo
enddo
END_PROVIDER
! ---
BEGIN_PROVIDER [double precision, ao_two_e_tc_tot, (ao_num, ao_num, ao_num, ao_num) ]