assemble_vector_impl.h

// Copyright (C) 2018-2025 Garth N. Wells and Paul T. Kühner
//
// This file is part of DOLFINx (https://www.fenicsproject.org)
//
// SPDX-License-Identifier:    LGPL-3.0-or-later
 
#pragma once
 
#include "Constant.h"
#include "DirichletBC.h"
#include "DofMap.h"
#include "Form.h"
#include "assemble_matrix_impl.h"
#include "traits.h"
#include "utils.h"
#include <algorithm>
#include <basix/mdspan.hpp>
#include <cstdint>
#include <dolfinx/common/IndexMap.h>
#include <dolfinx/mesh/Geometry.h>
#include <dolfinx/mesh/Mesh.h>
#include <dolfinx/mesh/Topology.h>
#include <functional>
#include <memory>
#include <optional>
#include <span>
#include <stdexcept>
#include <type_traits>
#include <vector>
 
namespace dolfinx::fem
{
template <dolfinx::scalar T, std::floating_point U>
class DirichletBC;
}
 
namespace dolfinx::fem::impl
{
using mdspan2_t = md::mdspan<const std::int32_t, md::dextents<std::size_t, 2>>;

template <typename V, std::floating_point U,
          dolfinx::scalar T = typename std::remove_cvref_t<V>::value_type>
  requires std::is_same_v<typename std::remove_cvref_t<V>::value_type, T>
void assemble_cells(
    const fem::DofTransformKernel<T> auto& P0, V&& b, mdspan2_t x_dofmap,
    md::mdspan<const U, md::extents<std::size_t, md::dynamic_extent, 3>> x,
    std::span<const std::int32_t> cells, const DofMapPackCells auto& dofmap,
    const FEkernel<T, U> auto& kernel, std::span<const T> constants,
    md::mdspan<const T, md::dextents<std::size_t, 2>> coeffs,
    std::span<const std::uint32_t> cell_info0, std::span<T> be_b,
    std::span<U> cdofs_b)
{
  if (cells.empty())
    return;
 
  const auto [dmap, bs, cells0] = dofmap;
  assert(cdofs_b.size() >= 3 * x_dofmap.extent(1));
  assert(be_b.size() >= bs * dmap.extent(1));
  auto be = be_b.first(bs * dmap.extent(1));
 
  // Iterate over active cells
  for (std::size_t index = 0; index < cells.size(); ++index)
  {
    // Integration domain cell and test function cell
    std::int32_t c = cells[index];
    std::int32_t c0 = cells0[index];
 
    // Get cell coordinates/geometry
    auto x_dofs = md::submdspan(x_dofmap, c, md::full_extent);
    for (std::size_t i = 0; i < x_dofs.size(); ++i)
      std::copy_n(&x(x_dofs[i], 0), 3, std::next(cdofs_b.begin(), 3 * i));
 
    // Tabulate vector for cell
    std::ranges::fill(be, 0);
    kernel(be.data(), &coeffs(index, 0), constants.data(), cdofs_b.data(),
           nullptr, nullptr, nullptr);
    P0(be, cell_info0, c0, 1);
 
    // Scatter cell vector to 'global' vector array
    auto dofs = md::submdspan(dmap, c0, md::full_extent);
    for (std::size_t i = 0; i < dofs.size(); ++i)
      for (int k = 0; k < bs; ++k)
        b[bs * dofs[i] + k] += be[bs * i + k];
  }
}

template <typename V, std::floating_point U,
          dolfinx::scalar T = typename std::remove_cvref_t<V>::value_type>
  requires std::is_same_v<typename std::remove_cvref_t<V>::value_type, T>
void assemble_entities(
    const fem::DofTransformKernel<T> auto& P0, V&& b, mdspan2_t x_dofmap,
    md::mdspan<const U, md::extents<std::size_t, md::dynamic_extent, 3>> x,
    md::mdspan<const std::int32_t,
               std::extents<std::size_t, md::dynamic_extent, 2>>
        entities,
    const DofMapPackEntities auto& dofmap, const FEkernel<T, U> auto& kernel,
    std::span<const T> constants,
    md::mdspan<const T, md::dextents<std::size_t, 2>> coeffs,
    std::span<const std::uint32_t> cell_info0,
    md::mdspan<const std::uint8_t, md::dextents<std::size_t, 2>> perms,
    std::span<T> be_b, std::span<U> cdofs_b)
{
  if (entities.empty())
    return;
 
  const auto [dmap, bs, entities0] = dofmap;
 
  const int num_dofs = dmap.extent(1);
  assert(cdofs_b.size() >= 3 * x_dofmap.extent(1));
  assert(be_b.size() >= static_cast<std::size_t>(bs) * num_dofs);
  auto be = be_b.first(bs * num_dofs);
  assert(entities0.size() == entities.size());
  for (std::size_t f = 0; f < entities.extent(0); ++f)
  {
    // Cell in the integration domain, local facet index relative to the
    // integration domain cell, and cell in the test function mesh
    std::int32_t cell = entities(f, 0);
    std::int32_t local_entity = entities(f, 1);
    std::int32_t cell0 = entities0(f, 0);
 
    // Get cell coordinates/geometry
    auto x_dofs = md::submdspan(x_dofmap, cell, md::full_extent);
    for (std::size_t i = 0; i < x_dofs.size(); ++i)
      std::copy_n(&x(x_dofs[i], 0), 3, std::next(cdofs_b.begin(), 3 * i));
 
    // Permutations
    std::uint8_t perm = perms.empty() ? 0 : perms(cell, local_entity);
 
    // Tabulate element vector
    std::ranges::fill(be, 0);
    kernel(be.data(), &coeffs(f, 0), constants.data(), cdofs_b.data(),
           &local_entity, &perm, nullptr);
    P0(be, cell_info0, cell0, 1);
 
    // Add to global vector
    auto dofs = md::submdspan(dmap, cell0, md::full_extent);
    for (std::size_t i = 0; i < dofs.size(); ++i)
    {
      std::int32_t dof = bs * dofs[i];
      std::int32_t offset = bs * i;
      for (int k = 0; k < bs; ++k)
        b[dof + k] += be[offset + k];
    }
  }
}

template <typename V, std::floating_point U,
          dolfinx::scalar T = typename std::remove_cvref_t<V>::value_type>
  requires std::is_same_v<typename std::remove_cvref_t<V>::value_type, T>
void assemble_interior_facets(
    const fem::DofTransformKernel<T> auto& P0, V&& b, mdspan2_t x_dofmap,
    md::mdspan<const U, md::extents<std::size_t, md::dynamic_extent, 3>> x,
    md::mdspan<const std::int32_t,
               std::extents<std::size_t, md::dynamic_extent, 2, 2>>
        facets,
    const DofMapPackFacets auto& dofmap, const FEkernel<T, U> auto& kernel,
    std::span<const T> constants,
    md::mdspan<const T, md::extents<std::size_t, md::dynamic_extent, 2,
                                    md::dynamic_extent>>
        coeffs,
    std::span<const std::uint32_t> cell_info0,
    md::mdspan<const std::uint8_t, md::dextents<std::size_t, 2>> perms,
    std::span<T> be_b, std::span<U> cdofs_b)
{
  if (facets.empty())
    return;
 
  const auto [dmap, bs, facets0] = dofmap;
 
  assert(cdofs_b.size() >= 2 * x_dofmap.extent(1) * 3);
  auto cdofs0 = cdofs_b.first(x_dofmap.extent(1) * 3);
  auto cdofs1 = cdofs_b.subspan(x_dofmap.extent(1) * 3, x_dofmap.extent(1) * 3);
 
  const std::size_t dmap_size = dmap.extent(1);
  assert(be_b.size() >= static_cast<std::size_t>(bs) * 2 * dmap_size);
  auto be = be_b.first(bs * 2 * dmap_size);
 
  assert(facets0.size() == facets.size());
  for (std::size_t f = 0; f < facets.extent(0); ++f)
  {
    // Cells in integration domain and test function domain meshes
    std::array<std::int32_t, 2> cells{facets(f, 0, 0), facets(f, 1, 0)};
    std::array<std::int32_t, 2> cells0{facets0(f, 0, 0), facets0(f, 1, 0)};
 
    // Local facet indices
    std::array<std::int32_t, 2> local_facet{facets(f, 0, 1), facets(f, 1, 1)};
 
    // Get cell geometry
    auto x_dofs0 = md::submdspan(x_dofmap, cells[0], md::full_extent);
    for (std::size_t i = 0; i < x_dofs0.size(); ++i)
      std::copy_n(&x(x_dofs0[i], 0), 3, std::next(cdofs0.begin(), 3 * i));
    auto x_dofs1 = md::submdspan(x_dofmap, cells[1], md::full_extent);
    for (std::size_t i = 0; i < x_dofs1.size(); ++i)
      std::copy_n(&x(x_dofs1[i], 0), 3, std::next(cdofs1.begin(), 3 * i));
 
    // Get dofmaps for cells. When integrating over interfaces between
    // two domains, the test function might only be defined on one side,
    // so we check which cells exist in the test function domain.
    std::span dmap0 = cells0[0] >= 0 ? std::span(&dmap(cells0[0], 0), dmap_size)
                                     : std::span<const std::int32_t>();
    std::span dmap1 = cells0[1] >= 0 ? std::span(&dmap(cells0[1], 0), dmap_size)
                                     : std::span<const std::int32_t>();
 
    // Tabulate element vector
    std::ranges::fill(be, 0);
    std::array perm = perms.empty()
                          ? std::array<std::uint8_t, 2>{0, 0}
                          : std::array{perms(cells[0], local_facet[0]),
                                       perms(cells[1], local_facet[1])};
    kernel(be.data(), &coeffs(f, 0, 0), constants.data(), cdofs_b.data(),
           local_facet.data(), perm.data(), nullptr);
 
    if (cells0[0] >= 0)
      P0(be, cell_info0, cells0[0], 1);
    if (cells0[1] >= 0)
    {
      std::span sub_be(be.data() + bs * dmap_size, bs * dmap_size);
      P0(sub_be, cell_info0, cells0[1], 1);
    }
 
    // Add element vector to global vector
    for (std::size_t i = 0; i < dmap0.size(); ++i)
    {
      std::int32_t dof = bs * dmap0[i];
      std::int32_t offset = bs * i;
      for (int k = 0; k < bs; ++k)
        b[dof + k] += be[offset + k];
    }
    for (std::size_t i = 0; i < dmap1.size(); ++i)
    {
      std::int32_t dof = bs * dmap1[i];
      std::int32_t offset = bs * (i + dmap_size);
      for (int k = 0; k < bs; ++k)
        b[dof + k] += be[offset + k];
    }
  }
}

template <dolfinx::scalar T, std::floating_point U, typename V>
  requires std::is_same_v<typename std::remove_cvref_t<V>::value_type, T>
void lift_bc(V&& b, const Form<T, U>& a, auto bs0, auto bs1,
             std::span<const T> constants,
             const std::map<std::pair<IntegralType, int>,
                            std::pair<std::span<const T>, int>>& coefficients,
             std::span<const T> bc_values1,
             std::span<const std::int8_t> bc_markers1, std::span<const T> x0,
             T alpha)
{
  // Deduce runtime block sizes as fallback when compile-time sizes
  // not given. The block size of the dofmap and indexmap is the same
  // on all sub-topologies.
  assert(bs0 == a.function_spaces()[0]->dofmaps().front()->bs());
  assert(bs1 == a.function_spaces()[1]->dofmaps().front()->bs());
 
  auto lifting_fn = [bs0, bs1, alpha, &b, &bc_values1, &bc_markers1,
                     &x0](auto rows, auto cols, auto Ae)
  {
    const std::size_t nc = cols.size() * bs1;
    for (std::size_t i = 0; i < cols.size(); ++i)
    {
      for (int k = 0; k < bs1; ++k)
      {
        const std::int32_t ii = cols[i] * bs1 + k;
        if (bc_markers1[ii])
        {
          const T x_bc = bc_values1[ii];
          const T _x0 = x0.empty() ? 0 : x0[ii];
          for (std::size_t j = 0; j < rows.size(); ++j)
          {
            for (int m = 0; m < bs0; ++m)
            {
              const std::int32_t jj = rows[j] * bs0 + m;
              b[jj] -= Ae[(j * bs0 + m) * nc + (i * bs1 + k)] * alpha
                       * (x_bc - _x0);
            }
          }
        }
      }
    }
  };
 
  // Use dolfinx::fem::impl::assemble_matrix assembler to work on the
  // vector b. With LiftingMode=true, the kernel is only called on cells
  // that have BC-constrained DOFs in the column space.
  std::shared_ptr<const mesh::Mesh<U>> mesh = a.mesh();
  assert(mesh);
  std::span x = mesh->geometry().x();
  md::mdspan<const U, md::extents<std::size_t, md::dynamic_extent, 3>> _x(
      x.data(), x.size() / 3, 3);
  impl::assemble_matrix<true>(lifting_fn, a, _x, constants, coefficients, {},
                              bc_markers1);
}

template <typename V, std::floating_point U,
          dolfinx::scalar T = typename std::remove_cvref_t<V>::value_type>
  requires std::is_same_v<typename std::remove_cvref_t<V>::value_type, T>
void assemble_vector(
    V&& b, const Form<T, U>& L,
    md::mdspan<const U, md::extents<std::size_t, md::dynamic_extent, 3>> x,
    std::span<const T> constants,
    const std::map<std::pair<IntegralType, int>,
                   std::pair<std::span<const T>, int>>& coefficients)
{
  // Integration domain mesh
  std::shared_ptr<const mesh::Mesh<U>> mesh = L.mesh();
  assert(mesh);
 
  // Test function mesh
  auto mesh0 = L.function_spaces().at(0)->mesh();
  assert(mesh0);
 
  const int num_cell_types = mesh->topology()->cell_types().size();
  for (int cell_type_idx = 0; cell_type_idx < num_cell_types; ++cell_type_idx)
  {
    // Geometry dofmap and data
    mdspan2_t x_dofmap = mesh->geometry().dofmaps().at(cell_type_idx);
 
    // Get dofmap data
    assert(L.function_spaces().at(0));
    auto element = L.function_spaces().at(0)->elements(cell_type_idx);
    assert(element);
    std::shared_ptr<const fem::DofMap> dofmap
        = L.function_spaces().at(0)->dofmaps().at(cell_type_idx);
    assert(dofmap);
    auto dofs = dofmap->map();
    const int bs = dofmap->bs();
 
    // Buffers reused across all integral kernels for this cell type,
    // sized for the worst case (interior facets, which touch two cells).
    std::vector<T> be_buffer(2 * bs * dofs.extent(1));
    std::vector<U> cdofs_buffer(2 * 3 * x_dofmap.extent(1));
    std::span be_b(be_buffer);
    std::span cdofs_b(cdofs_buffer);
 
    const fem::DofTransformKernel<T> auto& P0
        = element->template dof_transformation_fn<T>(doftransform::standard);
 
    std::span<const std::uint32_t> cell_info0;
    if (element->needs_dof_transformations() or L.needs_facet_permutations())
    {
      mesh0->topology_mutable()->create_entity_permutations();
      cell_info0 = std::span(mesh0->topology()->get_cell_permutation_info());
    }
 
    for (int i = 0; i < L.num_integrals(IntegralType::cell, 0); ++i)
    {
      auto fn = L.kernel(IntegralType::cell, i, cell_type_idx);
      assert(fn);
      std::span cells = L.domain(IntegralType::cell, i, cell_type_idx);
      std::span cells0 = L.domain_arg(IntegralType::cell, 0, i, cell_type_idx);
      auto& [coeffs, cstride] = coefficients.at({IntegralType::cell, i});
      assert(cells.size() * cstride == coeffs.size());
      if (bs == 1)
      {
        impl::assemble_cells(
            P0, b, x_dofmap, x, cells,
            std::tuple{dofs, std::integral_constant<int, 1>{}, cells0}, fn,
            constants, md::mdspan(coeffs.data(), cells.size(), cstride),
            cell_info0, be_b, cdofs_b);
      }
      else if (bs == 3)
      {
        impl::assemble_cells(
            P0, b, x_dofmap, x, cells,
            std::tuple{dofs, std::integral_constant<int, 3>(), cells0}, fn,
            constants, md::mdspan(coeffs.data(), cells.size(), cstride),
            cell_info0, be_b, cdofs_b);
      }
      else
      {
        impl::assemble_cells(P0, b, x_dofmap, x, cells,
                             std::tuple{dofs, bs, cells0}, fn, constants,
                             md::mdspan(coeffs.data(), cells.size(), cstride),
                             cell_info0, be_b, cdofs_b);
      }
    }
 
    md::mdspan<const std::uint8_t, md::dextents<std::size_t, 2>> facet_perms;
    if (L.needs_facet_permutations())
    {
      mesh::CellType cell_type = mesh->topology()->cell_types()[cell_type_idx];
      int num_facets_per_cell
          = mesh::cell_num_entities(cell_type, mesh->topology()->dim() - 1);
      mesh->topology_mutable()->create_entity_permutations();
      const std::vector<std::uint8_t>& p
          = mesh->topology()->get_facet_permutations();
      facet_perms = md::mdspan(p.data(), p.size() / num_facets_per_cell,
                               num_facets_per_cell);
    }
 
    using mdspanx2_t
        = md::mdspan<const std::int32_t,
                     md::extents<std::size_t, md::dynamic_extent, 2>>;
    using mdspanx22_t
        = md::mdspan<const std::int32_t,
                     md::extents<std::size_t, md::dynamic_extent, 2, 2>>;
    using mdspanx2x_t
        = md::mdspan<const T, md::extents<std::size_t, md::dynamic_extent, 2,
                                          md::dynamic_extent>>;
 
    for (int i = 0; i < L.num_integrals(IntegralType::interior_facet, 0); ++i)
    {
      auto fn = L.kernel(IntegralType::interior_facet, i, 0);
      assert(fn);
      auto& [coeffs, cstride]
          = coefficients.at({IntegralType::interior_facet, i});
      std::span facets = L.domain(IntegralType::interior_facet, i, 0);
      std::span facets1 = L.domain_arg(IntegralType::interior_facet, 0, i, 0);
      assert((facets.size() / 4) * 2 * cstride == coeffs.size());
 
      mdspanx22_t facets_mdspan(facets.data(), facets.size() / 4, 2, 2);
      mdspanx22_t facets1_mdspan(facets1.data(), facets1.size() / 4, 2, 2);
      if (bs == 1)
      {
        impl::assemble_interior_facets(
            P0, b, x_dofmap, x, facets_mdspan,
            std::tuple{dofs, std::integral_constant<int, 1>{}, facets1_mdspan},
            fn, constants,
            mdspanx2x_t(coeffs.data(), facets.size() / 4, 2, cstride),
            cell_info0, facet_perms, be_b, cdofs_b);
      }
      else if (bs == 3)
      {
        impl::assemble_interior_facets(
            P0, b, x_dofmap, x, facets_mdspan,
            std::tuple{dofs, std::integral_constant<int, 3>{}, facets1_mdspan},
            fn, constants,
            mdspanx2x_t(coeffs.data(), facets.size() / 4, 2, cstride),
            cell_info0, facet_perms, be_b, cdofs_b);
      }
      else
      {
        impl::assemble_interior_facets(
            P0, b, x_dofmap, x, facets_mdspan,
            std::tuple{dofs, bs, facets1_mdspan}, fn, constants,
            mdspanx2x_t(coeffs.data(), facets.size() / 4, 2, cstride),
            cell_info0, facet_perms, be_b, cdofs_b);
      }
    }
 
    for (auto itg_type : {fem::IntegralType::exterior_facet,
                          fem::IntegralType::vertex, fem::IntegralType::ridge})
    {
      md::mdspan<const std::uint8_t, md::dextents<std::size_t, 2>> perms
          = (itg_type == fem::IntegralType::exterior_facet)
                ? facet_perms
                : md::mdspan<const std::uint8_t,
                             md::dextents<std::size_t, 2>>{};
      for (int i = 0; i < L.num_integrals(itg_type, 0); ++i)
      {
        auto fn = L.kernel(itg_type, i, 0);
        assert(fn);
        auto& [coeffs, cstride] = coefficients.at({itg_type, i});
        std::span e = L.domain(itg_type, i, 0);
        mdspanx2_t entities(e.data(), e.size() / 2, 2);
        std::span e1 = L.domain_arg(itg_type, 0, i, 0);
        mdspanx2_t entities1(e1.data(), e1.size() / 2, 2);
        assert((entities.size() / 2) * cstride == coeffs.size());
        if (bs == 1)
        {
          impl::assemble_entities(
              P0, b, x_dofmap, x, entities,
              std::tuple{dofs, std::integral_constant<int, 1>{}, entities1}, fn,
              constants, md::mdspan(coeffs.data(), entities.extent(0), cstride),
              cell_info0, perms, be_b, cdofs_b);
        }
        else if (bs == 3)
        {
          impl::assemble_entities(
              P0, b, x_dofmap, x, entities,
              std::tuple{dofs, std::integral_constant<int, 3>{}, entities1}, fn,
              constants, md::mdspan(coeffs.data(), entities.extent(0), cstride),
              cell_info0, perms, be_b, cdofs_b);
        }
        else
        {
          impl::assemble_entities(
              P0, b, x_dofmap, x, entities, std::tuple{dofs, bs, entities1}, fn,
              constants, md::mdspan(coeffs.data(), entities.extent(0), cstride),
              cell_info0, perms, be_b, cdofs_b);
        }
      }
    }
  }
}

template <typename V, std::floating_point U,
          dolfinx::scalar T = typename std::remove_cvref_t<V>::value_type>
  requires std::is_same_v<typename std::remove_cvref_t<V>::value_type, T>
void assemble_vector(
    V&& b, const Form<T, U>& L, std::span<const T> constants,
    const std::map<std::pair<IntegralType, int>,
                   std::pair<std::span<const T>, int>>& coefficients)
{
  using mdspanx3_t
      = md::mdspan<const U, md::extents<std::size_t, md::dynamic_extent, 3>>;
 
  std::shared_ptr<const mesh::Mesh<U>> mesh = L.mesh();
  assert(mesh);
  auto x = mesh->geometry().x();
  impl::assemble_vector(b, L, mdspanx3_t(x.data(), x.size() / 3, 3), constants,
                        coefficients);
}
} // namespace dolfinx::fem::impl