From c306e9f936983df5bab68f8ba55006c0f88bc775 Mon Sep 17 00:00:00 2001
From: Tom Schoonjans <Tom.Schoonjans@diamond.ac.uk>
Date: Sat, 7 Sep 2019 17:51:56 +0100
Subject: [PATCH] Remove gsl_spmatrix_compare_idx

This function was removed in GSL 2.6
---
 api/spmatrix.finc       | 5 -----
 fgsl.F90                | 2 +-
 interface/spmatrix.finc | 5 -----
 3 files changed, 1 insertion(+), 11 deletions(-)

diff --git a/api/spmatrix.finc b/api/spmatrix.finc
index 03ae771..32841fd 100644
--- a/api/spmatrix.finc
+++ b/api/spmatrix.finc
@@ -41,11 +41,6 @@ function fgsl_spmatrix_nnz(m)
   integer(fgsl_size_t) :: fgsl_spmatrix_nnz
   fgsl_spmatrix_nnz = gsl_spmatrix_nnz(m%gsl_spmatrix)
 end function fgsl_spmatrix_nnz
-function fgsl_spmatrix_compare_idx(ia, ja, ib, jb)
-  integer(fgsl_size_t), intent(in) :: ia, ja, ib, jb
-  integer(fgsl_int) :: fgsl_spmatrix_compare_idx
-  fgsl_spmatrix_compare_idx = gsl_spmatrix_compare_idx(ia, ja, ib, jb)
-end function fgsl_spmatrix_compare_idx
 function fgsl_spmatrix_memcpy(dest, src)
   type(fgsl_spmatrix), intent(inout) :: dest
   type(fgsl_spmatrix), intent(in) :: src
diff --git a/fgsl.F90 b/fgsl.F90
index a14a999..a774a5d 100644
--- a/fgsl.F90
+++ b/fgsl.F90
@@ -762,7 +762,7 @@ module fgsl
 ! sparse matrices
   public :: fgsl_spmatrix_alloc, fgsl_spmatrix_alloc_nzmax, fgsl_spmatrix_size, &
        fgsl_spmatrix_free, fgsl_spmatrix_realloc, fgsl_spmatrix_set_zero, &
-       fgsl_spmatrix_nnz, fgsl_spmatrix_compare_idx, fgsl_spmatrix_memcpy, &
+       fgsl_spmatrix_nnz, fgsl_spmatrix_memcpy, &
        fgsl_spmatrix_get, fgsl_spmatrix_set, fgsl_spmatrix_compcol, &
        fgsl_spmatrix_cumsum, fgsl_spmatrix_scale, fgsl_spmatrix_minmax, &
        fgsl_spmatrix_add, fgsl_spmatrix_d2sp, fgsl_spmatrix_sp2d, &
diff --git a/interface/spmatrix.finc b/interface/spmatrix.finc
index 4241b3d..69deb8d 100644
--- a/interface/spmatrix.finc
+++ b/interface/spmatrix.finc
@@ -37,11 +37,6 @@ function gsl_spmatrix_nnz(m) bind(c)
   type(c_ptr), value :: m
   integer(c_size_t) :: gsl_spmatrix_nnz
 end function gsl_spmatrix_nnz
-function gsl_spmatrix_compare_idx(ia, ja, ib, jb) bind(c)
-  import :: c_int, c_size_t
-  integer(c_size_t), value :: ia, ja, ib, jb
-  integer(c_int) :: gsl_spmatrix_compare_idx
-end function gsl_spmatrix_compare_idx
 function gsl_spmatrix_memcpy(dest, src) bind(c)
   import :: c_ptr, c_int
   type(c_ptr), value :: dest, src
