Implement numba tridiagonal solve

ricardoV94 · ricardoV94 · commit 4cc3474b4c06 · 2025-03-21T12:18:24.000+01:00
diff --git a/pytensor/link/numba/dispatch/linalg/solve/tridiagonal.py b/pytensor/link/numba/dispatch/linalg/solve/tridiagonal.py
@@ -0,0 +1,292 @@
+from collections.abc import Callable
+
+import numpy as np
+from numba.core.extending import overload
+from numba.np.linalg import ensure_lapack
+from numpy import ndarray
+from scipy import linalg
+
+from pytensor.link.numba.dispatch.linalg._LAPACK import (
+    _LAPACK,
+    _get_underlying_float,
+    int_ptr_to_val,
+    val_to_int_ptr,
+)
+from pytensor.link.numba.dispatch.linalg.solve.utils import _solve_check_input_shapes
+from pytensor.link.numba.dispatch.linalg.utils import (
+    _check_scipy_linalg_matrix,
+    _copy_to_fortran_order_even_if_1d,
+    _solve_check,
+    _trans_char_to_int,
+)
+
+
+def _gttrf(
+    dl: ndarray, d: ndarray, du: ndarray
+) -> tuple[ndarray, ndarray, ndarray, ndarray, ndarray, int]:
+    """Placeholder for LU factorization of tridiagonal matrix."""
+    return  # type: ignore
+
+
+@overload(_gttrf)
+def gttrf_impl(
+    dl: ndarray,
+    d: ndarray,
+    du: ndarray,
+) -> Callable[
+    [ndarray, ndarray, ndarray], tuple[ndarray, ndarray, ndarray, ndarray, ndarray, int]
+]:
+    ensure_lapack()
+    _check_scipy_linalg_matrix(dl, "gttrf")
+    _check_scipy_linalg_matrix(d, "gttrf")
+    _check_scipy_linalg_matrix(du, "gttrf")
+    dtype = d.dtype
+    w_type = _get_underlying_float(dtype)
+    numba_gttrf = _LAPACK().numba_xgttrf(dtype)
+
+    def impl(
+        dl: ndarray,
+        d: ndarray,
+        du: ndarray,
+    ) -> tuple[ndarray, ndarray, ndarray, ndarray, ndarray, int]:
+        n = np.int32(d.shape[-1])
+        ipiv = np.empty(n, dtype=np.int32)
+        du2 = np.empty(n - 2, dtype=dtype)
+        info = val_to_int_ptr(0)
+
+        numba_gttrf(
+            val_to_int_ptr(n),
+            dl.view(w_type).ctypes,
+            d.view(w_type).ctypes,
+            du.view(w_type).ctypes,
+            du2.view(w_type).ctypes,
+            ipiv.ctypes,
+            info,
+        )
+
+        return dl, d, du, du2, ipiv, int_ptr_to_val(info)
+
+    return impl
+
+
+def _gttrs(
+    dl: ndarray,
+    d: ndarray,
+    du: ndarray,
+    du2: ndarray,
+    ipiv: ndarray,
+    b: ndarray,
+    overwrite_b: bool,
+    trans: bool,
+) -> tuple[ndarray, int]:
+    """Placeholder for solving an LU-decomposed tridiagonal system."""
+    return  # type: ignore
+
+
+@overload(_gttrs)
+def gttrs_impl(
+    dl: ndarray,
+    d: ndarray,
+    du: ndarray,
+    du2: ndarray,
+    ipiv: ndarray,
+    b: ndarray,
+    overwrite_b: bool,
+    trans: bool,
+) -> Callable[
+    [ndarray, ndarray, ndarray, ndarray, ndarray, ndarray, bool, bool],
+    tuple[ndarray, int],
+]:
+    ensure_lapack()
+    _check_scipy_linalg_matrix(dl, "gttrs")
+    _check_scipy_linalg_matrix(d, "gttrs")
+    _check_scipy_linalg_matrix(du, "gttrs")
+    _check_scipy_linalg_matrix(du2, "gttrs")
+    _check_scipy_linalg_matrix(b, "gttrs")
+    dtype = d.dtype
+    w_type = _get_underlying_float(dtype)
+    numba_gttrs = _LAPACK().numba_xgttrs(dtype)
+
+    def impl(
+        dl: ndarray,
+        d: ndarray,
+        du: ndarray,
+        du2: ndarray,
+        ipiv: ndarray,
+        b: ndarray,
+        overwrite_b: bool,
+        trans: bool,
+    ) -> tuple[ndarray, int]:
+        n = np.int32(d.shape[-1])
+        nrhs = 1 if b.ndim == 1 else int(b.shape[-1])
+        info = val_to_int_ptr(0)
+
+        if overwrite_b and b.flags.f_contiguous:
+            b_copy = b
+        else:
+            b_copy = _copy_to_fortran_order_even_if_1d(b)
+
+        numba_gttrs(
+            val_to_int_ptr(_trans_char_to_int(trans)),
+            val_to_int_ptr(n),
+            val_to_int_ptr(nrhs),
+            dl.view(w_type).ctypes,
+            d.view(w_type).ctypes,
+            du.view(w_type).ctypes,
+            du2.view(w_type).ctypes,
+            ipiv.ctypes,
+            b_copy.view(w_type).ctypes,
+            val_to_int_ptr(n),
+            info,
+        )
+
+        return b_copy, int_ptr_to_val(info)
+
+    return impl
+
+
+def _gtcon(
+    dl: ndarray,
+    d: ndarray,
+    du: ndarray,
+    du2: ndarray,
+    ipiv: ndarray,
+    anorm: float,
+    norm: str,
+) -> tuple[ndarray, int]:
+    """Placeholder for computing the condition number of a tridiagonal system."""
+    return  # type: ignore
+
+
+@overload(_gtcon)
+def gtcon_impl(
+    dl: ndarray,
+    d: ndarray,
+    du: ndarray,
+    du2: ndarray,
+    ipiv: ndarray,
+    anorm: float,
+    norm: str,
+) -> Callable[
+    [ndarray, ndarray, ndarray, ndarray, ndarray, float, str], tuple[ndarray, int]
+]:
+    ensure_lapack()
+    _check_scipy_linalg_matrix(dl, "gtcon")
+    _check_scipy_linalg_matrix(d, "gtcon")
+    _check_scipy_linalg_matrix(du, "gtcon")
+    _check_scipy_linalg_matrix(du2, "gtcon")
+    dtype = d.dtype
+    w_type = _get_underlying_float(dtype)
+    numba_gtcon = _LAPACK().numba_xgtcon(dtype)
+
+    def impl(
+        dl: ndarray,
+        d: ndarray,
+        du: ndarray,
+        du2: ndarray,
+        ipiv: ndarray,
+        anorm: float,
+        norm: str,
+    ) -> tuple[ndarray, int]:
+        n = np.int32(d.shape[-1])
+        rcond = np.empty(1, dtype=dtype)
+        work = np.empty(2 * n, dtype=dtype)
+        iwork = np.empty(n, dtype=np.int32)
+        info = val_to_int_ptr(0)
+
+        numba_gtcon(
+            val_to_int_ptr(ord(norm)),
+            val_to_int_ptr(n),
+            dl.view(w_type).ctypes,
+            d.view(w_type).ctypes,
+            du.view(w_type).ctypes,
+            du2.view(w_type).ctypes,
+            ipiv.ctypes,
+            np.array(anorm, dtype=dtype).view(w_type).ctypes,
+            rcond.view(w_type).ctypes,
+            work.view(w_type).ctypes,
+            iwork.ctypes,
+            info,
+        )
+
+        return rcond, int_ptr_to_val(info)
+
+    return impl
+
+
+def _solve_tridiagonal(
+    a: ndarray,
+    b: ndarray,
+    lower: bool,
+    overwrite_a: bool,
+    overwrite_b: bool,
+    check_finite: bool,
+    transposed: bool,
+):
+    """
+    Solve a positive-definite linear system using the Cholesky decomposition.
+    """
+    return linalg.solve(
+        a=a,
+        b=b,
+        lower=lower,
+        overwrite_a=overwrite_a,
+        overwrite_b=overwrite_b,
+        check_finite=check_finite,
+        transposed=transposed,
+        assume_a="tridiagonal",
+    )
+
+
+@overload(_solve_tridiagonal)
+def _tridiagonal_solve_impl(
+    A: ndarray,
+    B: ndarray,
+    lower: bool,
+    overwrite_a: bool,
+    overwrite_b: bool,
+    check_finite: bool,
+    transposed: bool,
+) -> Callable[[ndarray, ndarray, bool, bool, bool, bool, bool], ndarray]:
+    ensure_lapack()
+    _check_scipy_linalg_matrix(A, "solve")
+    _check_scipy_linalg_matrix(B, "solve")
+
+    def impl(
+        A: ndarray,
+        B: ndarray,
+        lower: bool,
+        overwrite_a: bool,
+        overwrite_b: bool,
+        check_finite: bool,
+        transposed: bool,
+    ) -> ndarray:
+        n = np.int32(A.shape[-1])
+        _solve_check_input_shapes(A, B)
+        norm = "1"
+
+        if transposed:
+            A = A.T
+        dl, d, du = np.diag(A, -1), np.diag(A, 0), np.diag(A, 1)
+
+        # Adapted from scipy _matrix_norm_tridiagonal:
+        # https://github.com/scipy/scipy/blob/0f1fd4a7268b813fa2b844ca6038e4dfdf90084a/scipy/linalg/_basic.py#L356-L367
+        anorm = np.abs(d)
+        anorm[1:] += np.abs(du)
+        anorm[:-1] += np.abs(dl)
+        anorm = anorm.max()
+
+        dl, d, du, du2, IPIV, INFO = _gttrf(dl, d, du)
+        _solve_check(n, INFO)
+
+        X, INFO = _gttrs(
+            dl, d, du, du2, IPIV, B, trans=transposed, overwrite_b=overwrite_b
+        )
+        _solve_check(n, INFO)
+
+        RCOND, INFO = _gtcon(dl, d, du, du2, IPIV, anorm, norm)
+        _solve_check(n, INFO, True, RCOND)
+
+        return X
+
+    return impl
diff --git a/pytensor/link/numba/dispatch/slinalg.py b/pytensor/link/numba/dispatch/slinalg.py
@@ -9,6 +9,7 @@
 from pytensor.link.numba.dispatch.linalg.solve.posdef import _solve_psd
 from pytensor.link.numba.dispatch.linalg.solve.symmetric import _solve_symmetric
 from pytensor.link.numba.dispatch.linalg.solve.triangular import _solve_triangular
+from pytensor.link.numba.dispatch.linalg.solve.tridiagonal import _solve_tridiagonal
 from pytensor.tensor.slinalg import (
     BlockDiagonal,
     Cholesky,
@@ -114,10 +115,12 @@ def numba_funcify_Solve(op, node, **kwargs):
         solve_fn = _solve_symmetric
     elif assume_a == "pos":
         solve_fn = _solve_psd
+    elif assume_a == "tridiagonal":
+        solve_fn = _solve_tridiagonal
     else:
         warnings.warn(
             f"Numba assume_a={assume_a} not implemented. Falling back to general solve.\n"
-            f"If appropriate, you may want to set assume_a to one of 'sym', 'pos', 'her', or 'triangular' to improve performance.",
+            f"If appropriate, you may want to set assume_a to one of 'sym', 'pos', 'her', 'triangular' or 'tridiagonal' to improve performance.",
             UserWarning,
         )
         solve_fn = _solve_gen
diff --git a/tests/link/numba/test_slinalg.py b/tests/link/numba/test_slinalg.py
@@ -95,7 +95,7 @@ class TestSolves:
         [(5, 1), (5, 5), (5,)],
         ids=["b_col_vec", "b_matrix", "b_vec"],
     )
-    @pytest.mark.parametrize("assume_a", ["gen", "sym", "pos"], ids=str)
+    @pytest.mark.parametrize("assume_a", ["gen", "sym", "pos", "tridiagonal"], ids=str)
     def test_solve(
         self,
         b_shape: tuple[int],
@@ -104,7 +104,7 @@ def test_solve(
         overwrite_a: bool,
         overwrite_b: bool,
     ):
-        if assume_a not in ("sym", "her", "pos") and not lower:
+        if assume_a not in ("sym", "her", "pos", "tridiagonal") and not lower:
             # Avoid redundant tests with lower=True and lower=False for non symmetric matrices
             pytest.skip("Skipping redundant test already covered by lower=True")
 
@@ -118,6 +118,14 @@ def A_func(x):
                 # We have to set the unused triangle to something other than zero
                 # to see lapack destroying it.
                 x[np.triu_indices(n, 1) if lower else np.tril_indices(n, 1)] = np.pi
+            elif assume_a == "tridiagonal":
+                _x = x
+                x = np.zeros_like(x)
+                n = x.shape[-1]
+                arange_n = np.arange(n)
+                x[arange_n[1:], arange_n[:-1]] = np.diag(_x, k=-1)
+                x[arange_n, arange_n] = np.diag(_x, k=0)
+                x[arange_n[:-1], arange_n[1:]] = np.diag(_x, k=1)
             return x
 
         A = pt.matrix("A", dtype=floatX)
@@ -144,7 +152,14 @@ def A_func(x):
 
         op = f.maker.fgraph.outputs[0].owner.op
         assert isinstance(op, Solve)
+        assert op.assume_a == assume_a
         destroy_map = op.destroy_map
+
+        if overwrite_a and assume_a == "tridiagonal":
+            # Tridiagonal solve never destroys the A matrix
+            # Treat test from here as if overwrite_a is False
+            overwrite_a = False
+
         if overwrite_a and overwrite_b:
             raise NotImplementedError(
                 "Test not implemented for simultaneous overwrite_a and overwrite_b, as that's not currently supported by PyTensor"
