From c306e9f936983df5bab68f8ba55006c0f88bc775 Mon Sep 17 00:00:00 2001 From: Tom Schoonjans 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