| 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 |
