From 156c797ec99cec12f8874edbfae0fc22dabd0c2d Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Thu, 17 May 2018 11:25:34 -0500 Subject: [PATCH] fixed incorrect indices in checking of reverse bielec indexing function (#233) --- src/Integrals_Bielec/map_integrals.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Integrals_Bielec/map_integrals.irp.f b/src/Integrals_Bielec/map_integrals.irp.f index 7d1714b0..85a2f954 100644 --- 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