solver.ppbsv.cpp File Reference

Standalone ppbsv solver. More...

#include <ezp/ppbsv.hpp>
#include <mpl/mpl.hpp>

Include dependency graph for solver.ppbsv.cpp:

const auto &	comm_world {mpl::environment::comm_world()}
const auto &	parent = mpl::inter_communicator::parent()
template<ezp::data_t DT, ezp::index_t IT>
int	run (const int N, const int KLU, const int NRHS)
int	main (int, char **)

Detailed Description

Standalone ppbsv solver.

This program is a standalone application that solves a system of linear equations using the ppbsv solver.

The caller spawns this program as a worker process.

The caller must send three buffers to the worker process:

• an integer array of size 4 containing the matrix size (N), number of diagonals (KLU), number of right-hand sides (NRHS), and the data type,
• a buffer containing the matrix A, size N x (KLU + 1),
• a buffer containing the right-hand side B, size N x NRHS.

The data type has the following meaning:

• 2-digit positive: complex16,
• 1-digit positive: double,
• 1-digit negative: float,
• 2-digit negative: complex8.

The error code (0 for success) will be sent back to the root process of the caller. If error code is 0, the solution will be sent back as well.

The example caller logic can be seen as follows.

/*******************************************************************************
 * Copyright (C) 2025 Theodore Chang
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ******************************************************************************/
#include <iostream>
#include <mpl/mpl.hpp>
 
int main(int argc, char** argv) {
    if(argc < 2) {
        std::cout << "Usage: runner ge|gex|po|gb|db|pb [n]\n";
        std::cout << "Example: runner ge 3\n";
        return 0;
    }
    constexpr auto N = 6, NRHS = 1;
 
    std::vector<double> A, B(N * NRHS, 1.);
    std::vector<int> config;
 
    const auto type = std::string(argv[1]);
    std::string solver;
 
    if("ge" == type) {
        solver = "solver.pgesv";
 
        config = {N, NRHS, 1};
 
        A.resize(N * N, 0.);
        for(auto I = 0; I < N; ++I) A[I * N + I] = I + 1.;
    }
    else if("gex" == type) {
        solver = "solver.pgesvx";
 
        config = {N, NRHS, 1};
 
        A.resize(N * N, 0.);
        for(auto I = 0; I < N; ++I) A[I * N + I] = I + 1.;
    }
    else if("po" == type) {
        solver = "solver.pposv";
 
        config = {N, NRHS, 1};
 
        A.resize(N * N, 0.);
        for(auto I = 0; I < N; ++I) A[I * N + I] = I + 1.;
    }
    else if("gb" == type) {
        solver = "solver.pgbsv";
 
        constexpr auto KL = 1, KU = 1;
 
        config = {N, KL, KU, NRHS, 1};
 
        A.resize(N * (KL + KU + 1), 0.);
        for(auto I = 0; I < N; ++I) A[KU + I * (KL + KU + 1)] = I + 1.;
    }
    else if("db" == type) {
        solver = "solver.pdbsv";
 
        constexpr auto KL = 1, KU = 1;
 
        config = {N, KL, KU, NRHS, 1};
 
        A.resize(N * (KL + KU + 1), 0.);
        for(auto I = 0; I < N; ++I) A[KU + I * (KL + KU + 1)] = I + 1.;
    }
    else if("pb" == type) {
        solver = "solver.ppbsv";
 
        constexpr auto KLU = 1;
 
        config = {N, KLU, NRHS, 1};
 
        A.resize(N * (KLU + 1), 0.);
        for(auto I = 0; I < N; ++I) A[I + I * KLU] = I + 1.;
    }
    else {
        std::cout << "Usage: runner ge|po|gb|db|pb [n]\n";
        return 0;
    }
 
    const auto& comm_world{mpl::environment::comm_world()};
    const auto worker = comm_world.spawn(0, argc < 3 ? 1 : std::abs(std::stoi(argv[2])), {solver});
    const auto all = mpl::communicator(worker, mpl::communicator::order_low);
 
    all.bcast(0, config.data(), mpl::contiguous_layout<int>(config.size()));
 
    mpl::irequest_pool requests;
 
    requests.push(worker.isend(A, 0, mpl::tag_t{0}));
    requests.push(worker.isend(B, 0, mpl::tag_t{1}));
 
    requests.waitall();
 
    int error = -1;
    worker.recv(error, 0);
    if(0 == error) worker.recv(B, 0);
 
    for(auto I = 0; I < N; ++I) printf("x[%d] = %+.6f\n", I, B[I]);
 
    return 0;
}
 

Author

tlc

Date

07/03/2025

Version

1.0.0