DistributedSPMMScaling.cc

// -*- tab-width: 2; indent-tabs-mode: nil; coding: utf-8-with-signature -*-
//-----------------------------------------------------------------------------
// Copyright 2000-2026 CEA (www.cea.fr) IFPEN (www.ifpenergiesnouvelles.com)
// See the top-level COPYRIGHT file for details.
// SPDX-License-Identifier: Apache-2.0
//-----------------------------------------------------------------------------
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
/*
 * This file is based on the work on AMGCL library (version march 2026)
 * which can be found at https://github.com/ddemidov/amgcl.
 *
 * Copyright (c) 2012-2022 Denis Demidov <dennis.demidov@gmail.com>
 * SPDX-License-Identifier: MIT
 */
/*---------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------*/
 
#include <iostream>
#include <vector>
 
#include "arccore/alina/BuiltinBackend.h"
#include "arccore/alina/Adapters.h"
#include "arccore/alina/DistributedMatrix.h"
#include "arccore/alina/Profiler.h"
 
#include "arccore/common/internal/ProgramOptions.h"
 
#include "DomainPartition.h"
 
using namespace Arcane;
 
struct renumbering
{
  const DomainPartition<3>& part;
  const UniqueArray<ptrdiff_t>& dom;
 
  renumbering(const DomainPartition<3>& p,
              const UniqueArray<ptrdiff_t>& d)
  : part(p)
  , dom(d)
  {}
 
  ptrdiff_t operator()(ptrdiff_t i, ptrdiff_t j, ptrdiff_t k) const
  {
    boost::array<ptrdiff_t, 3> p = { { i, j, k } };
    std::pair<int, ptrdiff_t> v = part.index(p);
    return dom[v.first] + v.second;
  }
};
 
int main(int argc, char* argv[])
{
  auto& prof = Alina::Profiler::globalProfiler();
 
  auto mpm = MessagePassing::Mpi::StandaloneMpiMessagePassingMng::createAndInitializeMPI(&argc, &argv, MPI_THREAD_MULTIPLE);
  Alina::AlinaCommunicator world(mpm);
 
  if (world.rank == 0)
    std::cout << "World size: " << world.size << std::endl;
 
  // Read configuration from command line
  ptrdiff_t n = 128;
 
  namespace po = Arcane::ProgramOptions;
  po::options_description desc("Options");
 
  desc.add_options()("help,h", "show help")(
  "size,n",
  po::value<ptrdiff_t>(&n)->default_value(n),
  "domain size");
 
  po::variables_map vm;
  po::store(po::parse_command_line(argc, argv, desc), vm);
  po::notify(vm);
 
  if (vm.count("help")) {
    std::cout << desc << std::endl;
    return 0;
  }
 
  boost::array<ptrdiff_t, 3> lo = { { 0, 0, 0 } };
  boost::array<ptrdiff_t, 3> hi = { { n - 1, n - 1, n - 1 } };
 
  prof.tic("partition");
  DomainPartition<3> part(lo, hi, world.size);
  ptrdiff_t chunk = part.size(world.rank);
 
  UniqueArray<ptrdiff_t> domain = world.exclusive_sum(chunk);
 
  lo = part.domain(world.rank).min_corner();
  hi = part.domain(world.rank).max_corner();
 
  renumbering renum(part, domain);
  prof.toc("partition");
 
  prof.tic("assemble");
  std::vector<ptrdiff_t> ptr;
  std::vector<ptrdiff_t> col;
  std::vector<double> val;
  std::vector<double> rhs;
 
  ptr.reserve(chunk + 1);
  col.reserve(chunk * 7);
  val.reserve(chunk * 7);
 
  ptr.push_back(0);
 
  const double h2i = (n - 1) * (n - 1);
 
  for (ptrdiff_t k = lo[2]; k <= hi[2]; ++k) {
    for (ptrdiff_t j = lo[1]; j <= hi[1]; ++j) {
      for (ptrdiff_t i = lo[0]; i <= hi[0]; ++i) {
        if (k > 0) {
          col.push_back(renum(i, j, k - 1));
          val.push_back(-h2i);
        }
 
        if (j > 0) {
          col.push_back(renum(i, j - 1, k));
          val.push_back(-h2i);
        }
 
        if (i > 0) {
          col.push_back(renum(i - 1, j, k));
          val.push_back(-h2i);
        }
 
        col.push_back(renum(i, j, k));
        val.push_back(6 * h2i);
 
        if (i + 1 < n) {
          col.push_back(renum(i + 1, j, k));
          val.push_back(-h2i);
        }
 
        if (j + 1 < n) {
          col.push_back(renum(i, j + 1, k));
          val.push_back(-h2i);
        }
 
        if (k + 1 < n) {
          col.push_back(renum(i, j, k + 1));
          val.push_back(-h2i);
        }
 
        ptr.push_back(col.size());
      }
    }
  }
  prof.toc("assemble");
 
  typedef Alina::BuiltinBackend<double> Backend;
  typedef Alina::DistributedMatrix<Backend> Matrix;
 
  prof.tic("create distributed version");
  Matrix A(world, std::tie(chunk, ptr, col, val), chunk);
  prof.toc("create distributed version");
 
  prof.tic("distributed product");
  auto B = product(A, A);
  prof.toc("distributed product");
 
  if (world.rank == 0) {
    if (world.size == 1) {
      typedef Alina::CSRMatrix<double> matrix;
      matrix A(std::tie(chunk, ptr, col, val));
      prof.tic("openmp product");
      auto B = product(A, A);
      prof.toc("openmp product");
    }
 
    std::cout << prof << std::endl;
  }
}