19 #define _XOPEN_SOURCE 700 31 #include "sion_fortran_writeread_mpi_f77.h" 35 #define DFUNCTION "fsion_coll_fwrite_mpi" 51 void fsion_coll_fwrite_mpi(
const void *data,
57 DPRINTFP((1, DFUNCTION, -1,
"enter size=%ld nitems=%ld\n",(
long) *size, (
long) *nitems));
58 (*rc) = (sion_int64) sion_coll_fwrite_mpi(data, (
size_t) *size, (size_t) *nitems, *sid);
59 DPRINTFP((1, DFUNCTION, -1,
"leave rc=%d\n",*rc));
80 void fsion_coll_fread_mpi(
void *data,
86 (*rc) = (sion_int64) sion_coll_fread_mpi(data, (
size_t) *size, (size_t) *nitems, *sid);