Remove redundant identity_matrix methods (#1782)

Nemocas · Jun 7, 2024 · 8aedf5e · 8aedf5e
1 parent 4266776
commit 8aedf5e
Show file tree

Hide file tree

Showing 7 changed files with 0 additions and 102 deletions.
diff --git a/src/flint/fmpz_mod_mat.jl b/src/flint/fmpz_mod_mat.jl
@@ -865,21 +865,6 @@ function zero_matrix(R::ZZModRing, r::Int, c::Int)
   return z
 end
 
-###############################################################################
-#
-#  Identity matrix
-#
-###############################################################################
-
-function identity_matrix(R::ZZModRing, n::Int)
-  z = zero_matrix(R, n, n)
-  for i in 1:n
-    z[i, i] = one(R)
-  end
-  z.base_ring = R
-  return z
-end
-
 ################################################################################
 #
 #  Kernel

diff --git a/src/flint/fq_default_mat.jl b/src/flint/fq_default_mat.jl
@@ -769,20 +769,6 @@ function zero_matrix(R::FqField, r::Int, c::Int)
   return z
 end
 
-###############################################################################
-#
-#  Identity matrix
-#
-###############################################################################
-
-function identity_matrix(R::FqField, n::Int)
-  z = zero_matrix(R, n, n)
-  for i in 1:n
-    z[i, i] = one(R)
-  end
-  return z
-end
-
 ################################################################################
 #
 #  Entry pointers

diff --git a/src/flint/fq_mat.jl b/src/flint/fq_mat.jl
@@ -768,20 +768,6 @@ function zero_matrix(R::FqPolyRepField, r::Int, c::Int)
   return z
 end
 
-###############################################################################
-#
-#  Identity matrix
-#
-###############################################################################
-
-function identity_matrix(R::FqPolyRepField, n::Int)
-  z = zero_matrix(R, n, n)
-  for i in 1:n
-    z[i, i] = one(R)
-  end
-  return z
-end
-
 ################################################################################
 #
 #  Kernel

diff --git a/src/flint/fq_nmod_mat.jl b/src/flint/fq_nmod_mat.jl
@@ -756,20 +756,6 @@ function zero_matrix(R::fqPolyRepField, r::Int, c::Int)
   return z
 end
 
-###############################################################################
-#
-#  Identity matrix
-#
-###############################################################################
-
-function identity_matrix(R::fqPolyRepField, n::Int)
-  z = zero_matrix(R, n, n)
-  for i in 1:n
-    z[i, i] = one(R)
-  end
-  return z
-end
-
 ################################################################################
 #
 #  Kernel

diff --git a/src/flint/gfp_fmpz_mat.jl b/src/flint/gfp_fmpz_mat.jl
@@ -367,21 +367,6 @@ function zero_matrix(R::FpField, r::Int, c::Int)
   return z
 end
 
-###############################################################################
-#
-#  Identity matrix
-#
-###############################################################################
-
-function identity_matrix(R::FpField, n::Int)
-  z = zero_matrix(R, n, n)
-  for i in 1:n
-    z[i, i] = one(R)
-  end
-  z.base_ring = R
-  return z
-end
-
 ################################################################################
 #
 #  Kernel

diff --git a/src/flint/gfp_mat.jl b/src/flint/gfp_mat.jl
@@ -459,21 +459,6 @@ function zero_matrix(R::fpField, r::Int, c::Int)
   return z
 end
 
-###############################################################################
-#
-#  Identity matrix
-#
-###############################################################################
-
-function identity_matrix(R::fpField, n::Int)
-  z = zero_matrix(R, n, n)
-  for i in 1:n
-    z[i, i] = one(R)
-  end
-  z.base_ring = R
-  return z
-end
-
 ################################################################################
 #
 #  Kernel

diff --git a/src/flint/nmod_mat.jl b/src/flint/nmod_mat.jl
@@ -864,21 +864,6 @@ function zero_matrix(R::zzModRing, r::Int, c::Int)
   return z
 end
 
-###############################################################################
-#
-#  Identity matrix
-#
-###############################################################################
-
-function identity_matrix(R::zzModRing, n::Int)
-  z = zero_matrix(R, n, n)
-  for i in 1:n
-    z[i, i] = one(R)
-  end
-  z.base_ring = R
-  return z
-end
-
 ################################################################################
 #
 #  Kernel