@@ -127,9 +127,6 @@ function bunchkaufman!(A::StridedMatrix{<:BlasFloat}, rook::Bool = false; check:
127127 end
128128end
129129
130- bkcopy_oftype (A, S) = eigencopy_oftype (A, S)
131- bkcopy_oftype (A:: Symmetric{<:Complex} , S) = Symmetric (copytrito! (similar (parent (A), S, size (A)), A. data, A. uplo), sym_uplo (A. uplo))
132-
133130"""
134131 bunchkaufman(A, rook::Bool=false; check = true) -> S::BunchKaufman
135132
@@ -209,7 +206,7 @@ julia> S.L*S.D*S.L' - A[S.p, S.p]
209206```
210207"""
211208bunchkaufman (A:: AbstractMatrix{T} , rook:: Bool = false ; check:: Bool = true ) where {T} =
212- bunchkaufman! (bkcopy_oftype (A, typeof (sqrt (oneunit (T)))), rook; check = check)
209+ bunchkaufman! (eigencopy_oftype (A, typeof (sqrt (oneunit (T)))), rook; check = check)
213210
214211BunchKaufman {T} (B:: BunchKaufman ) where {T} =
215212 BunchKaufman (convert (Matrix{T}, B. LD), B. ipiv, B. uplo, B. symmetric, B. rook, B. info)
@@ -1532,7 +1529,7 @@ function bunchkaufman(A::AbstractMatrix{TS},
15321529 rook:: Bool = false ;
15331530 check:: Bool = true
15341531 ) where TS <: ClosedScalar{TR} where TR <: ClosedReal
1535- return bunchkaufman! (bkcopy_oftype (A, TS), rook; check)
1532+ return bunchkaufman! (eigencopy_oftype (A, TS), rook; check)
15361533end
15371534
15381535function bunchkaufman (A:: AbstractMatrix{TS} ,
@@ -1554,15 +1551,15 @@ function bunchkaufman(A::AbstractMatrix{TS},
15541551 # We promote input to BigInt to avoid overflow problems
15551552 if TA == Nothing
15561553 if TS <: Integer
1557- M = Rational {BigInt} .(bkcopy_oftype (A, TS))
1554+ M = Rational {BigInt} .(eigencopy_oftype (A, TS))
15581555 else
1559- M = Complex {Rational{BigInt}} .(bkcopy_oftype (A, TS))
1556+ M = Complex {Rational{BigInt}} .(eigencopy_oftype (A, TS))
15601557 end
15611558 else
15621559 if TS <: Integer
1563- M = TA (Rational {BigInt} .(bkcopy_oftype (A, TS)), Symbol (A. uplo))
1560+ M = TA (Rational {BigInt} .(eigencopy_oftype (A, TS)), Symbol (A. uplo))
15641561 else
1565- M = TA (Complex {Rational{BigInt}} .(bkcopy_oftype (A, TS)),
1562+ M = TA (Complex {Rational{BigInt}} .(eigencopy_oftype (A, TS)),
15661563 Symbol (A. uplo))
15671564 end
15681565 end
0 commit comments