Last change
on this file since 6331 was
6331,
checked in by aclsce, 17 months ago
|
Moved oasis-mct_5.0 in oasis3-mct/branches directory.
|
File size:
611 bytes
|
Line | |
---|
1 | #include "mpi.h" |
---|
2 | #include "mpiP.h" |
---|
3 | /* Because operations based on one processor are essentially no operation, |
---|
4 | * all MPI_Ops are handled as null ops. Therefore, returning 0 (OP_NULL) |
---|
5 | * suffices here. |
---|
6 | */ |
---|
7 | |
---|
8 | FC_FUNC(mpi_op_create, MPI_OP_CREATE)(MPI_User_function *func, int * commute, int * op, int * ierr) |
---|
9 | { |
---|
10 | *ierr = MPI_Op_create(func, *commute, op); |
---|
11 | } |
---|
12 | |
---|
13 | int MPI_Op_create(MPI_User_function *function, int commute, MPI_Op *op) |
---|
14 | { |
---|
15 | *op = 0; |
---|
16 | return MPI_SUCCESS; |
---|
17 | } |
---|
18 | |
---|
19 | FC_FUNC(mpi_op_free, MPI_OP_FREE)(int * op, int * ierr) |
---|
20 | { |
---|
21 | *ierr = MPI_Op_free(op); |
---|
22 | } |
---|
23 | |
---|
24 | int MPI_Op_free(MPI_Op * op) |
---|
25 | { |
---|
26 | return MPI_SUCCESS; |
---|
27 | } |
---|
28 | |
---|
Note: See
TracBrowser
for help on using the repository browser.