LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-22 20:35:19 +01:00
Code Issues Releases Wiki Activity

fixed incorrect indices in checking of reverse bielec indexing function (#233)

Browse Source
This commit is contained in:
Kevin Gasperich 2018-05-17 11:25:34 -05:00 committed by Anthony Scemama
parent 850c438956
commit 156c797ec9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Integrals_Bielec/map_integrals.irp.f
View File

@ -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