LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2025-01-03 09:05:39 +01:00
Code Releases Activity

minor fix

Browse Source
This commit is contained in:
Kevin Gasperich 2020-06-02 16:10:16 -05:00
parent 611f7d602d
commit 9beef1669e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/mo_two_e_ints/df_mo_ints.irp.f
View File

@ -26,7 +26,7 @@ subroutine mo_map_fill_from_df_single
! fill mo bielec integral map using 3-index df integrals ! fill mo bielec integral map using 3-index df integrals
END_DOC END_DOC
integer :: i,k,j,l integer :: i,k,j,l,mu
integer :: ki,kk,kj,kl integer :: ki,kk,kj,kl
integer :: ii,ik,ij,il integer :: ii,ik,ij,il
integer :: kikk2,kjkl2,jl2,ik2 integer :: kikk2,kjkl2,jl2,ik2
@ -34,7 +34,7 @@ subroutine mo_map_fill_from_df_single
complex*16,allocatable :: ints_ik(:,:,:), ints_jl(:,:,:) complex*16,allocatable :: ints_ik(:,:,:), ints_jl(:,:,:)
complex*16 :: integral complex*16 :: integral,mjl,mik
integer :: n_integrals_1, n_integrals_2 integer :: n_integrals_1, n_integrals_2
integer :: size_buffer integer :: size_buffer
integer(key_kind),allocatable :: buffer_i_1(:), buffer_i_2(:) integer(key_kind),allocatable :: buffer_i_1(:), buffer_i_2(:)
@ -97,6 +97,7 @@ subroutine mo_map_fill_from_df_single
endif endif
!$OMP PARALLEL PRIVATE(i,k,j,l,ii,ik,ij,il,jl2,ik2, & !$OMP PARALLEL PRIVATE(i,k,j,l,ii,ik,ij,il,jl2,ik2, &
!$OMP mu, mik, mjl, &
!$OMP n_integrals_1, buffer_i_1, buffer_values_1, & !$OMP n_integrals_1, buffer_i_1, buffer_values_1, &
!$OMP n_integrals_2, buffer_i_2, buffer_values_2, & !$OMP n_integrals_2, buffer_i_2, buffer_values_2, &
!$OMP idx_tmp, tmp_re, tmp_im, integral,sign,use_map1) & !$OMP idx_tmp, tmp_re, tmp_im, integral,sign,use_map1) &