FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
mpi_wrapper.c
Go to the documentation of this file.
1/*****************************************************************************
2 * Copyright (c) 2019 FrontISTR Commons
3 * This software is released under the MIT License, see LICENSE.txt
4 *****************************************************************************/
5/*
6 Lowercast and double under score wrapper of single under score MPI
7 wrappers
8*/
9
10#include <mpi.h>
11
12void mpi_init__(int* err);
13void mpi_finalize__(int* err);
14void mpi_comm_size__(MPI_Comm* comm, int* size, int* ierr);
15void mpi_comm_rank__(MPI_Comm* comm, int* hecmw_rank, int* ierr);
16void mpi_comm_dup__(MPI_Comm* comm1, MPI_Comm* comm2, int* ierr);
17void mpi_comm_group__(MPI_Comm* comm, MPI_Group* group, int* ierr);
18void mpi_abort__(MPI_Comm* comm);
19void mpi_barrier__(MPI_Comm* comm, int* ierr);
20void mpi_scatterv__(void* sbuf, int* sc, int* si, MPI_Datatype* st, void* rbuf,
21 int* ri, MPI_Datatype* rt, int* root, MPI_Comm* comm,
22 int* ierr);
23void mpi_allreduce__(void* v, void* vm, int* n, MPI_Datatype* t, MPI_Op* op,
24 MPI_Comm* comm, int* ierr);
25void mpi_bcast__(void* v, int* n, MPI_Datatype* t, int* nb, MPI_Comm* comm,
26 int* ierr);
27void mpi_isend__(void* v, int* n1, MPI_Datatype* t, int* n2, int* n3,
28 MPI_Comm* comm, MPI_Request* rec, int* ierr);
29void mpi_irecv__(void* v, int* n1, MPI_Datatype* t, int* n2, int* n3,
30 MPI_Comm* comm, MPI_Request* rec, int* ierr);
31void mpi_waitall__(int* n, MPI_Request* rec, MPI_Status* stat, int* ierr);
32void mpi_wtime__(double* t);
33void mpi_wtick__(double* t);
34
35void mpi_init_(int* err) { mpi_init__(err); }
36
37void mpi_finalize_(int* err) { mpi_finalize__(err); }
38
39void mpi_comm_size_(MPI_Comm* comm, int* size, int* ierr) {
40 mpi_comm_size__(comm, size, ierr);
41}
42
43void mpi_comm_rank_(MPI_Comm* comm, int* hecmw_rank, int* ierr) {
44 mpi_comm_rank__(comm, hecmw_rank, ierr);
45}
46
47void mpi_comm_dup_(MPI_Comm* comm1, MPI_Comm* comm2, int* ierr) {
48 mpi_comm_dup__(comm1, comm2, ierr);
49}
50
51void mpi_comm_group_(MPI_Comm* comm, MPI_Group* group, int* ierr) {
52 mpi_comm_group__(comm, group, ierr);
53}
54
55void mpi_abort_(MPI_Comm* comm) { mpi_abort__(comm); }
56
57void mpi_barrier_(MPI_Comm* comm, int* ierr) { mpi_barrier__(comm, ierr); }
58
59void mpi_scatterv_(void* sbuf, int* sc, int* si, MPI_Datatype* st, void* rbuf,
60 int* ri, MPI_Datatype* rt, int* root, MPI_Comm* comm,
61 int* ierr) {
62 mpi_scatterv__(sbuf, sc, si, st, rbuf, ri, rt, root, comm, ierr);
63}
64
65void mpi_allreduce_(void* v, void* vm, int* n, MPI_Datatype* t, MPI_Op* op,
66 MPI_Comm* comm, int* ierr) {
67 mpi_allreduce__(v, vm, n, t, op, comm, ierr);
68}
69
70void mpi_bcast_(void* v, int* n, MPI_Datatype* t, int* nb, MPI_Comm* comm,
71 int* ierr) {
72 mpi_bcast__(v, n, t, nb, comm, ierr);
73}
74
75void mpi_isend_(void* v, int* n1, MPI_Datatype* t, int* n2, int* n3,
76 MPI_Comm* comm, MPI_Request* rec, int* ierr) {
77 mpi_isend__(v, n1, t, n2, n3, comm, rec, ierr);
78}
79
80void mpi_irecv_(void* v, int* n1, MPI_Datatype* t, int* n2, int* n3,
81 MPI_Comm* comm, MPI_Request* rec, int* ierr) {
82 mpi_irecv__(v, n1, t, n2, n3, comm, rec, ierr);
83}
84
85void mpi_waitall_(int* n, MPI_Request* rec, MPI_Status* stat, int* ierr) {
86 mpi_waitall__(n, rec, stat, ierr);
87}
88
89void mpi_wtime_(double* t) { mpi_wtime__(t); }
90
91void mpi_wtick_(double* t) { mpi_wtick__(t); }
void mpi_init_(int *err)
Definition: mpi_wrapper.c:35
void mpi_scatterv_(void *sbuf, int *sc, int *si, MPI_Datatype *st, void *rbuf, int *ri, MPI_Datatype *rt, int *root, MPI_Comm *comm, int *ierr)
Definition: mpi_wrapper.c:59
void mpi_comm_rank_(MPI_Comm *comm, int *hecmw_rank, int *ierr)
Definition: mpi_wrapper.c:43
void mpi_irecv__(void *v, int *n1, MPI_Datatype *t, int *n2, int *n3, MPI_Comm *comm, MPI_Request *rec, int *ierr)
void mpi_wtime_(double *t)
Definition: mpi_wrapper.c:89
void mpi_comm_dup_(MPI_Comm *comm1, MPI_Comm *comm2, int *ierr)
Definition: mpi_wrapper.c:47
void mpi_waitall_(int *n, MPI_Request *rec, MPI_Status *stat, int *ierr)
Definition: mpi_wrapper.c:85
void mpi_allreduce__(void *v, void *vm, int *n, MPI_Datatype *t, MPI_Op *op, MPI_Comm *comm, int *ierr)
void mpi_comm_group__(MPI_Comm *comm, MPI_Group *group, int *ierr)
void mpi_isend_(void *v, int *n1, MPI_Datatype *t, int *n2, int *n3, MPI_Comm *comm, MPI_Request *rec, int *ierr)
Definition: mpi_wrapper.c:75
void mpi_barrier__(MPI_Comm *comm, int *ierr)
void mpi_wtick__(double *t)
void mpi_comm_dup__(MPI_Comm *comm1, MPI_Comm *comm2, int *ierr)
void mpi_abort__(MPI_Comm *comm)
void mpi_bcast__(void *v, int *n, MPI_Datatype *t, int *nb, MPI_Comm *comm, int *ierr)
void mpi_comm_rank__(MPI_Comm *comm, int *hecmw_rank, int *ierr)
void mpi_finalize_(int *err)
Definition: mpi_wrapper.c:37
void mpi_waitall__(int *n, MPI_Request *rec, MPI_Status *stat, int *ierr)
void mpi_finalize__(int *err)
void mpi_init__(int *err)
void mpi_irecv_(void *v, int *n1, MPI_Datatype *t, int *n2, int *n3, MPI_Comm *comm, MPI_Request *rec, int *ierr)
Definition: mpi_wrapper.c:80
void mpi_isend__(void *v, int *n1, MPI_Datatype *t, int *n2, int *n3, MPI_Comm *comm, MPI_Request *rec, int *ierr)
void mpi_comm_size_(MPI_Comm *comm, int *size, int *ierr)
Definition: mpi_wrapper.c:39
void mpi_bcast_(void *v, int *n, MPI_Datatype *t, int *nb, MPI_Comm *comm, int *ierr)
Definition: mpi_wrapper.c:70
void mpi_wtime__(double *t)
void mpi_wtick_(double *t)
Definition: mpi_wrapper.c:91
void mpi_comm_group_(MPI_Comm *comm, MPI_Group *group, int *ierr)
Definition: mpi_wrapper.c:51
void mpi_allreduce_(void *v, void *vm, int *n, MPI_Datatype *t, MPI_Op *op, MPI_Comm *comm, int *ierr)
Definition: mpi_wrapper.c:65
void mpi_scatterv__(void *sbuf, int *sc, int *si, MPI_Datatype *st, void *rbuf, int *ri, MPI_Datatype *rt, int *root, MPI_Comm *comm, int *ierr)
void mpi_abort_(MPI_Comm *comm)
Definition: mpi_wrapper.c:55
void mpi_comm_size__(MPI_Comm *comm, int *size, int *ierr)
void mpi_barrier_(MPI_Comm *comm, int *ierr)
Definition: mpi_wrapper.c:57