mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-25 14:01:46 +02:00
Merge branch 'master' of github.com:scemama/quantum_package
This commit is contained in:
commit
d848c76316
@ -240,9 +240,9 @@ subroutine add_integrals_to_map(mask_ijkl)
|
|||||||
exit
|
exit
|
||||||
endif
|
endif
|
||||||
bielec_tmp_1(i) = c*bielec_tmp_3(i,j0,k0)
|
bielec_tmp_1(i) = c*bielec_tmp_3(i,j0,k0)
|
||||||
! enddo
|
enddo
|
||||||
!
|
|
||||||
! do i = 1, min(k,j1-i1)
|
do i = 1, min(k,j1-i1)
|
||||||
if (abs(bielec_tmp_1(i)) < mo_integrals_threshold) then
|
if (abs(bielec_tmp_1(i)) < mo_integrals_threshold) then
|
||||||
cycle
|
cycle
|
||||||
endif
|
endif
|
||||||
|
Loading…
Reference in New Issue
Block a user