Last change
on this file since 6328 was
6328,
checked in by aclsce, 17 months ago
|
First import of oasis3-mct_5.0 (from oasis git server, branch OASIS3-MCT_5.0)
|
File size:
835 bytes
|
Rev | Line | |
---|
[6328] | 1 | |
---|
| 2 | #include "mpiP.h" |
---|
| 3 | |
---|
| 4 | |
---|
| 5 | |
---|
| 6 | /***/ |
---|
| 7 | |
---|
| 8 | |
---|
| 9 | FC_FUNC( mpi_info_create , MPI_INFO_CREATE ) (int *info, int *ierror) |
---|
| 10 | { |
---|
| 11 | *ierror=MPI_Info_create(info); |
---|
| 12 | } |
---|
| 13 | |
---|
| 14 | |
---|
| 15 | |
---|
| 16 | int MPI_Info_create(MPI_Info *info) |
---|
| 17 | { |
---|
| 18 | /* For now, we aren't storing anything, so don't bother with a real handle */ |
---|
| 19 | *info=0; |
---|
| 20 | return(MPI_SUCCESS); |
---|
| 21 | } |
---|
| 22 | |
---|
| 23 | |
---|
| 24 | /***/ |
---|
| 25 | |
---|
| 26 | |
---|
| 27 | FC_FUNC( mpi_info_set , MPI_INFO_SET ) (int *info, char *key, char *value, int *ierror) |
---|
| 28 | { |
---|
| 29 | *ierror=MPI_Info_set(*info, key, value); |
---|
| 30 | } |
---|
| 31 | |
---|
| 32 | |
---|
| 33 | int MPI_Info_set(MPI_Info info, char *key, char *value) |
---|
| 34 | { |
---|
| 35 | /* for now, don't bother storing anything */ |
---|
| 36 | return(MPI_SUCCESS); |
---|
| 37 | } |
---|
| 38 | |
---|
| 39 | /***/ |
---|
| 40 | |
---|
| 41 | FC_FUNC( mpi_info_free , MPI_INFO_FREE ) (int *info, int *ierror) |
---|
| 42 | { |
---|
| 43 | *ierror=MPI_Info_free(info); |
---|
| 44 | } |
---|
| 45 | |
---|
| 46 | |
---|
| 47 | |
---|
| 48 | int MPI_Info_free(MPI_Info *info) |
---|
| 49 | { |
---|
| 50 | /* For now, we aren't storing anything, so don't bother with a real handle */ |
---|
| 51 | *info=0; |
---|
| 52 | return(MPI_SUCCESS); |
---|
| 53 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.