// Author: Wes Kendall
// Copyright 2011 www.mpitutorial.com
// This code is provided freely with the tutorials on mpitutorial.com. Feel
// free to modify it for your own use. Any distribution of the code must
// either provide a link to www.mpitutorial.com or keep this header intact.
//
// An intro MPI hello world program that uses MPI_Init, MPI_Comm_size,
// MPI_Comm_rank, MPI_Finalize, and MPI_Get_processor_name.
//
// I, Dan Bennett, Have modified this
//
#include <mpi.h>
#include <iostream>
#include <stdio.h>

using namespace std;

const size_t MAX_ERROR_STRING{100};

int main([[maybe_unused]] int argc, [[maybe_unused]] char** argv) {

    int status{0};
    MPI_Init(&argc, &argv);

    //status = MPI_ERR_ARG;
    if (status != MPI_SUCCESS) {
        int errorLen{MAX_ERROR_STRING};
        char errorMsg[MAX_ERROR_STRING];
        MPI_Error_string(status, errorMsg, &errorLen);
        cout << "There was a problem" << errorMsg << endl;

        return 0;
    }

    int world_size;
    MPI_Comm_size(MPI_COMM_WORLD, &world_size);

    int world_rank;
    MPI_Comm_rank(MPI_COMM_WORLD, &world_rank);

    char processor_name[MPI_MAX_PROCESSOR_NAME];
    int name_len;
    MPI_Get_processor_name(processor_name, &name_len);

    cout << "Hello world from processor " << processor_name
         << ", rank " << world_rank
         << ", out of " << world_size << " processors." << endl;

    MPI_Finalize();

    return 0;
}