mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-24 21:41:46 +02:00
fixed incorrect indices in checking of reverse bielec indexing function (#233)
This commit is contained in:
parent
850c438956
commit
156c797ec9
@ -100,7 +100,7 @@ subroutine bielec_integrals_index_reverse(i,j,k,l,i1)
|
|||||||
call bielec_integrals_index(i(ii),j(ii),k(ii),l(ii),i2)
|
call bielec_integrals_index(i(ii),j(ii),k(ii),l(ii),i2)
|
||||||
if (i1 /= i2) then
|
if (i1 /= i2) then
|
||||||
print *, i1, i2
|
print *, i1, i2
|
||||||
print *, i(ii), j(jj), k(jj), l(jj)
|
print *, i(ii), j(ii), k(ii), l(ii)
|
||||||
stop 'bielec_integrals_index_reverse failed'
|
stop 'bielec_integrals_index_reverse failed'
|
||||||
endif
|
endif
|
||||||
endif
|
endif
|
||||||
|
Loading…
Reference in New Issue
Block a user