@@ -1553,46 +1553,46 @@ for (f1, f2) in ((:*, :mul!), (:\, :ldiv!))
1553
1553
end
1554
1554
end
1555
1555
1556
- for (ipop, op, xform ) in (
1557
- (:mul! , :* , :Adjoint ),
1558
- (:mul! , :* , :Transpose ),
1559
- (:ldiv! , :\ , :Adjoint ),
1560
- (:ldiv! , :\ , :Transpose ))
1556
+ for (ipop, op, xformtype, xformop ) in (
1557
+ (:mul! , :* , :Adjoint , :adjoint ),
1558
+ (:mul! , :* , :Transpose , :transpose ),
1559
+ (:ldiv! , :\ , :Adjoint , :adjoint ),
1560
+ (:ldiv! , :\ , :Transpose , :transpose ))
1561
1561
@eval begin
1562
- function ($ op)(xformA:: ($xform ) {<: Any ,<: UpperTriangular }, B:: LowerTriangular )
1562
+ function ($ op)(xformA:: ($xformtype ) {<: Any ,<: UpperTriangular }, B:: LowerTriangular )
1563
1563
A = xformA. parent
1564
- TAB = typeof (($ op)($ xform (zero (eltype (A))), zero (eltype (B))) +
1565
- ($ op)($ xform (zero (eltype (A))), zero (eltype (B))))
1564
+ TAB = typeof (($ op)($ xformop (zero (eltype (A))), zero (eltype (B))) +
1565
+ ($ op)($ xformop (zero (eltype (A))), zero (eltype (B))))
1566
1566
BB = similar (B, TAB, size (B))
1567
1567
copyto! (BB, B)
1568
- return LowerTriangular (($ ipop)($ xform (convert (AbstractMatrix{TAB}, A)), BB))
1568
+ return LowerTriangular (($ ipop)($ xformop (convert (AbstractMatrix{TAB}, A)), BB))
1569
1569
end
1570
1570
1571
- function ($ op)(xformA:: ($xform ) {<: Any ,<: UnitUpperTriangular }, B:: LowerTriangular )
1571
+ function ($ op)(xformA:: ($xformtype ) {<: Any ,<: UnitUpperTriangular }, B:: LowerTriangular )
1572
1572
A = xformA. parent
1573
1573
TAB = typeof ((* )(zero (eltype (A)), zero (eltype (B))) +
1574
1574
(* )(zero (eltype (A)), zero (eltype (B))))
1575
1575
BB = similar (B, TAB, size (B))
1576
1576
copyto! (BB, B)
1577
- return LowerTriangular ($ ipop ($ xform (convert (AbstractMatrix{TAB}, A)), BB))
1577
+ return LowerTriangular ($ ipop ($ xformop (convert (AbstractMatrix{TAB}, A)), BB))
1578
1578
end
1579
1579
1580
- function ($ op)(xformA:: ($xform ) {<: Any ,<: LowerTriangular }, B:: UpperTriangular )
1580
+ function ($ op)(xformA:: ($xformtype ) {<: Any ,<: LowerTriangular }, B:: UpperTriangular )
1581
1581
A = xformA. parent
1582
- TAB = typeof (($ op)($ xform (zero (eltype (A))), zero (eltype (B))) +
1583
- ($ op)($ xform (zero (eltype (A))), zero (eltype (B))))
1582
+ TAB = typeof (($ op)($ xformop (zero (eltype (A))), zero (eltype (B))) +
1583
+ ($ op)($ xformop (zero (eltype (A))), zero (eltype (B))))
1584
1584
BB = similar (B, TAB, size (B))
1585
1585
copyto! (BB, B)
1586
- return UpperTriangular ($ ipop ($ xform (convert (AbstractMatrix{TAB}, A)), BB))
1586
+ return UpperTriangular ($ ipop ($ xformop (convert (AbstractMatrix{TAB}, A)), BB))
1587
1587
end
1588
1588
1589
- function ($ op)(xformA:: ($xform ) {<: Any ,<: UnitLowerTriangular }, B:: UpperTriangular )
1589
+ function ($ op)(xformA:: ($xformtype ) {<: Any ,<: UnitLowerTriangular }, B:: UpperTriangular )
1590
1590
A = xformA. parent
1591
1591
TAB = typeof ((* )(zero (eltype (A)), zero (eltype (B))) +
1592
1592
(* )(zero (eltype (A)), zero (eltype (B))))
1593
1593
BB = similar (B, TAB, size (B))
1594
1594
copyto! (BB, B)
1595
- return UpperTriangular ($ ipop ($ xform (convert (AbstractMatrix{TAB}, A)), BB))
1595
+ return UpperTriangular ($ ipop ($ xformop (convert (AbstractMatrix{TAB}, A)), BB))
1596
1596
end
1597
1597
end
1598
1598
end
@@ -1626,46 +1626,46 @@ function (/)(A::UpperTriangular, B::UnitUpperTriangular)
1626
1626
return UpperTriangular (rdiv! (AA, convert (AbstractMatrix{TAB}, B)))
1627
1627
end
1628
1628
1629
- for (ipop, op, xform ) in (
1630
- (:mul! , :* , :Adjoint ),
1631
- (:mul! , :* , :Transpose ),
1632
- (:rdiv! , :/ , :Adjoint ),
1633
- (:rdiv! , :/ , :Transpose ))
1629
+ for (ipop, op, xformtype, xformop ) in (
1630
+ (:mul! , :* , :Adjoint , :adjoint ),
1631
+ (:mul! , :* , :Transpose , :transpose ),
1632
+ (:rdiv! , :/ , :Adjoint , :adjoint ),
1633
+ (:rdiv! , :/ , :Transpose , :transpose ))
1634
1634
@eval begin
1635
- function ($ op)(A:: LowerTriangular , xformB:: ($xform ) {<: Any ,<: UpperTriangular })
1635
+ function ($ op)(A:: LowerTriangular , xformB:: ($xformtype ) {<: Any ,<: UpperTriangular })
1636
1636
B = xformB. parent
1637
- TAB = typeof (($ op)(zero (eltype (A)), $ xform (zero (eltype (B)))) +
1638
- ($ op)(zero (eltype (A)), $ xform (zero (eltype (B)))))
1637
+ TAB = typeof (($ op)(zero (eltype (A)), $ xformop (zero (eltype (B)))) +
1638
+ ($ op)(zero (eltype (A)), $ xformop (zero (eltype (B)))))
1639
1639
AA = similar (A, TAB, size (A))
1640
1640
copyto! (AA, A)
1641
- return LowerTriangular ($ ipop (AA, $ xform (convert (AbstractMatrix{TAB}, B))))
1641
+ return LowerTriangular ($ ipop (AA, $ xformop (convert (AbstractMatrix{TAB}, B))))
1642
1642
end
1643
1643
1644
- function ($ op)(A:: LowerTriangular , xformB:: ($xform ) {<: Any ,<: UnitUpperTriangular })
1644
+ function ($ op)(A:: LowerTriangular , xformB:: ($xformtype ) {<: Any ,<: UnitUpperTriangular })
1645
1645
B = xformB. parent
1646
1646
TAB = typeof ((* )(zero (eltype (A)), zero (eltype (B))) +
1647
1647
(* )(zero (eltype (A)), zero (eltype (B))))
1648
1648
AA = similar (A, TAB, size (A))
1649
1649
copyto! (AA, A)
1650
- return LowerTriangular ($ ipop (AA, $ xform (convert (AbstractMatrix{TAB}, B))))
1650
+ return LowerTriangular ($ ipop (AA, $ xformop (convert (AbstractMatrix{TAB}, B))))
1651
1651
end
1652
1652
1653
- function ($ op)(A:: UpperTriangular , xformB:: ($xform ) {<: Any ,<: LowerTriangular })
1653
+ function ($ op)(A:: UpperTriangular , xformB:: ($xformtype ) {<: Any ,<: LowerTriangular })
1654
1654
B = xformB. parent
1655
- TAB = typeof (($ op)(zero (eltype (A)), $ xform (zero (eltype (B)))) +
1656
- ($ op)(zero (eltype (A)), $ xform (zero (eltype (B)))))
1655
+ TAB = typeof (($ op)(zero (eltype (A)), $ xformop (zero (eltype (B)))) +
1656
+ ($ op)(zero (eltype (A)), $ xformop (zero (eltype (B)))))
1657
1657
AA = similar (A, TAB, size (A))
1658
1658
copyto! (AA, A)
1659
- return UpperTriangular ($ ipop (AA, $ xform (convert (AbstractMatrix{TAB}, B))))
1659
+ return UpperTriangular ($ ipop (AA, $ xformop (convert (AbstractMatrix{TAB}, B))))
1660
1660
end
1661
1661
1662
- function ($ op)(A:: UpperTriangular , xformB:: ($xform ) {<: Any ,<: UnitLowerTriangular })
1662
+ function ($ op)(A:: UpperTriangular , xformB:: ($xformtype ) {<: Any ,<: UnitLowerTriangular })
1663
1663
B = xformB. parent
1664
1664
TAB = typeof ((* )(zero (eltype (A)), zero (eltype (B))) +
1665
1665
(* )(zero (eltype (A)), zero (eltype (B))))
1666
1666
AA = similar (A, TAB, size (A))
1667
1667
copyto! (AA, A)
1668
- return UpperTriangular ($ ipop (AA, $ xform (convert (AbstractMatrix{TAB}, B))))
1668
+ return UpperTriangular ($ ipop (AA, $ xformop (convert (AbstractMatrix{TAB}, B))))
1669
1669
end
1670
1670
end
1671
1671
end
0 commit comments