@@ -1218,32 +1218,32 @@ end
12181218
12191219# multiplication
12201220generic_trimatmul! (c:: StridedVector{T} , uploc, isunitc, tfun:: Function , A:: StridedMatrix{T} , b:: AbstractVector{T} ) where {T<: BlasFloat } =
1221- BLAS. trmv! (uploc, tfun === identity ? ' N' : tfun === transpose ? ' T' : ' C' , isunitc, A, c === b ? c : copyto ! (c, b))
1221+ BLAS. trmv! (uploc, tfun === identity ? ' N' : tfun === transpose ? ' T' : ' C' , isunitc, A, c === b ? c : copy ! (c, b))
12221222function generic_trimatmul! (C:: StridedMatrix{T} , uploc, isunitc, tfun:: Function , A:: StridedMatrix{T} , B:: AbstractMatrix{T} ) where {T<: BlasFloat }
12231223 if stride (C,1 ) == stride (A,1 ) == 1
1224- BLAS. trmm! (' L' , uploc, tfun === identity ? ' N' : tfun === transpose ? ' T' : ' C' , isunitc, one (T), A, C === B ? C : copyto ! (C, B))
1224+ BLAS. trmm! (' L' , uploc, tfun === identity ? ' N' : tfun === transpose ? ' T' : ' C' , isunitc, one (T), A, C === B ? C : copy ! (C, B))
12251225 else # incompatible with BLAS
12261226 @invoke generic_trimatmul! (C:: AbstractMatrix , uploc, isunitc, tfun:: Function , A:: AbstractMatrix , B:: AbstractMatrix )
12271227 end
12281228end
12291229function generic_mattrimul! (C:: StridedMatrix{T} , uploc, isunitc, tfun:: Function , A:: AbstractMatrix{T} , B:: StridedMatrix{T} ) where {T<: BlasFloat }
12301230 if stride (C,1 ) == stride (B,1 ) == 1
1231- BLAS. trmm! (' R' , uploc, tfun === identity ? ' N' : tfun === transpose ? ' T' : ' C' , isunitc, one (T), B, C === A ? C : copyto ! (C, A))
1231+ BLAS. trmm! (' R' , uploc, tfun === identity ? ' N' : tfun === transpose ? ' T' : ' C' , isunitc, one (T), B, C === A ? C : copy ! (C, A))
12321232 else # incompatible with BLAS
12331233 @invoke generic_mattrimul! (C:: AbstractMatrix , uploc, isunitc, tfun:: Function , A:: AbstractMatrix , B:: AbstractMatrix )
12341234 end
12351235end
12361236# division
12371237function generic_trimatdiv! (C:: StridedVecOrMat{T} , uploc, isunitc, tfun:: Function , A:: StridedMatrix{T} , B:: AbstractVecOrMat{T} ) where {T<: BlasFloat }
12381238 if stride (C,1 ) == stride (A,1 ) == 1
1239- LAPACK. trtrs! (uploc, tfun === identity ? ' N' : tfun === transpose ? ' T' : ' C' , isunitc, A, C === B ? C : copyto ! (C, B))
1239+ LAPACK. trtrs! (uploc, tfun === identity ? ' N' : tfun === transpose ? ' T' : ' C' , isunitc, A, C === B ? C : copy ! (C, B))
12401240 else # incompatible with LAPACK
12411241 @invoke generic_trimatdiv! (C:: AbstractVecOrMat , uploc, isunitc, tfun:: Function , A:: AbstractMatrix , B:: AbstractVecOrMat )
12421242 end
12431243end
12441244function generic_mattridiv! (C:: StridedMatrix{T} , uploc, isunitc, tfun:: Function , A:: AbstractMatrix{T} , B:: StridedMatrix{T} ) where {T<: BlasFloat }
12451245 if stride (C,1 ) == stride (B,1 ) == 1
1246- BLAS. trsm! (' R' , uploc, tfun === identity ? ' N' : tfun === transpose ? ' T' : ' C' , isunitc, one (T), B, C === A ? C : copyto ! (C, A))
1246+ BLAS. trsm! (' R' , uploc, tfun === identity ? ' N' : tfun === transpose ? ' T' : ' C' , isunitc, one (T), B, C === A ? C : copy ! (C, A))
12471247 else # incompatible with BLAS
12481248 @invoke generic_mattridiv! (C:: AbstractMatrix , uploc, isunitc, tfun:: Function , A:: AbstractMatrix , B:: AbstractMatrix )
12491249 end
0 commit comments