From 054421533fdbab373ad6db0f959c0723c69483f4 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@gmx.com>
Date: Tue, 22 May 2018 14:56:43 +0200
Subject: [PATCH] merge master (#71)

* Change the url for GMP. The officiel website is down sometime

* fixed incorrect indices in checking of reverse bielec indexing function (#233)
---
 configure                                | 2 +-
 src/Integrals_Bielec/map_integrals.irp.f | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/configure b/configure
index 9bc8f24b..2a7d62e2 100755
--- a/configure
+++ b/configure
@@ -138,7 +138,7 @@ zeromq = Info(
     default_path=join(QP_ROOT_LIB, "libzmq.a"))
 
 gmp= Info(
-    url='https://gmplib.org/download/gmp/gmp-6.1.2.tar.bz2',
+    url='ftp://ftp.gnu.org/gnu/gmp/gmp-6.1.2.tar.bz2',
     description=' The GNU Multiple Precision Arithmetic Library',
     default_path=join(QP_ROOT_LIB, "libgmp.a"))
 
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