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

2018-05-17 11:25:34 -05:00 · 2018-05-17 11:25:34 -05:00 · 156c797ec9
parent 850c438956
commit 156c797ec9
1 changed files with 1 additions and 1 deletions
--- a/src/Integrals_Bielec/map_integrals.irp.f
+++ b/src/Integrals_Bielec/map_integrals.irp.f
@ -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)
      if (i1 /= i2) then
        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'
      endif
    endif