Initial checkin

PoissonSolver/2D-mpi/src/main.c

@@ -0,0 +1,44 @@
+/*
+ * Copyright (C) 2022 NHR@FAU, University Erlangen-Nuremberg.
+ * All rights reserved.
+ * Use of this source code is governed by a MIT-style
+ * license that can be found in the LICENSE file.
+ */
+#include <stdlib.h>
+#include <stdio.h>
+#include <unistd.h>
+#include <limits.h>
+#include <float.h>
+#include <mpi.h>
+
+#include "parameter.h"
+#include "solver.h"
+
+
+int main (int argc, char** argv)
+{
+    int rank;
+    Parameter params;
+    Solver solver;
+
+    MPI_Init(&argc, &argv);
+    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+    initParameter(&params);
+
+    if ( argc != 2 ) {
+        printf("Usage: %s <configFile>\n",argv[0]);
+        exit(EXIT_SUCCESS);
+    }
+
+    readParameter(&params, argv[1]);
+    if ( rank == 0 ) {
+        printParameter(&params);
+    }
+
+    initSolver(&solver, &params, 2);
+    solve(&solver);
+    getResult(&solver);
+
+    MPI_Finalize();
+    return EXIT_SUCCESS;
+}