Merge pull request #27 from tschoonj/remove-gsl_spmatrix_compare_idx

Remove gsl_spmatrix_compare_idx
reinh-bader · Mar 25, 2021 · 5a34186 · 5a34186
2 parents 68c71ec + c306e9f
commit 5a34186
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 11 deletions.
diff --git 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
@@ -771,7 +771,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
@@ -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